Koneksi Database SQL Server Dengan Visual Basic 6

Mungkin ada yang belum mengetahui bagaimana membuat koneksi ke database Sql Server dari VB6. Disini akan diterangkan langkah-langkahnya.

1. Membuat file dengan extensen .udl (contoh : conDBS.udl ).

2.Double klik file conDBS.udl maka akan tampil form seperti gambar dibawah ini. Provider pilih "Microsoft OLE DB Provider for SQL Server". Setelah itu klik tombol"Next".

 3. Bila database SQL Server ada di Server (PC Lain) masukkan server name / ip address server tersebut. Jika database ada di PC local tulis saja "localhost". Setelah itu masukkan user name dan password, lalu pilih nama database. Setelah itu lakukan"Test Connection".

 4. Membuat procedure connection database di VB.

Option Explicit

'Connection

Public adcConnect As New ADODB.Connection

Public Sub ConnectToDatabase()

   On Error GoTo LocalErr

  

   Set adcConnect = New ADODB.Connection

   adcConnect.Open "FILE NAME=" & App.Path & "\conDBS.udl"

  

   Exit Sub

LocalErr:

   Screen.MousePointer = vbDefault

   If Err.Number = -2147467259 Then

      MsgBox "Connection failed, please check data link properties in path \conDBS.udl !," & Chr(13) & _

      "Or SQL Server not running. Open SQL Server service manager, server name and services must correct.", vbCritical, "Error"

       Exit Sub

   Else

      MsgBox Err.Number & Chr(13) & Err.Description, vbCritical + vbOKOnly, "Error Connection"

   End If

End Sub