Menyimpan/Menginput Data Dari Visual Basic 6.0 ke Microsoft Access

Langsunga ajadehh..

Yang pertama

Buka program visual basic 6.0 anda..
Lalu pilih Standart EXE dan Open

 Setelah diOpen  Buatlah 3 buah label dan ubahlah Propertiesnya

AutoSiza = True
BackStyle = 0-Transparent
Caption = Nama
Font = Arila Narrow size = 12

maka akan terbentuk seperti ini

 

agar tidak memperlama proses pembuatan
copy saja label dan Paste kan pada form, setelah itu muncul Kotak dialong dengan tulisan

You already have a control named ‘Label1’. Do you want to create a control array?

Pilih No saja

“agar tidak terjadi persamaan nama”

Buatlah Seperti Ini

Dan hanya merubah Captionnya saja
menjadi Umur dan Sekolah seperti ini

Yang kedua
buatlah 1 buah TextBox

Dan ubahlah Propertiesnya Seperti ini

Text =
“hapus text1nya”
Font = Arila Narrow size = 12

Agar mempersingkat copy lah TextBox yang pertama tadi menjadi 3,
seperti ini

Buatlah 4 buah Button
dan ubahlah masing2 Captionnya yang  1.Simpan  2.Hapus  3.Keluar  4. Cari Data

setelah itu buka Microsoft Access  anda versi berapaun jadi
kalau punya saya 2010

jangan d tutup program VB nya ya

Dan buatah database dengan formatnya 2003 (.mdb)
"Taukan???"
dan tabel dengan nama "tb1"

Buatlah Field Name nya sama seperti di Visual Bassic tadi
dengan format seperti ini
ubah Field Siza sesuai kebutuhan

kalau saya 30 saja

Setelah itu klik view

seteleh itu Close MS Access nya buka Program Visual Basic yg tadi
simpan dulu projectnya dengan cara
Klik File – Save Project
letakkan project di tempat dimana kita simpan Data Base Access tadi, klau punya saya di D:\Latihan1\

pilih Save begitu juga yang selanjutnya

lalu klik Project  pilih References..

Lalu muncul kotak dialog seperti ini
cari Microsoft ActiveX Data Object 2.8 Library

dan centang lah, setelah itu OK

Masuk ke jendela Coding, klik pada View Cade di sebelah kanan atas

ketiklah coding berikut
'variabel koneksi

Public kon As New ADODB.Connection
Public rs1 As New ADODB.Recordset

 

'untuk koneksi databases

Private Sub Form_Activate()
Set kon = New ADODB.Connection
Set rs1 = New ADODB.Recordset
kon.Open "provider=Microsoft.jet.oledb.4.0;data source=" & App.Path & "\latihan1.mdb"
'menampilkan data dari databases
Adodc1.ConnectionString = kon
Adodc1.RecordSource = "tb1"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub

lalu klik View Object yang berada di sebelah kanan View Code di atas

pada tombol simpan klik 2x ketikkan code berikut

Private Sub Command1_Click()
If Text1 = "" Or Text2 = "" Or Text3 = "" Then
MsgBox "Data Belum Lengkap...!", vbInformation, "Informasi"
Else
Dim SQLTambah As String
SQLTambah = "insert into tb1 (Nama,Umur, Sekolah) values ('" _
& Text1 & "','" & Text2 & "','" & Text3 & "')"
kon.Execute SQLTambah
Text1 = ""
Text2 = ""
Text3 = ""
Form_Activate()
End If
End Sub

Klik 2 x pada tombol Cari Data, ketikkan code berikut

Private Sub Command4_Click()

rs1.Open "select * from tb1 where Nama = '" & Text1 & "'", kon
If Not rs1.EOF Then
    Text2 = rs1!Umur
    Text3 = rs1!Sekolah
MsgBox "Data Ada, Berhasil di Tampilkan", vbInformation, "Informasi"
Else
    MsgBox "Data yang anda cari tidak ada", vbInformation, "Ada Informasi!!!!!"
Form_Activate
End If
End Sub

Klik 2x pada tombol Hapus, ketikkan Code Berikut

Private Sub Command2_Click()
Dim hps As String
hps = "delete from tb1 where Nama = '" & Text1 & "'"
kon.Execute hps
MsgBox "Data Berhasil di Hapus", vbInformation, "we ada informasi"
Text1 = ""
Text2 = ""
Text3 = ""
Form_Activate
End Sub

Dan klik 2x pada tombol Keluar Ketikkan Code Berikut

Private Sub Command3_Click()
End
End Sub


Selesai deh
tinggal Run aja

Ini Hasilnya

Download juga Projectnya di sini DOWNLOAD
Lihat juga pelajaran selanjutnya di sini

Menampilkan Database Access di Form Visual Basic 6.0