Coding Visual Basic .NET

Kumpulan Source Code Cara Cepat Belajar Aplikasi VB.net

Cara Membuat Modul Koneksi Mysql Database pada Visual Basic 6 / VB6

Pada postingan sebelumnya saya postingkan Cara Membuat Modul Koneksi Mysql Database pada VB.Net. Sebelum kita melangkah jauh dalam membuat Program di Visual Basic 6 atau VB6 adakalanya kita harus membuat Modul untuk koneksi. Maka dari itu kali saya akan memposting Cara Membuat Modul Koneksi Mysql Database pada Visual Basic 6 / VB6. Mungkin coding yang ane kasih bisa bantu, langsung saja ane kasing listingnya :

Public Sub BukaDatabase()
Set Koneksi = New ADODB.Connection
Koneksi.CursorLocation = adUseClient
Koneksi.ConnectionString = “” _
& “DRIVER={MYSQL ODBC 5.2w Driver};” _
& “SERVER=localhost;” _
& “DATABASE=tokodb;” _
& “UID=root;” _
& “PWD=;” _
& “OPTION=”

On Error Resume Next
If Koneksi.State = adStateOpen Then
Koneksi.Close
Set Koneksi = New ADODB.Connection
Koneksi.Open
Else
Koneksi.Open
End If

‘ Jika Koneksi gagal, pesan error ditampilkan
If Err.Number <> 0 Then
MsgBox “Koneksi MySQL Gagal”, vbCritical, “Error”
Else
‘ MsgBox “Koneksi Berhasil”, vbInformation, “Sukses”
End If
End Sub

Tulisan Lainnya :

JUAL DVD KUMPULAN PROGRAM APLIKASI DAN SOURCE CODE VB.NET

Leave a Reply

Your email address will not be published. Required fields are marked *

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>

Coding Visual Basic .NET © 2014 Frontier Theme