Senin, 20 Juni 2011

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

Tidak ada komentar:

Posting Komentar