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 :
Untuk seting reference silakan klik project --> Reference
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 :
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
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 :
Untuk seting reference silakan klik project --> Reference
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 :
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
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