Hallo sahabat telatngoding pada kesempatan kali ini saya akan berbagi tutorial Cara Membuat Form Koneksi Database MySQL Server Menggunakan Visual Basic 6.0 VB6 dengan mudah.
Pada pembahasan kali ini saya akan mencoba menghubungkan vb6 dengan mysql server, dengan beberapa data input seperti User, Password Driver, Database, Server yang semuanya itu akan tersimpan otomatis pada file yang menggunakan Ext *ini.
Jika kalian ingin membuat form dengan menggunakan database atau basis data tentunya dalam pembuatan tersebut terdapat sub atau yang biasa kita tahu sub function untuk bisa menghubungkan antara database tersebut dengan codingan atau bahasa program yang kita pakai.
Untuk bisa menghubungkan antara database dengan bahasa pemrograman yang kita pakai caranya cukup mudah, karena disini kita menggunakan microsoft visual basic 6.0 ada beberapa alat atau tools yang harus kita gunakan seperti penggunaan button, textbox, label, modul, dan beberapa tools lainnya yang bisa mempercantik tampilan form.
Cara Membuat Form Koneksi Database MySQL Server Menggunakan Visual Basic 6.0 VB6
Baik disini kita akan langsung ketutorial, simak dan telitilah supaya tidak terjadi error syntak saat menjalankan project yang kita buat ini.
1. Hal yang pertama yang harus di lakukan adalah membuka microsoft visual basic 6.0 vb6 kalian.
2. Buatlah form baru lalu pilih standard exe.
3. Buatlam tampilan seperti gambar dibawah ini.
Penjelasan :
- Textbox1 = txtServer
- Textbox2 = txtUserName
- Textbox3 = txtPassword
- Textbox4 = txtDatabase
- Command1 = cmdOK
- Command2 = cmdKeluar
4. Salin Syntax di bawah ini dan letakan di dalam form tersebut
Private Sub cmdKeluar_Click() End End Sub Private Sub cmdOK_Click() If txtServer.Text = vbNullString Or _ txtUserName.Text = vbNullString Or _ txtDatabase.Text = vbNullString Then MsgBox "Klasifikasi Koneksi ke Database harus lengkap !", vbInformation, "Perhatian" Else WriteIniValue App.Path & "\My.ini", "Konfig", "SERVER", txtServer.Text WriteIniValue App.Path & "\My.ini", "Konfig", "USER", txtUserName.Text WriteIniValue App.Path & "\My.ini", "Konfig", "PASSWORD", txtPassword.Text WriteIniValue App.Path & "\My.ini", "Konfig", "DATABASE", txtDatabase.Text Unload Me Call Koneksi End If End Sub Private Sub Form_Load() Left = Screen.Width / 2 - Width / 2 Top = Screen.Height / 2 - Height / 2 txtServer.Text = ReadIniValue(App.Path & "\My.ini", "Konfig", "SERVER") txtUserName.Text = ReadIniValue(App.Path & "\My.ini", "Konfig", "USER") txtPassword.Text = ReadIniValue(App.Path & "\My.ini", "Konfig", "PASSWORD") txtDatabase.Text = ReadIniValue(App.Path & "\My.ini", "Konfig", "DATABASE") End Sub
5. Sekarang buatlah 2 buah modul, Untuk namanya biarkan saja, Silahkan salin kode syntax di bawah ini dan letakan ke dalam masing - masingmodul tersebut
Modul pertama
'Fungsi Module Write Option Explicit Public Function WriteIniValue(INIpath As String, PutKey As String, PutVariable As String, PutValue As String) Dim Temp As String Dim LcaseTemp As String Dim ReadKey As String Dim ReadVariable As String Dim LOKEY As Long Dim HIKEY As Long Dim KEYLEN As Long Dim VAR As Long Dim VARENDOFLINE As Long Dim NF As Long Dim X As Long AssignVariables: NF = FreeFile ReadKey = vbCrLf & "[" & LCase$(PutKey) & "]" & Chr$(13) KEYLEN = Len(ReadKey) ReadVariable = Chr$(10) & LCase$(PutVariable) & "=" EnsureFileExists: Open INIpath For Binary As NF Close NF SetAttr INIpath, vbArchive LoadFile: Open INIpath For Input As NF Temp = Input$(LOF(NF), NF) Temp = vbCrLf & Temp & "[]" Close NF LcaseTemp = LCase$(Temp) LogicMenu: LOKEY = InStr(LcaseTemp, ReadKey) If LOKEY = 0 Then GoTo AddKey: HIKEY = InStr(LOKEY + KEYLEN, LcaseTemp, "[") VAR = InStr(LOKEY, LcaseTemp, ReadVariable) If VAR > HIKEY Or VAR < LOKEY Then GoTo AddVariable: GoTo RenewVariable: AddKey: Temp = Left$(Temp, Len(Temp) - 2) Temp = Temp & vbCrLf & vbCrLf & "[" & PutKey & "]" & vbCrLf & PutVariable & "=" & PutValue GoTo TrimFinalString: AddVariable: Temp = Left$(Temp, Len(Temp) - 2) Temp = Left$(Temp, LOKEY + KEYLEN) & PutVariable & "=" & PutValue & vbCrLf & Mid$(Temp, LOKEY + KEYLEN + 1) GoTo TrimFinalString: RenewVariable: Temp = Left$(Temp, Len(Temp) - 2) VARENDOFLINE = InStr(VAR, Temp, Chr$(13)) Temp = Left$(Temp, VAR) & PutVariable & "=" & PutValue & Mid$(Temp, VARENDOFLINE) GoTo TrimFinalString: TrimFinalString: Temp = Mid$(Temp, 2) Do Until InStr(Temp, vbCrLf & vbCrLf & vbCrLf) = 0 Temp = Replace(Temp, vbCrLf & vbCrLf & vbCrLf, vbCrLf & vbCrLf) Loop Do Until Right$(Temp, 1) > Chr$(13) Temp = Left$(Temp, Len(Temp) - 1) Loop Do Until Left$(Temp, 1) > Chr$(13) Temp = Mid$(Temp, 2) Loop OutputAmendedINIFile: Open INIpath For Output As NF Print #NF, Temp Close NF End Function Public Function ReadIniValue(INIpath As String, KEY As String, Variable As String) As String Dim NF As Long Dim Temp As String Dim LcaseTemp As String Dim ReadyToRead As Boolean AssignVariables: NF = FreeFile ReadIniValue = "" KEY = "[" & LCase$(KEY) & "]" Variable = LCase$(Variable) EnsureFileExists: Open INIpath For Binary As NF Close NF SetAttr INIpath, vbArchive LoadFile: Open INIpath For Input As NF While Not EOF(NF) Line Input #NF, Temp LcaseTemp = LCase$(Temp) If InStr(LcaseTemp, "[") <> 0 Then ReadyToRead = False If LcaseTemp = KEY Then ReadyToRead = True If InStr(LcaseTemp, "[") = 0 And ReadyToRead = True Then If InStr(LcaseTemp, Variable & "=") = 1 Then ReadIniValue = Mid$(Temp, 1 + Len(Variable & "=")) Close NF: Exit Function End If End If Wend Close NF End Function
Modul ke 2
Public CN As New ADODB.Connection Sub Main() Form1.Show End Sub Sub AppRunning() If App.PrevInstance Then End End If End Sub Sub DisConnects() On Error Resume Next Set CN = Nothing CN.Close End Sub Sub Koneksi() Call AppRunning Dim NServer, NUser, NPass, NDatabase As String NServer = ReadIniValue(App.Path & "\My.ini", "Konfig", "SERVER") NUser = ReadIniValue(App.Path & "\My.ini", "Konfig", "USER") NPass = ReadIniValue(App.Path & "\My.ini", "Konfig", "PASSWORD") NDatabase = ReadIniValue(App.Path & "\My.ini", "Konfig", "DATABASE") On Error GoTo ErrKoneksi CN.CommandTimeout = 0 If CN.State Then CN.Close CN.CursorLocation = adUseClient CN.ConnectionString = "DRIVER={MySQL ODBC 5.3 ANSI Driver};" & _ "SERVER=" & NServer & " ;Port=3306;DATABASE=" & NDatabase & ";" & _ "UID=" & NUser & " ;PWD=" & NPass & ";OPTION=3" CN.Open Else CN.CursorLocation = adUseClient CN.ConnectionString = "DRIVER={MySQL ODBC 5.3 ANSI Driver};" & _ "SERVER=" & NServer & " ;Port=3306;DATABASE=" & NDatabase & ";" & _ "UID=" & NUser & " ;PWD=" & NPass & ";OPTION=3" CN.Open End If MsgBox "Koneksi database MySQL Server Sukses !", vbInformation, "Informasi" End Exit Sub ErrKoneksi: MsgBox "Koneksi database Error.. " & vbCrLf & Err.Description & Err.Number, vbCritical, "Error Koneksi Database" Unload Form1 Form1.Show Exit Sub End Sub
6. Jika sudah silahkan jalankan project anda
Tapi jika dengan menggunakan cara diatas masih mendapati error silahkan download source codenya di bawah ini
Jika disaat menjalankan terdapat error kalian tidak usah khawatir silahkan klik OK lalu akan menampilkan form konfigurasi koneksi database, pada form tersebut silahkan kalian inputkan spesifikasi database My SQL Server yang sudah terinstal di komputer kalian lalu klik OK. Jika penginputan tersebut benar maka disaat menjalankan project tersebut akan keluar msgbox bahwa koneksi database anda sukses.
Bagaimana sangat mudah bukan untuk belajar coding menggunakan visual basic 6.0 atau yang kita kenal dengan vb, nantikan tutorial selanjutnya tentang microsoft visual basic di telatngoding.com