Thursday, May 29, 2014

Cara Membuat Koneksi Ke Database di Vb 6

Buatlah Module terlebih dahulu

Fungsi Module sendiri adalah sebagi berikut :
Untuk menyimpan procedure-prosedure atau fungsi-fungsi atau variable-variable yang digunakan secara global oleh alplikasi yang akan kita buat, sehingga kita tidak perlu membuat fungsi-fungsi atau procedur-prosedure atau variable-variable tersebut secara berulang-ulang, dan akan lebih memudahkan kita dalam penggunaannya.
Dengan penjelasan diatas maka penulisan coding akan menjadi ringkas, dan kita bisa memanggilnya di Module tersebut




Langkah-langkah membuat Module :
1. Buka Project VB anda
2. Klik Project
3. Add Module

Silahkan Isi Coding dibawah ini kedalam Module1
modul koneksi database penjualan

Public dbConn As New Connection
Public strConn As String

Sub ActConn()
On Error Resume Next
strConn = "Driver={SQL Server};Server=USER-PC;Database=penjualan,uid=sa,pwd=;"  '(Masukkan nama server , 'database, user, password (kalau gk ada user dan password maka hapus saja sa dan pwdnya))

dbConn.CursorLocation = adUseClient
If dbConn.State = adStateClosed Then
dbConn.Open strConn
If dbConn.State = adStateClosed Then
MsgBox "Koneksi Gagal ! ", vbCritical + vbOKOnly, "Kesalahan "
End If
End If


End Sub