CARA MENGHUBUNGKAN VB DENGAN DATABASE

1. Buka Access
2. Buat Database + Tabel sampai selesai
3. Buka VB
4. Pilih Project + Component + Pilih Microsoft ADO Data Control 6.0 (OLEDB)
5. Masukkan Componen Tersebut ke Form VB
6. Lakuka Hal sebagai berikut :
1. Klick Kanan muncul Properties ADODC
2. Klick Build
3. Pilih Jembatan sesuai dengan Tipe Acces
4. Pilih Lokasi Database Acces yang anda simpan
5. Klick Tombol Test Connection
6. Jika terjadi kesalahan “DIBACA DAN DI ARTIKAN”
7. Jika Tidak Muncul Test Connectian Sucsess
8. Klik Tombol OKE
9. Di Option “USE CONNECTION STRING” lakukan proses COPY.
10. Lalu Klick tombol CANCEL.
7. Buat Rumus Seperti dibawah ini :

Dim Database As ADODB.Connection

Dim Recor As ADODB.Recordset

Private Sub Form_Load()

Set Database = New ADODB.Connection

Database.Open “Hasil Copy Secara Wizard”

MsgBox “Database Sudah Berhasil Terhubung Ke Visual Basic”

End Sub 

Selesai

CARA MENAMPILKAN ISI DATA DI DATABASE ACCES

1. Pilih Project + Component + Pilih Microsoft Datagrid Control 6.0
2. Datagrid Tersebut di masukkan di Form yang telah di sediakan
3. Buat Tombol Command Button dan CAPTION nya ketik LIHAT ISI DARI DATABASE, Di Name Command Button ketik namanya CMDLIHAT
4. Klick 2 kali di Command Button tersebut.
5. Buat Souce Codingnya sebagai berikut :

Dim K As New ADODB.Recordset

K.CursorLocation = adUseClient

If K.State = 1 Then

 K.Close

End if

                K.Open “SELECT * from buku”, Database, adOpenStatic, adLockReadOnly

Set DataGrid1.DataSource = K

DataGrid1.MarqueeStyle = dbgHighlightRowRaiseCell

DataGrid1.Refresh 

Selesai

KASUS DATA MAHASISWA

Nama Database : Mahasiswa Waktu 60 Menit.

Nama Tabel : TBL_MHS Selesai 10:40 WIB

Nama Field

Filed Name	Type	Field Size
Nim	Text	10
Nama_MHS	Text	30
Alamat	Text	50
SMT	Text	4
Nama_ORTU	Text	30
Pekerjaan	Text	20
Alamat_Ortu	Text	50

- Isikan Minimal 10 Record

- Buat Koneksi VB dengan Access

- Buat Coding Untuk Menampilkan Data di Acces.

Rumus Untuk Validasi Jika Data Yang SUdah ada KitA lakukan Penyimpanan lagi

Private sub CMD_Simpan( )

On Error GoTo ErrSImpan

dB.Execute “insert Into nama_tabel(field1,field2)values(‘” & text1.text & “’,’” & text2.text & “’)”

MsgBox “Data Sudah Berhasil DiProses”, vbInformation, “INFO”

ErrSImpan:

If Err.Number <> 0 Then

If Err.Number = -2147217900 Or Err.Number = -2147467259 Then

MsgBox “DATA SUDAH TERDAFTAR”, vbInformation, “INFORMASI”

Else

MsgBox CStr(Err.Number) & ” ” & Err.Description

End If

End If

End Sub

Private Sub CariData ()

Dim RsC As New ADODB.Recordset

RsC.CursorLocation = adUseClient

SQL=”select kd_brg,apa from tbl_barang where kd_brg=’ ” & text1.text & “ ’ ”

RsC.Open SQL, dB, adOpenStatic, adLockReadOnly

If Not RsC.EOF Then

Text1 = RsC(“Kd_Brg”)

Text2= RsC(“Nama_Brg”)

Combo1=RSC(“satuan”)

Combo2=rsc(“type_brg”)

Text3=rsc(“jumlah”)

MsgBox “Data Ada”, vbInformation, “INFO”

cmdSimpan.enabled=false

Else

Text1=” ”

Text2=” ”

CboPaket.ListIndex = 0

cmdSimpan.enabled=true

End If

RsC.Close

End Sub