Gelandang Internet yang mencoba melewati lorong sempit tanpa batas ruang dan waktu
Joint Venture Adsense

Cara Koneksi Database Menggunakan Modul di VB

· · 0 comments
Assalamu’alaikum, wr.wb

Membuat modul koneksi database di Visual Basic – Selamat datang kembali rekan-rekan di blog mungil ini. Banyak cara untuk koneksi database yang telah kita buat dengan bahasa pemograman Visual Basic (VB). Bisa dengan Data, AdoDc atau menggunakan modul. Ketiga cara tersebut merupakan suatu jembatan penghubung antara program yang kita buat dengan database sebagai penampung data.

Kelebihan koneksi database menggunakan modul yaitu kita dapat memanggil modul dengan perintah coding tanpa menggunakan data atau AdoDc. Ditulisan ini kita akan belajar bagaimana cara koneksi database acces dengan VB (visual basic) menggunakan perintah modul.
Pastikan pada komponen dan reference sudah aktif pilihan berikut :

cara buat modul koneksi database VB

Untuk seting reference silakan klik project --> Reference

Cara koneksi databse dengan modul

Saya aumsikan kita sudah mempunyai database dengan nama abdusatri.mdb dengan nama tabel masteranggota yang terdiri dari data field Nama, Umur, Alamat, dan Jabatan. Tambahkan sebuah modul dengan koding berikut :

Global conn As ADODB.Connection
Sub koneksi()
Set conn = New ADODB.Connection
conn.Provider = "microsoft.jet.oledb.4.0"
conn.CursorLocation = adUseClient
conn.Open App.Path & "\abdusatri.mdb"
End Sub

Buat tampilan program seperti dibawah ini : 

cara menghubungkan database dengan program VB

Masukan mantera dibawah ini :

Private Sub Form_Load()
Move (Screen.Width - Width) / 2, (Screen.Height - Height) * 0.5
koneksi
refreshDG
End Sub

Sub refreshDG()
Set dtanggota = New ADODB.Recordset
dtanggota.LockType = adLockOptimistic
dtanggota.CursorType = adOpenDynamic
dtanggota.Open "select * from masteranggota", conn, , , adCmdText
Set DG1.DataSource = dtanggota
End Sub

Private Sub DG1_Click()
On Error GoTo pesan
tmpnama = DG1.Columns(1).Text
Text1.Text = DG1.Columns(0).Text
Text2.Text = DG1.Columns(1).Text
Text3.Text = DG1.Columns(2).Text
Text4.Text = DG1.Columns(3).Text
Exit Sub
End Sub

Private Sub CLEARTEXT()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub

Private Sub Command1_Click()
Dim tanya
tanya = MsgBox("Apakah Data Telah Diisi Lengkap?", vbQuestion + vbYesNo)
If tanya = vbYes Then
Set dtanggota = New ADODB.Recordset\
dtanggota.LockType = adLockOptimistic
dtanggota.CursorType = adOpenDynamic
dtanggota.Open "select * from masteranggota ", conn, , , adCmdText
With dtanggota
.AddNew
!nama = Text1.Text
!umur = Text2.Text
!alamat = Text3.Text
!jabatan = Text4.Text
.Update
End With
MsgBox "Data Telah Tersimpan", vbInformation
refreshDG
CLEARTEXT
Text1.SetFocus
Else
CLEARTEXT
End If
End Sub

Private Sub Command2_Click()
End
End Sub

Demikian contoh sederhana cara koneksi database acces menggunakan modul. Baik menggunakan modul, data atau AdoDc saya kira sama saja. Pilihlah yang dianggap mudah. Moga bermanfaat. Begitulah.

Baca juga --> Cara membuat browser sederhana dengan Visual Basic

0 comments:

Post a Comment

- Komentar yang mengandung hujatan, negatif akan dianggap spam
- Komentar link akan dilaporkan ke posyandu terdekat & tidak akan ditampilkan