Tutorial Membuat Aplikasi Sederhana Di Vb Dengan ADO

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

  1. 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

  1. 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

Advertisements

~ by edibaladewa85 on November 12, 2009.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

 
%d bloggers like this: