Cara Gampang Input Ke Database Dengan Vb 6.0

Pada Tutorial VB 6.0 Kali ini akan dibahas mengenai Cara Input Kedalam Database dengan VB 6.0. Langkahnya sangat mudah, anda dapat ikuti eksklusif tutorial kami dibawah ini :

Buatlah Database dengan nama : DBJNM.mdb
Kemudian anda buat tabel dengan nama : TBL_ANGGOTA

Jika anda malas menciptakan dan ingin mendonwload eksklusif database dan tabel diatas

Silahkan KLIK DISINI untuk mendownloadnya.

Buatlah Sebuah Folder
Kemudian masukan database yang telah anda buat kedalam folder tersebut

Buka aplikasi VB 6.0 anda
Simpan Project VB 6.0 pada Folder yang telah anda buat diatas
Buatlah Design Form1 menyerupai gambar dibawah ini :

Jika sudah menciptakan sebuah form menyerupai gambar diatas
Masukan koding dibawah ini :

  Dim Koneksi As New ADODB.Connection Dim RSAnggota As ADODB.Recordset Sub BukaDB() Set Koneksi = New ADODB.Connection Set RSAnggota = New ADODB.Recordset Koneksi.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DBJNM.mdb" End Sub  Private Sub Form_Activate() Text1 = "" Text2 = "" Text3 = "" Text4 = "" Call BukaDB Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\DBJNM.mdb; " Adodc1.RecordSource = "TBL_ANGGOTA" Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 End Sub  Private Sub Command1_Click() Call BukaDB If Text1 = "" Or Text2 = "" Or Text3 = "" Or Text4 = "" Then MsgBox "Data Belum Lengkap" Else Dim TambahAnggota As String     TambahAnggota = "Insert Into TBL_ANGGOTA values ('" & Text1 & "','" & Text2 & "','" & Text3 & "','" & Text4 & "')"     Koneksi.Execute TambahAnggota     MsgBox "Data Berhasil Ditambah", vbInformation, "Pemberitahuan"     Form_Activate End If End Sub Private Sub Command2_Click() End End Sub 

Jalankan Project anda..dan selamat anda telah sukses menginput data kedalam database

Silahkan KLIK DISINI untuk mendownload Sourcecode diatas

Demikian Cara Praktis Input Ke Database Dengan VB 6.0 - Semoga bermanfaat salam JavaNetMedia.....

Silahkan Klik Disini Tutorial Hapus Data Menggunakan VB 6.0
Silahkan Klik Disini Tutorial Edit Data Menggunakan VB 6.0

Share this post