Akses MySQL With VB 6.0

Setelah semua langkah di atas selesai, maka saatnya untuk mengakses Database yang telah kita buat tadi dengan menggunakan VisualBasic. Buka project baru, dalam form tambahkan 4 komponen ADODC, 4 Komponen Datagrid, 1 Textbox dan 1 CommandButton, seperti gambar di bawah ini.

Dalam form tulis code seperti di bawah ini.

    Dim MySqlString As String
    Dim strServerName As String
    Dim strUserName As String
    Dim strPassword As String
    Dim strDataBaseName As String

Private Function ConnectString() As String
    strServerName = "localhost"
    strDataBaseName = "tutorialmysqlvb6offline"
    strUserName = "TutorMySQL"
    strPassword = "TutorMySQLVB6"
    
    ConnectString = "DRIVER={MySQL ODBC 5.1 Driver};" & _
    "SERVER=" & strServerName & _
    ";DATABASE=" & strDataBaseName & ";" & _
    "USER=" & strUserName & _
    ";PASSWORD=" & strPassword & _
    ";OPTION=3;"
End Function

Private Sub Form_Load()
    Me.Adodc1.ConnectionString = ConnectString
    Me.Adodc2.ConnectionString = ConnectString
    Me.Adodc3.ConnectionString = ConnectString
    Me.Adodc4.ConnectionString = ConnectString
    
    MySqlString = "SELECT * From TblKelas"
    Me.Adodc1.RecordSource = MySqlString
    Set Me.DataGrid1.DataSource = Me.Adodc1
    
    MySqlString = "SELECT * From TblBiodata"
    Me.Adodc2.RecordSource = MySqlString
    Set Me.DataGrid2.DataSource = Me.Adodc2
    
    MySqlString = "SELECT * From TblNilai"
    Me.Adodc3.RecordSource = MySqlString
    Set Me.DataGrid3.DataSource = Me.Adodc3
End Sub

Private Sub Command1_Click()
    MySqlString = Me.Text1.Text
    Me.Adodc4.RecordSource = MySqlString
    Set Me.DataGrid4.DataSource = Me.Adodc4
    Adodc4.Refresh
End Sub

Coba Anda jalankan dan dalam text1 tulis SQL (Structure Query Language) untuk mengakse Database tutorialmysqlvb6offline, Untuk contoh Syntax SQL antara lain:

Syntax SELECT : SELECT TblKelas.NIS,NAMA From TblKelas
Syntax WHERE : SELECT * From TblBiodata where TblBiodata.tempatlahir='SEMARANG'
Syntax AND: SELECT * From TblBiodata where TblBiodata.TempatLahir='Semarang' AND TblBiodata.JK='L'
Syntax OR : SELECT TblNilai.NIS,PKn,SEJ From TblNilai where TblNilai.PKn>=90 OR TblNilai.SEJ>=90
Syntax ORDER : SELECT * From TblBiodata ORDER BY TblBiodata.NIS DESC
Syntax DISTINCT : SELECT DISTINCT TblBiodata.tempatlahir From TblBiodata
dan lain-lain

Jika semua langkah dari awal artikel telah anda terapkan sama persis, baik password, username, host, setingan ODBCmaka Anda dapat belajar syntax lainnya dengan mendownload aplikasi yang telah saya buat yaitu TutorialMySQLWithVB6 seperti screenshot di bawah ini, di link download aplikasi ini.

Akhirnya selesai juga, semoga bermanfaat...^_^

2 comments:

Anis Pramonohadi,MrJuly 23, 2012 7:12 PM

Thanks infonya.
Sekalian mau nanya. saya sudah punya aplikasi dengan vb, database dengan mysql. Cara upload di webserver local bagaimana? Webserver pakai xampp. Thanks
Reply
Untung mujiyonoJuly 30, 2012 6:20 AM

Tanya om :
aku klik link download yang ada di (Selanjutnya Anda bisa coba-coba membuat tabel dalam database tutorialmysqlvb6offline ini, untuk mudahnya, saat ini Anda dapat mendownload Tabel-tabel dalam Database tutorialmysqlvb6offline tersebut dengan klik di link download ini, kemudian melalui phpMyAdmin tersebut anda dapat mengimport file yang telah anda download. Klik tombol Importuntuk mulai Import.)

kok munculnya:

Akses ke laman web ditolak
Anda tidak berhak mengakses laman web di https://doc-10-ag-docs.googleusercontent.com/docs/securesc/o0q27dce7ft6q3tg1a8f0scjk7001bgb/4g8g9eto6m14vuhefd4poab7ubmef8c1/1341259200000/07339931595619527726/07339931595619527726/0B17lWDxDzoE8c0M0LVVRTkFzVlU?e=download&nonce=vfslhm9u5uttc&user=07339931595619527726&hash=pk5p62ejsss49hvamfj4d7u8pichu4na. Anda mungkin harus masuk.
Kesalahan HTTP 403 (Forbidden): Server menolak untuk memenuhi permintaan.

SOFTRIXOM