VB.6.0 :: vbCara Menghubungkan Database Mysql dengan VB 6.0

Selamat pagi sahabat Blogertas. gmna kabar kalian ? Tentunya sehat semua kan. klo gak sehat ya gak bakalan berkunjung kesini benar gak..?? masih setia bersama susantosatu.blogspot.com, tentunya juga masih kan.

Ok langsung saja tidak perlu panjang lebar, karna kebanyakan cewek gak suka sama yang terlalu panjang dan yang cowk juga gak suka sama yang terlalu lebar hehe. cuma sekedar hiburan saja lho...
Fikiranya gak boleh kemana-mana hehe.

Pada kesempatan ini akan saya akan memberikan sedikit wacana tentang bagaimana cara dalam koneksi data base pada Visual Basic 6.0 apabila menggunakan data base mysql. Sebelum kita melangkah ke cara dalam koneksi data base mysql pada VB.6.0 alangkah baiknya jika kalian mengetahui tentang database yang digunakan. Database yang saya gunakan adalah sql server 2000 jadi klo ada perbedaan cara koneksinya bila menggunakan database sql yang terbaru mohon dikonfirmasikan kesaya di karena saya belum pernah  mencoba database yang baru, maklum masih malas mencobanya. 

Berikut ini merupakan code-nya yang bisa diletakkan pada modul :
Public con As New ADODB.Connection
Public rst As New ADODB.Recordset 'berfungsi sebagai variabel penyimpan record sementara
Public strcon As String ' variabel yg digunakan untuk code koneksi
Public strsql As String ' variabel yg digunakan untuk menampung code atau query sql
Public Sub Connections()
strcon = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security
Info=False;Initial Catalog=test"
If con.State = adStateOpen Then
con.Close
Set con = New ADODB.Connection
con.Open strcon
Else
con.Open strcon
End If
End Sub

Sama seperti koneksi pada ms. access pada umumnya, inti dari koneksi ini ialah terletak pada variabel strcon
"strcon = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security
Info=False;Initial Catalog=dbsusanto""

Nah Pada bagian akhir dari code tersebut yaitu "Initial Catalog=dbsusanto", test merupakan nama dari database yang telah dibuat sebelumya pada sql server sementara pada code ini saya memberikan contoh nama databasenya yaitu"dbsusanto". Sehingga anda  perlu mensesuaikan dengan nama database yang anda gunakan pada saat ini, atau anda coba membuat databe yang sama seperti yang saya gunakan agar anda dapat dengan mudah memahaminya.

Sebelum anda mencoba untuk mengkoneksikanya, anda perlu pastikan terlebih dahulu bahwa Servis Manager dari sql server sudah berada dalam kondisi Running (jika belum mohon untuk di running terlebih dahulu).

Seperti itulah coding dalam pengkoneksian database mysql pada pemrograman destop Visual Basic 6.0.
Semoga artikel Cara koneksi database mysql pada vb.6.0 dapat bermanfaat bagi anda dan saya.