2012-01-23 3 views
-1

を編集しながら、私は私の接続文字列発行し、接続文字列

Dim adapter As New dbSQLServerTestDataSet1.tblContact 
Dim conn As New SqlConnection() 
conn.ConnectionString = "Data Source=" & vrCompName & "\SQLEXPRESS;AttachDbFilename=|DataDirectory|\dbSQLServerTest.mdf;Integrated Security=True;User Instance=True" 
adapter.Connection = conn 
Dim table As DataTable = adapter.GetData() 

を編集するには、次のコードを使用しています。しかし、それはラインのdbSQLServerTestDataSet1.tblContact一部に

Dim adapter As New dbSQLServerTestDataSet1.tblContact 

にエラーが発生します。これらのオブジェクトは私のプロジェクトで終了します。私もSystem.DataSystem.Data.SqlClientを輸入しています。

ご案内しています。

+4

あなたが取得しているどのようなエラーが?? –

+0

タイプdbSQLServerTestDataSet1.tblContactが定義されていません –

+0

新規キーワードを削除して再試行してください。それが問題を作り出すことを願っています。 –

答えて

0

は、次のコードを使用した名前空間に

Imports System.Data.SqlClient 

を追加します。

Dim ds As dsTestCon 

    Me.taTestCon.Fill(Me.DsTestCon.tblTest) 
    MsgBox(DsTestCon.tblTest.Rows(0).Item(1)) 

    MsgBox(taTestCon.Connection.ConnectionString) 


    Dim adapter As New dsTestConTableAdapters.tblTestTableAdapter 
    Dim conn As New SqlConnection() 
    Dim vrCompName As String = My.Computer.Name 
    conn.ConnectionString = "Data Source=" & vrCompName & "\SQLEXPRESS;AttachDbFilename=e:\dbTest.mdf;Integrated Security=True;User Instance=True" 
    adapter.Connection = conn 
    Dim table As DataTable = adapter.GetData() 
    MsgBox(adapter.Connection.ConnectionString) 

    ds = New dsTestCon() 
    adapter.Fill(ds.tblTest) 

    MsgBox(ds.tblTest.Rows(0).Item(1))