Koneksi database & Operasi dasar table VB

Koneksi database & Operasi dasar table di
Visual Basic 6.0
Ikuti kata Hati..!!!
pada kesempatan pertumauan ini mari kita mempelajari koneksi database & operasi dasar tabel di Visual basic. dan harapan saya bisa membantu anda yang ingin mengal dan belajar bahasa pemograman VB,. ok langsung aja ke Tips nya..







A. Koneksi Database.
     Sebagai Latihan awal, buatlah database di Ms.Access Simpan di      D:\nama_nim\data1.mdb. Buatlah table
     dengan nama MHS sebagai berikut

isi data di dalam tabel Mhs. seperti contoh di bawah ini :

Save, kemudian, lihat versi office anda, jika bukan versi 1997 ( office 2000 atau XP ),
maka konversikan ke 1997 format, caranya :
• Klik Tools, Database utilities, Convert database, to Access 97 format.

simpan di folder yang sama, beri nama dataku.mdb, klik ok, kini tersedia database dengan nama dataku dengan Ms.Access versi 97.

Keluar dari Ms.access. Mulailah bekerja dengan Microsoft Visual Basic 6.0.(VB). Koneksi Database di VB bisa menggunakan Data control, BDE atau komponen ADODC. Serta Database yang digunakan bisa dBase,MySQL,SQLserver, Ms.Access, dsb. Namun, dalam praktek yang saya bawakan kali ini, kita akan mencoba koneksi menggunakan Data dengan Database Ms. Access.

Langkah – Langkahnya :

• Masukkan Komponen Label,Text,Command, Data, dan DBGrid, ke dalam Form aktif/ form kerja kita,namun, kadangkala DB Grid tidak otomatis ada, maka kita menambah komponen dengan cara klik kanan toolbox, klik

Components :

• Pilih Microsoft Databound Grid Control 5.0 (SP3), Klik Apply,klik close.
• • Sekarang buat tampilan sebagai berikut dengan objek
• text,label,command,data, dan DB Grid

Simpan form & Projectnya di folder tempat anda menyimpan database.

• Cara memasukkan script adalah double click pada objeknya, berikut listing /

script programingnya :

1. Pada Form ( Untuk Koneksi Data1 ke database access versi 97 )

Private Sub Form_Load()

Data1.DatabaseName = App.Path + "\dataku.mdb"

Data1.RecordSource = "Mhs"

End Sub

2. Pada Text1 ( Ingat eventnya Keypress bukan change ) :

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

 End Sub

3. Pada text 2 :

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text3.SetFocus

End If

End Sub

4. Pada text 3 :

Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Command1.SetFocus

End If

End Sub

5. Pada Command1 :

Private Sub Command1_Click()

Data1.Recordset.AddNew

Data1.Recordset("Nim") = Text1.Text

Data1.Recordset("Nama") = Text2.Text

Data1.Recordset("Alamat") = Text3.Text

Data1.Recordset.Update

Command5.Value = True

End Sub

6. Pada Command2 :

Private Sub Command2_Click()

Data1.Recordset.Delete

Data1.Refresh

Command5.Value = True

End Sub

7. Pada Command3 :

Private Sub Command3_Click()

Data1.Recordset.Edit

Data1.Recordset("Nim") = Text1.Text

Data1.Recordset("Nama") = Text2.Text

Data1.Recordset("Alamat") = Text3.Text

Data1.Recordset.Update

Command5.Value = True

End Sub

8. Pada Command4 :

Private Sub Command4_Click()

Data1.Recordset.MoveFirst

i = 1

j = Data1.Recordset.RecordCount

While i < j

If Data1.Recordset("Nim") = Text1.Text Then

Text2.Text = Data1.Recordset("Nama")

Text3.Text = Data1.Recordset("alamat")

k = j - i

i = (i + k)

Data1.Recordset.MovePrevious

End If

i = i + 1

Data1.Recordset.MoveNext

Wend

End Sub

9. Pada Command5 :

Private Sub Command5_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text1.SetFocus

End Sub

10. Pada Command6 :

Private Sub Command6_Click()

Unload Me

End Sub

 Sekarang Run Program anda. Jika merasa belum puas edit dan perbaikilah tampilan form anda.Jika ingin memperdalam lagi, janganlah berhenti belajar sampai disini, karena masih banyak rahasia – rahasia VB yang mungkin belum anda ketahui masih sebagai misteri bagi anda dan saya, Jangan pernah menyerah, teruslah belajar.