Koneksi Database Dengan Visual Basic

Cara mengkoneksikan dengan database :
Klik connecting string pda bagian property maka akan muncul window baru (Property Pages).

Klik bagian Build maka akan muncul window Data Links Properties.

window Data Links Properties - pilih Provider - pilih Microsoft OLE DB Provider for Sql Server kemudian Next.

Data Links Properties - pilih Connection - pilih nama Server dalam hal ini "STMIK-" - pilih use windows NT jangan pilih yang dipasword, gambarnya seperti ini:

 

Kemudian Pilih nama Databasenya - Test Connection - Lalu Oke.

Dicopy bagian Use Connection String - klik Oke

Nach yang dicopy tersebut akan dipaste di bagian Modul pada bagian berwarna kuning, akhirnya akan menjadi seperti ini:

Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public strconnect As String
Public strsql As String
Public Sub konek() strconnect = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=inventory;Data Source=STMIK-"
If conn.State = adStateOpen Then
conn.Close
Set conn = New ADODB.Connection
conn.Open (strconnect)
Else
conn.Open (strconnect)
End If
End Sub

Selesai mudah bukan...?