Assalamu'alaikum, wr.wb
Cara Koneksi Database Access di Visual Basic 6.0 (VB) dengan AdoDc - Pada sharing posting ketiga ini tentang bahasa pemograman VB (visual basic) mengenai cara konekkan database ekstensi file *mdb acces baik yang database yang di create dengan VisData menggunakan Visual Data Manager bawaan VB (Visual Basic) yang telah kita bahas sebelumnya maupun dari microsoft access sendiri, karena konsepnya sama. sebelum mempelajari koneksi database access di VB (Visual Basic) 6.0 bagi sobat yang belum paham pembuatan database access silahkan pelajari sharing saya beberapa waktu lalu disini, karena program sederhana yang akan kita buat kali ini tidak akan membahas cara create database sebab kita akan menggunakan database yang sudah ada (red.postingan lalu).
Ada beberapa cara untuk koneksi database di Visual Basic, yang pertama dengan menggunakan Tool Data dan AdoDc sebagai penghubung database dengan Visual basic (VB), dan selain dua cara tersebut ada juga yang menggunakan modul sebagai mediasi pengkonekan database, untuk yang menggunakan modul dalam koneksi database tentunya tidak dapat dilakukan oleh orang-orang biasa seperti saya, xixixixixixixi.
Baik sobat, AdoDc adalah tool pilihan saya yang akan kita bahas dalam postingan blog pecundang kali ini. Sebelum melakukan aksi silahkan berdo'a dulu (point penting yang selalu saya tekankan disetiap postingan), siapkan cemilan murah ajah seperti kacang sukro (tanpa bermaksud iklan yee) supaya terlihat lebih hemat dan tabungan hajinya tidak berkurang, wkwkw.amboii.amboii.
Pertama aktifkan dulu tool AdoDc dan data Grid nya, tekan Ctrl + T untuk menambah komponen.
Desain program entri data buku seperti dibawah ini, untuk ukuran, warna, kata-kata label sesuaikan dengan selera sobat masing-masing. karena sampai hari ini masih banyak sahabat saya yang suka warna pink, jiahahaha.
Klik kanan AdoDc sesuai gambar untuk langkah koneksi ke database yang telah dibuat
Pilih tab provider dan select sesuai mantra dibawah ini
pilih database yang telah dibuat sebelumnya, ingat tempat penyimpanannya ya sob :)
Test dulu koneksi ke databasenya dengan klik tombol test connection, jika tampil seperti gambar dibawah ini berarti anda beruntung, jika tidak do'anya kurang manjur kali ya, hehehe. ganti cemilan dengan produk yang agak mahal walau warung tempat jualnya agak jauh (mungkin anda mengerti apa yang saya maksud).
Pada tampilan AdoDc setelah diklik kanan diatas pilih tab recordSource untuk menambahkan nama daftar tabel yang telah kita create di database sebelumnya. sampai disini nyali sobat kembali diuji untuk mengingat filename tabel yang telah dibuat, xixixixi.
Selanjutnya sikronkan DataGrid dengan AdoDc seperti mantra screen shoot yang saya buat dibawah ini
Okeh selanjutnya masukan coding di command 1 simpan
Penampakan program setelah melalui serangkaian acara yang kita lakukan diatas, mulai dari pembukaan MC sampai penutupan do'a.
Naahhhh... ituh! tata cara koneksi database acces di Visual Basic (VB) menggunakan AdoDc dilengkapi dengan fitur penyimpanan data. Muda-mudahan bermanfaat bagi bangsa dan agama. Selanjutnya untuk menambah fitur pengubahan data, penghapusan data, Insyaallah akan kita share lagi dilain kesempatan. soalnya saya sudah capek broh..!!
Cara Koneksi Database Access di Visual Basic 6.0 (VB) dengan AdoDc - Pada sharing posting ketiga ini tentang bahasa pemograman VB (visual basic) mengenai cara konekkan database ekstensi file *mdb acces baik yang database yang di create dengan VisData menggunakan Visual Data Manager bawaan VB (Visual Basic) yang telah kita bahas sebelumnya maupun dari microsoft access sendiri, karena konsepnya sama. sebelum mempelajari koneksi database access di VB (Visual Basic) 6.0 bagi sobat yang belum paham pembuatan database access silahkan pelajari sharing saya beberapa waktu lalu disini, karena program sederhana yang akan kita buat kali ini tidak akan membahas cara create database sebab kita akan menggunakan database yang sudah ada (red.postingan lalu).
Ada beberapa cara untuk koneksi database di Visual Basic, yang pertama dengan menggunakan Tool Data dan AdoDc sebagai penghubung database dengan Visual basic (VB), dan selain dua cara tersebut ada juga yang menggunakan modul sebagai mediasi pengkonekan database, untuk yang menggunakan modul dalam koneksi database tentunya tidak dapat dilakukan oleh orang-orang biasa seperti saya, xixixixixixixi.
Baik sobat, AdoDc adalah tool pilihan saya yang akan kita bahas dalam postingan blog pecundang kali ini. Sebelum melakukan aksi silahkan berdo'a dulu (point penting yang selalu saya tekankan disetiap postingan), siapkan cemilan murah ajah seperti kacang sukro (tanpa bermaksud iklan yee) supaya terlihat lebih hemat dan tabungan hajinya tidak berkurang, wkwkw.amboii.amboii.
Pertama aktifkan dulu tool AdoDc dan data Grid nya, tekan Ctrl + T untuk menambah komponen.
Desain program entri data buku seperti dibawah ini, untuk ukuran, warna, kata-kata label sesuaikan dengan selera sobat masing-masing. karena sampai hari ini masih banyak sahabat saya yang suka warna pink, jiahahaha.
Klik kanan AdoDc sesuai gambar untuk langkah koneksi ke database yang telah dibuat
Pilih tab provider dan select sesuai mantra dibawah ini
pilih database yang telah dibuat sebelumnya, ingat tempat penyimpanannya ya sob :)
Test dulu koneksi ke databasenya dengan klik tombol test connection, jika tampil seperti gambar dibawah ini berarti anda beruntung, jika tidak do'anya kurang manjur kali ya, hehehe. ganti cemilan dengan produk yang agak mahal walau warung tempat jualnya agak jauh (mungkin anda mengerti apa yang saya maksud).
Pada tampilan AdoDc setelah diklik kanan diatas pilih tab recordSource untuk menambahkan nama daftar tabel yang telah kita create di database sebelumnya. sampai disini nyali sobat kembali diuji untuk mengingat filename tabel yang telah dibuat, xixixixi.
Selanjutnya sikronkan DataGrid dengan AdoDc seperti mantra screen shoot yang saya buat dibawah ini
Okeh selanjutnya masukan coding di command 1 simpan
Private Sub Command1_Click()
If Not Text1.Text = Empty Then
With Adodc1.recordset
If Not .BOF = True Then
.MoveFirst
.Find "kode='" & Text1.Text & "'"
If Not .EOF Then
!kode = Text1.Text
!judulbuku = Text2.Text
!penulis = Text3.Text
!tahunterbit = Text4.Text
.Update
Else
.AddNew
!kode = Text1.Text ' prses pnyimpnan,!kode(adlah field dtabase)Text1.text (yg di form)
!judulbuku = Text2.Text
!penulis = Text3.Text
!tahunterbit = Text4.Text
.Update
End If
Else
.AddNew
!kode = Text1.Text
!judulbuku = Text2.Text
!penulis = Text3.Text
!tahunterbit = Text4.Text
.Update
End If
DataGrid1.Refresh
End With
End If
Dim p As Integer
p = MsgBox("Isi Data Lagi ?", vbInformation + vbYesNo, "Aplikasi Perpustakaan Danish. F")
If p = vbYes Then
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text3.Text = ""
Text4.Text = ""
Text1.SetFocus
Else
End
End If
End Sub
If Not Text1.Text = Empty Then
With Adodc1.recordset
If Not .BOF = True Then
.MoveFirst
.Find "kode='" & Text1.Text & "'"
If Not .EOF Then
!kode = Text1.Text
!judulbuku = Text2.Text
!penulis = Text3.Text
!tahunterbit = Text4.Text
.Update
Else
.AddNew
!kode = Text1.Text ' prses pnyimpnan,!kode(adlah field dtabase)Text1.text (yg di form)
!judulbuku = Text2.Text
!penulis = Text3.Text
!tahunterbit = Text4.Text
.Update
End If
Else
.AddNew
!kode = Text1.Text
!judulbuku = Text2.Text
!penulis = Text3.Text
!tahunterbit = Text4.Text
.Update
End If
DataGrid1.Refresh
End With
End If
Dim p As Integer
p = MsgBox("Isi Data Lagi ?", vbInformation + vbYesNo, "Aplikasi Perpustakaan Danish. F")
If p = vbYes Then
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text3.Text = ""
Text4.Text = ""
Text1.SetFocus
Else
End
End If
End Sub
Coding formula untuk commad 2 bersih (jika data yang kita masukkan ada kesalahan sebelum penyimpanan dilakukan)
Private Sub Command2_Click()
Text1.Text = "" 'pengosongan
Text2.Text = ""
Text3.Text = ""
Text3.Text = ""
Text4.Text = ""
Text1.SetFocus ' untuk memindahkan kursor otomatis ke entri kode
End Sub
Text1.Text = "" 'pengosongan
Text2.Text = ""
Text3.Text = ""
Text3.Text = ""
Text4.Text = ""
Text1.SetFocus ' untuk memindahkan kursor otomatis ke entri kode
End Sub
Coding untuk tombol keluar
Private Sub Command3_Click()
End
End Sub
End
End Sub
Penampakan program setelah melalui serangkaian acara yang kita lakukan diatas, mulai dari pembukaan MC sampai penutupan do'a.
Naahhhh... ituh! tata cara koneksi database acces di Visual Basic (VB) menggunakan AdoDc dilengkapi dengan fitur penyimpanan data. Muda-mudahan bermanfaat bagi bangsa dan agama. Selanjutnya untuk menambah fitur pengubahan data, penghapusan data, Insyaallah akan kita share lagi dilain kesempatan. soalnya saya sudah capek broh..!!
13 Sya'ban 1435 H/ 11 Juni 2014
Semburat lembayung senja kembali kami saksiskan
bergelayut manja diujung barat cakrawala Riau
Content Creator by : DAnish FathurRahman
code button comand1 gak lengkap tuh bang,,
ReplyDeleteterima kasih atas koreksinya mas.
Deletesekarang dah fix. kayaknya copy codingnya dulu dalam keadaan ngantuk kali ya, hehe
gan comand1 gak raning yg masuk cuma text1 yg lain gak kesimpen dan terbit
DeleteJajakalloh khoerun katsiro.....Akhsan ya akhi....
ReplyDeletemoga bermanfaat. akhi. :)
Deletemohon maaf, kok ketika saya klik tombol simpan masih error ya ? tolong dong saya lagi butuh banget ini maetri he
ReplyDeleteterimakasih
copykan aja script diatas itu om. properti setiap command biarkan standar aja. command simpan berarti comand1
DeleteMaaf mbak kalau pakai database acces bagaimana ya berformat mdb saya pakai vb net 2010? saya sudah pastekan code ini,
ReplyDeleteWith Me.Adodc2.Recordset
!stokbarang = Val(Text10.Text) - Val(Text2.Text)
.Update
End With
tapi Adodc2.Recordset error mbak, makasih..