Cara Mudah 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 bisa ikuti langsung tutorial kami dibawah ini :

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

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 seperti gambar dibawah ini :

Jika sudah membuat sebuah form seperti 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