Подключение базы данных к Visual Basic с помощью кода

Question

я использовал эту функцию, чтобы создать базу данных:

Public Function CreateAccessDatabase (ByVal DatabaseFullPath As String) As Boolean   


     Dim bAns As Boolean 
     Dim cat As New ADOX.Catalog() 
     Try 
      Dim sCreateString As String 
      sCreateString = _ 
       "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ 
       DatabaseFullPath 
      cat.Create(sCreateString) 

      bAns = True 

     Catch Excep As System.Runtime.InteropServices.COMException 
      bAns = False 
     Finally 
      cat = Nothing 
     End Try 
     Return bAns 
End Function 

и я хочу подключить его через код, я попытался это, но он не работает:

Try 

     Dim constring As String 
     constring = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Utilizador.Utilizador-PC\Documents\Visual Studio 2013\Projects\WindowsApplication1\WindowsApplication1\Doc_Vendas_Cab.mdf;" 
     Dim conn As New SqlConnection(constring) 
     conn.Open() 
     MsgBox("Connected") 

     conn.Close() 
    Catch Ex As Exception 
     MsgBox(Ex) 
    End Try 

Как мне это сделать?

Answer 1

Вы используете базу данных ms-access в своем коде, почему вы используете SqlConnection провайдер предназначен для базы данных SQL-сервера. Вы должны использовать OleDb.OleDbConnection поставщика.

См, этот пример ссылка helpful

Try 

    Dim constring As String 
    constring = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Utilizador.Utilizador-PC\Documents\Visual Studio 2013\Projects\WindowsApplication1\WindowsApplication1\Doc_Vendas_Cab.mdf;" 
    Dim conn As New OleDb.OleDbConnection(constring) 
    conn.Open() 
    MsgBox("Connected") 
    conn.Close() 
Catch Ex As Exception 
    MsgBox(Ex) 
End Try