Install Xampp
Kemudian Install MySQL Front dan MySQL ODBC
Selanjutnya Buat Query Seperti gambar di bawah ini
Kemudian Start Apache dan MySQL pada Xampp control panel, seperti gambar di bawah
Langkah Selanjutnya Buka MySQL Front
Kemudian Buat database dengan cara klik Tools kemudian Pilih Create Database
Selanjutnya pada Database Name, isi Nama Database Mahasiswa, Lihat Gambar di bawah :
Berikutnya copy kan script Query yang telah di buat tadi ke SQL Query pada database Mahasiswa dan Klik Execute SQL atau Tekan Tombol F9 , Maka Tabel Biodata akan terbentuk pada database Mahasiswa.
Selanjutnya rancang lah Form pada Visual basic 6.0 Seperti gambar di bawah :
Setelah Form selesai di buat, Klik Kanan pada AdoDC, Pilih ADODC Properties
Selanjutnya Pilih Use ODBC Data Source Name, Klik New
Pilih User Data Source, Kemudian Next
Lalu Pilih MySQL ODBC 3.51 Driver, Next, Finish
Kemudian Muncul jendela Conector ODBC, isi seperti gambar di bawah :
Lalu OK.
Langkah Selanjutnya, pada ADODC Properties pilih Use Conection String, kemudian Build, pilih Microsoft OLE DB Provider for ODBC Drivers, NEXT…
Pada Use Data Source Name, pilih data source yang sudah kita buat tadi, Kemudian Test Connection… Apabila Berhasil maka akan ada peringatan Test Conection Succeded..
Copy Provider pada Use Conection String, Seperti pada gambar di bawah :
Kemudian Paste kan alamat Provider Tersebut Ke dalam Function Koneksi pada Module, Lihat gambar di bawah :
Untuk saat ini Koneksi Telah berhasil…. Selanjutnya kita akan Membuat program untuk menyimpan data mahasiswa ...
Ketikkan Script di bawah ini :
Dim jk As String
Private Sub CMDSAVE_Click()
If CBSEX.Text = "Laki-Laki" Then
jk = "L"
ElseIf CBSEX.Text = "Perempuan" Then
jk = "P"
End If
TGLLAHIR = Format(TGLAHIR.Value, "yyyy-mm-dd")
dbwidy.Execute "insert into biodata values('" & TNIM.Text & "','" & TNM.Text & "','" & jk & "','" & TGLLAHIR & "','" & TPLAHIR.Text & "','" & TKLS.Text & "')"
lihatdata
End Sub
Private Sub Form_Load()
koneksi
lihatdata
CBSEX.AddItem "Laki-Laki"
CBSEX.AddItem "Perempuan"
End Sub
Function lihatdata()
Set rswidy = New ADODB.Recordset
rswidy.CursorLocation = adUseClient
rswidy.Open "Select * from BIODATA", dbwidy, adOpenDynamic
Set DataGrid1.DataSource = rswidy
DataGrid1.MarqueeStyle = dbgHighlightRowRaiseCell
DataGrid1.Refresh
End Function
Sedangkan pada Module, ketikkan script di bawah ini :
Public dbwidy As New ADODB.Connection
Public rswidy As New ADODB.Recordset
Function koneksi()
Set dbwidy = New ADODB.Connection
dbwidy.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=widy"
End Function
Setelah semua source code di ketik maka program sudah dapat menyimpan data.. berikut hasilnya :
Begitulah Langkah-Langkah yang dapat saya Jelaskan seputar cara Mengkoneksikan VB dengan MySQL Front…. Serta membuat program untuk menyimpan data…
TERIMA KASIH…. ^^