Koneksi VB6 ke database MySQL menggunakan Connection String

Posted on 4,933 views

Halo all, kali ini saya akan membahas soal programming nih. Postingan kali ini mengenai koneksi VB6 ke database mysql dengan connection string. Download dan install dulu MySQL ODBC Connector download disini : http://dev.mysql.com/downloads/connector/odbc/3.51.html

Untuk membuat database disini saya memakai XAMPP, jadi jalankan XAMPP kemudian Start kedua service yaitu Apache dan MySQL.

XAMPP-start

Setting database dengan membuka Windows + R Ketikan cmd kemudian masukan perintah :

# C:\xampp\mysql\bin\mysql.exe -u root -p
#Direktori XAMPP sesuaikan dengan instalasi xampp anda

XAMPP-mysql-start

Buat sebuah database dan sebuah table didalamnya seperti contoh di bawah :

create database percobaan; #Perintah ini digunakan untuk membuat database
use percobaan; #Perintah ini digunakan untuk mengganti database yang aktif
create table dataku (no int auto_increment primary key, nama varchar(50), keterangan varchar(100)); #Perintah ini digunakan untuk membuat table

Jika sudah buka Microsoft Visual Basic 6, kemudian buka dengan Standard EXE pada bagian New Project seperti ini :

vb-new

Buatlah Form sederhana seperti ini :

flexgrid

Tambahkan module dan isikan code dibawah ini :

Public conn As New ADODB.Connection
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 = "percobaan" ' ganti dengan nama database anda
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 = ""
'/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

Setelah module dibuat, langkah selanjutnya adalah memasukkan coding pada form nya. Double klik form dan masukkan code dibawah ini :

Dim RS As ADODB.Recordset
Private Sub Form_Load()
Dim up As String
Set RS = New ADODB.Recordset
Call buat_koneksi

  up = "SELECT * FROM dataku"
  RS.Open up, conn
  Set grd.Recordset = RS
  RS.Close
End Sub
Jalankan program dengan klik play atau tekan tombol F5, maka jika tidak error pada maka program akan tampil seperti dibawah ini.
Ilustrasi
Ilustrasi
Untuk proses memasukkan data baru atau menghapus data dari vb6 akan dijelaskan pada postingan selanjutnya. Semoga Bermanfaat. Sekian. 😀

Artikel Terkait:

  • cara membuat service apache dengan vb (2)
  • bukakoneksi conn connectionstring (1)
  • membuat koneksi modul ConectionString (1)
  • koneksi vb6 online (1)
  • kenapa database mysql tidak bisa koneksi di msflex grid vb 6 (1)

Gravatar Image
Seorang warga negara Indonesia biasa. Pengguna sistem windows dan linux. Contact : admin [at] nugi.biz

Leave a Reply