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

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: