untuk mengkoneksikan project visual basic ke SQL Server caranya cukup mudah, cuma ganti provider doank, hampir sama dengan mySQL biasa. bisa dilihat di gambar atas.
Public conn As New ADODB.Connection
Public strcon As String
Sub bukakoneksi()
strcon = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=apotik;"
If conn.State = adStateOpen Then
conn.Close
Set conn = New ADODB.Connection
conn.Open strcon
conn.CursorLocation = adUseClient
Else
conn.Open strcon
conn.CursorLocation = adUseClient
End If
End Sub
Public strcon As String
Sub bukakoneksi()
strcon = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=apotik;"
If conn.State = adStateOpen Then
conn.Close
Set conn = New ADODB.Connection
conn.Open strcon
conn.CursorLocation = adUseClient
Else
conn.Open strcon
conn.CursorLocation = adUseClient
End If
End Sub