VB – ODBC – MySQL 5.1 - Hallo sahabat Sinau Bareng Yuk!, Pada Artikel yang anda baca kali ini dengan judul VB – ODBC – MySQL 5.1, kami telah mempersiapkan artikel ini dengan baik untuk anda baca dan ambil informasi didalamnya. mudah-mudahan isi postingan Artikel Tugas, Artikel Visual Basic, yang kami tulis ini dapat anda pahami. baiklah, selamat membaca.

Judul : VB – ODBC – MySQL 5.1
link : VB – ODBC – MySQL 5.1

VB – ODBC – MySQL 5.1

VB – ODBC – MySQL 5.1

1. Siapkan Database Penjualan
Buat Tabel Barang :
Kdbarang char(10) PK
Nmbarang char(20)
Satuan char(15)
Harga int(10)
Isi minimal 5 record

2. Mengatur ODBC
Start Control Panel Administrative Tools
Pilih Data Source ( ODBC ) Add Pilih Nama Driver ( MySql ODBC 5.1 )
Klik Finish.
Yang Diatur :
Data Source Name : Diisi dengan nama alias dari database.
Aturan Nama alias :
- Boleh sama dengan database
- Boleh mirip dengan database
- Boleh beda dengan database
Untuk latihan hari ini isi dengan : Penjualan.
Password & User : root
Database : Pilih di combo nama database yang dimaksud.
Klik Test ( bila berhasil ada kotak dialog sucessfuly ).
Klik OK.

3. Siapkan Form VB sebagai berikut :

FORM MASTER BARANG

Kode Barang :
Nama Barang :
Satuan :
Harga :

First Prev Next Last
Save Cancel Delete AddNew Quit

4. ADODC & VB
Memunculkan Tool ADODC & Data Grid :
Pilih menu Project Component ( Ctrl + T ).
Pilih / centang di :
1. Microsoft ADO Data Control 6 (OLEDB)
2. Microsoft Data Grid 6 (OLEDB)
Klik Aplly Close ( sehingga muncul ADODC & Data Grid di Toolbox ).
Gambar / seret ADODC & Data Grid ke dalam Form.
Atur properties :
ADODC name : ADOxxx xxx = nama tabel
Data Grid name : DGridxxx xxx = nama tabel
Mengatur Koneksi ADODC ke ODBC :
1. Klik Kanan di ADODC ADODC Properties
2. Klik Tab General Use Data Source ODBC Pilih nama alias yang diatur tadi di Combo Klik Apply
3. Klik Tab Record Source :
- Command Type : Pilih 2 add cmd table
- Table or Stored : Pilih nama table di Combo
4. Klik Apply Close / OK
Catatan : 1 ADODC = 1 Tabel

5. Mengatur Koneksi Textbox & Data Grid ke ADODC
Atur Properties dari :
Textbox Kode Barang :
Data Source : Pilih di Combo name ADODC yang diatur tadi
Data Field : Pilih di Combo nama field yang dituju
Dst s/d Textbox Harga ( seperti Textbox Kode Barang )
Data Grid :
Data Source : Pilih di Combo name ADODC yang diatur tadi
Klik Kanan di Data Grid : Pilih Retrieve Field Klik Yes ( untuk memunculkan secara visual Field dari tabel yang di SQL )

6. Mengisi Sintak di Tombol Command
Tombol Navigasi ( First, Prev, Next dan Last )
Misal name tombol First : CmdFirst dan name ADODC : ADOBarang.
Maka :
Ketika tombol First diklik
Recordsetnya ADODC Barang Move First
Akhiri Sub
Menjadi :
Private Sub CmdFirst_Click()
ADOBarang.Recordset.MoveFirst
End Sub

7. Pengembangan Logika pada Tombol First :
* Ketika Tombol Prev diklik
Jika recordsetnya ADODC di BOF / Begin Of File Maka
Recordsetnya ADODC MoveLast
Selainnya itu
Recordsetnya ADODC MovePrev
Akhiri If
Akhiri Sub

Menjadi :
Private Sub CmdPrev_Click()
If ADOBarang.Recordset.BOF Then
ADOBarang.Recordset.MoveLast
Else
ADOBarang.Recordset.MovePrev
End If
End Sub

* Ketika Tombol Save diklik
Recordsetnya ADODC!kdbrg diisi dengan teksnya Textbox Kode
Dst s/d Harga
Recordsetnya ADODC Save
Akhiri Sub

Menjadi :
Private Sub CmdSave_Click()
ADOBarang.Recordset!Kdbrg=TxtKdBrg.Text
ADOBarang.Recordset!NmBrg=TxtNmbrg.Text
ADOBarang.Recordset!Satuan=TxtSatuan.Text
ADOBarang.Recordset!Harga=TxtHarga.Text
ADOBarang.Recordset.Save
End Sub

Kode Program Form Master Barang :

Private Sub cmdadd_Click()
Adobarang.Recordset.AddNew
txtkdbrg.SetFocus
End Sub

Private Sub cmdcancel_Click()
txtkdbrg.Text = ""
txtnmbrg.Text = ""
txtsatuan.Text = ""
txtharga.Text = ""
txtkdbrg.SetFocus
End Sub

Private Sub cmddelete_Click()
Adobarang.Recordset.Delete
End Sub

Private Sub cmdfirst_Click()
Adobarang.Recordset.MoveFirst
End Sub

Private Sub cmdlast_Click()
Adobarang.Recordset.MoveLast
End Sub

Private Sub cmdnext_Click()
If Adobarang.Recordset.EOF Then
Adobarang.Recordset.MoveFirst
Else
Adobarang.Recordset.MoveNext
End If
End Sub

Private Sub cmdprev_Click()
If Adobarang.Recordset.BOF Then
Adobarang.Recordset.MoveLast
Else
Adobarang.Recordset.MovePrevious
End If
End Sub

Private Sub cmdquit_Click()
Unload Me
End Sub

Private Sub cmdsave_Click()
With Adobarang.Recordset
!kdbarang = txtkdbrg.Text
!nmbarang = txtnmbrg.Text
!satuan = txtsatuan.Text
!harga = txtharga.Text
End With
Adobarang.Recordset.Save
End Sub

Demikianlah Artikel VB – ODBC – MySQL 5.1

Sekianlah artikel VB – ODBC – MySQL 5.1 kali ini, mudah-mudahan bisa memberi manfaat untuk anda semua. baiklah, sampai jumpa di postingan artikel lainnya.

Anda sekarang membaca artikel VB – ODBC – MySQL 5.1 dengan alamat link http://soeltonyahmad.blogspot.com/2012/01/vb-odbc-mysql-51.html