Проблема при редактировании строки подключения

Question

Я использую следующий код, чтобы изменить мои строки подключения

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() 

Но это дает ошибку на

Dim adapter As New dbSQLServerTestDataSet1.tblContact 

на dbSQLServerTestDataSet1.tblContact части линии. Эти объекты завершаются в моем проекте. Я также импортировал System.Data и System.Data.SqlClient.

Просим руководствоваться.

Answer 1

Добавить в пространстве имен

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))