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
