Visual Basic koneksi dengan SQL Server 2000

Cara membuat koneksi Database dalam Visual Basic 6.0.

Membuat koneksi database baik itu menggunakan Visual Basic 6.0 maupun Visual Basic .NET pada dasarnya sama. Di bawah ini akan saya coba jelaskan cara sederhana untuk membuat koneksi dengan SQL Server Database menggunakan Visual Basic 6.0. Artikel ini hanya ditujukan buat teman-teman yang ingin mengetahui cara mengkoneksikan program Visual Basic ke dalam database SQL.

Langkah pertama, buka program Visual Basic 6.0 dan buat project baru dengan memilih Standar EXE pada menu tampilan awan Visual Basic 6.0.

Langkah kedua, pilih menu project dan pilih menu References. Dalam kotak dialog References, cari “Microsoft ActiveX Data Objects 2.8 Library” atau “Microsoft ActiveX Data Objects 2.6 Library” atau “Microsoft ActiveX Data Objects 2.7 Library”. Pilih salah satu, semuanya sama saja terserah Anda. Centang library tersebut dan klik OK.

Langkah ketiga, buat modul baru dalam project kita dengan mengklik menu Project > Add Module. Pada kotak dialog yang muncul, klik Open. Dalam modul yang baru kita buat ketikkan:

Public dB As New ADODB.Connection

Langkah keempat, buka Form1 yang terdapat dalamProject Explorer (biasanya di sebelah kanan) dengan cara Double Click pada Form1. Form1 akan terbuka. Double Click Form1 dimana saja, maka anda akan masuk ke dalam tampilan Code View . Kode yang muncul akan terlihat seperti di bawah ini:

Private Sub Form_Load()

End Sub

Langkah kelima, ketikkan perintah di bawah ini di antara Sub Form_Load() dan End Sub:

On error goto Ern

dB.Provider = “SQLOLEDB.1;server=(local);User ID=sa;password=asianet;Initial Catalog=Penjualan”

dB.Open

MsgBox “Koneksi sukses.”

Exit sub

Ern:

MsgBox “Koneksi Gagal”

Keterangan :

(local), mengindikasikan lokasi server Anda. Jika aplikasi kita hanya akan mengakses ke SQL Server dalam komputer local, gunakan (local). Sebaliknya jika aplikasi kita digunakan agar terhubung ke jaringan, sebaiknya gunakan sesuai nama server (komputer) dalam jaringan. (sorry kalo kata-katanya agak kurang dipahami… J).

User ID=sa;password=asianet. Bila saat installasi SQL Server pertama kali kita menggunakan User ID ‘sa’ dan password=asianet. Maka User ID dan passwordnya harus dimasukkan di sini. Lain waktu akan saya terangkan cara Installasi SQL Server 2000, kalo SQL Server yang 2005 agak gampang (tapi, semuanya tergantung dimana kita memakai Instance default atau tidak atau menggunakan SQL Server authentication atau tidak).

Koneksi Database Ms.Access Dengan Visual Basic 6.0.

Koneksi Database di VB bisa menggunakan Data control, BDE atau komponen
ADODC. Serta Database yang digunakan bisa dBase,MySQL,SQLserver, Ms.Access,
dsb. Namun, dalam praktek yang saya bawakan kali ini, kita akan mencoba koneksi
menggunakan Data dengan Database Ms. Access.

Langkah – Langkahnya :
Masukkan Komponen Label,Text,Command, Data, dan DBGrid, ke dalam Form aktif/ form kerja kita,namun, kadangkala DB Grid tidak otomatis ada, maka kita menambah komponen dengan cara klik kanan toolbox, klik Components.
Pilih Microsoft Databound Grid Control 5.0 (SP3), Klik Apply,klik close.
Sekarang buat tampilan sebagai berikut dengan objek text,label,command,data, dan DB Grid :
Set propertinya sebagai berikut :
3 label
3 TextBox
6 Comman Button
1 data
1 DBGrid

Simpan form & Projectnya di folder tempat anda menyimpan database.
Cara memasukkan script adalah double click pada objeknya, berikut listing / script programingnya :
1. Pada Form ( Untuk Koneksi Data1 ke database access versi 97 )
Private Sub Form_Load()
Data1.DatabaseName = App.Path + "\dataku.mdb"
Data1.RecordSource = "Mhs"
End Sub
2. Pada Text1 ( Ingat eventnya Keypress bukan change ) :
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub
3. Pada text 2 :
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
End If
End Sub
4. Pada text 3 :
Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Command1.SetFocus
End If
End Sub
5. Pada Command1 :
Private Sub Command1_Click()
Data1.Recordset.AddNew
Data1.Recordset("Nim") = Text1.Text
Data1.Recordset("Nama") = Text2.Text
Data1.Recordset("Alamat") = Text3.Text

Data1.Recordset.Update
Command5.Value = True
End Sub
6. Pada Command2 :
Private Sub Command2_Click()
Data1.Recordset.Delete
Data1.Refresh
Command5.Value = True
End Sub
7. Pada Command3 :
Private Sub Command3_Click()
Data1.Recordset.Edit
Data1.Recordset("Nim") = Text1.Text
Data1.Recordset("Nama") = Text2.Text
Data1.Recordset("Alamat") = Text3.Text
Data1.Recordset.Update
Command5.Value = True
End Sub
8. Pada Command4 :
Private Sub Command4_Click()
Data1.Recordset.MoveFirst
i = 1
j = Data1.Recordset.RecordCount
While i < j
If Data1.Recordset("Nim") = Text1.Text Then
Text2.Text = Data1.Recordset("Nama")
Text3.Text = Data1.Recordset("alamat")
k = j - i
i = (i + k)
Data1.Recordset.MovePrevious
End If
i = i + 1
Data1.Recordset.MoveNext
Wend
End Sub
9. Pada Command5 :
Private Sub Command5_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub
10. Pada Command6 :
Private Sub Command6_Click()
Unload Me
End Sub

Koneksi Visual basic 6 (VB6) dengan Access 2007

Cara koneksi VB6 dengan ms access 2007 sama dengan ms access versi sebelumnya , perpedaanya pada connectionstringnya saja:

ini contoh menyimpan data melalui VB6  ke access 2007  :

Private Sub Command1_Click()
Dim Koneksi2007 As New ADODB.Connection
Dim RecordSetTabel As New ADODB.Recordset

'konection string untuk ms acces 2007

Koneksi2007.Open "Provider=Microsoft.ACE.OLEDB.12.0;  Data
Source=D:\dataaccess2007.accdb;Persist Security Info=False;"

RecordSetTabel.Open "TabelBarcode",Koneksi2007, adOpenStatic, adLockOptimistic

If  RecordSetTabel.Supports(adAddNew) Then
With  RecordSetTabel
.AddNew
.Fields("Barcode") = Me.txtBarcode.Text
.Fields("Date") = Me.txtDate.Text
.Fields("Time") = Me.txtTime.Text
.Fields("Mesin_No") = Me.txtStcNum.Text
.Fields("Status") = Me.txtStatus.Text         '  OK or NG
.Update
End With

Label1.Caption =  " data has been added to database successfully"
End If

RecordSetTabel.Close
Set  RecordSetTabel = Nothing
Koneksi2007 .Close
Set Koneksi2007 = Nothing
End Sub

Koneksi Visual Basic 6 Ke MySQL

Sesuai janji saya di artikel ini, saya akan menulis tentang bagaimana aplikasi Visual Basic 6 anda terkoneksi dengan MySQL. Saya beranggapan anda sudah belajar tentang dasar-dasar Visual Basic 6. Artikel ini hanya akan membahas tentang bagaimana Visual Basic 6 dapat berkomunikasi aplikasi database MySQL.

Buatlah prosedur baru di form MDI anda atau di Module (dan pastikan kalau di Module, prosedur anda adalah Public sehingga dapat dipanggil dari form utama anda). Berikan nama prosedur itu yang mewakili dengan koneksi anda. Misalnya, buat koneksi.
Prosedur yang saya buat adalah sebagai berikut:

Private Sub buat_koneksi()
Dim ConnString As String
Dim db_name As String
Dim db_server As String
Dim db_port As String
Dim db_user As String
Dim db_pass As String
'//error traping
On Error GoTo buat_koneksi_Error
'/isi variable
db_name = "databaseku"
db_server = "localhost" 'ganti jika server anda ada di komputer lain
db_port = "3306"    'default port is 3306
db_user = "root"    'sebaiknya pakai username lain.
db_pass = "password_anda"
'/buat connection string
ConnString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & db_server & ";DATABASE=" & db_name & ";UID=" & db_user & ";PWD=" & db_pass & ";PORT=" & db_port & ";OPTION=3"
'/buka koneksi
With Conn
    .ConnectionString = ConnString
    .Open
End With
'___________________________________________________________
On Error GoTo 0
Exit Sub
 
buat_koneksi_Error:
    MsgBox "Ada kesalahan dengan server, periksa apakah server sudah berjalan !", vbInformation, "Cek Server"
End Sub

Untuk memanggil prosedur itu, cukup panggil di form utama anda (atau form dimana anda mau memulai koneksi anda) dengan mengetik

call buka_koneksi

atau

buka_koneksi

saja.

Dan jangan lupa untuk membuat object Conn dulu dan biasanya variable Conn ini dibuat secara Public sehingga bisa dipanggil dimana saja. Biasaya saya buat disuatu Module yang isinya adalah koleksi variable Public. Nyatakan variable tersebut dengan menuliskan:

Public Conn                 As New ADODB.Connection

Dan seperti biasa, ketika anda menutup aplikasi, anda harus menutup dulu koneksi anda ke MySQL. Biasanya prosedur tutup koneksi ini saya taruh di blokMDIForm_Unload.

If Conn.State = adStateOpen Or Conn.State = adStateConnecting Then
   Conn.Close
   Set Conn = Nothing
End If

Nah, itu bagian pertama dalam membuat aplikasi Visual Basic 6 dan MySQL, untuk selanjutnya kita akan berdiskusi tentang cara membuka tabel-tabel yang ada di MySQL.