Untuk membuat program ACC sederhana dengan menggunakan
VB 6.0, lakukan langkah-langkah berikut:
- Buat database "db_dinas2an"
- Buat tabel "tb_usul" dengan field seperti berikut
- Buat tabel "tb_acc" dengan field sepert berikut
- Buat design form seperti berikut
- Buat sebuah "Module" untuk koneksi
'mendeklarasikan variabel DB sebagai Koneksi ADODB
Public DB As New ADODB.Connection
'mendeklarasikan variabel rs sebagai recordset ADODB
'//recordset digunakan untuk memanipulasi atau mengolah data dari database//
Public rs As ADODB.Recordset
'mendeklarasikan variabel sql dengan tipe data string
'//sql digunakan untuk mendapatkan nilai dari suatu tabel//
Public sql As String
'mendeklarasikan variabel db_name dengan tipe data string
'//db_name adalah nama database//
Dim db_name As String
'mendeklarasikan variabel db_server dengan tipe data string
'//db_server adalah server database//
Dim db_server As String
'mendeklarasikan variabel db_port dengan tipe data string
'//db_port adalah port database//
Dim db_port As String
'mendeklarasikan variabel db_user dengan tipe data string
'//db_user adalah username database//
Dim db_user As String
'mendeklarasikan variabel db_pass dengan tipe data string
'//db_pass adalah password database//
Dim db_pass As String
Sub buka_koneksi()
'error traping
On Error GoTo buat_koneksi_Error
'isi variable
db_name = "db_dinas2an"
db_server = "localhost"
db_port = "3306"
db_user = "root"
db_pass = ""
'buka koneksi
DB.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" & db_server & ";DATABASE=" & db_name & ";UID=" & db_user & ";PWD=" & db_pass & ";PORT=" & db_port & ";"
DB.Open
'___________________________________________________________
On Error GoTo 0
Exit Sub
buat_koneksi_Error:
'menampilkan message box jika server tidak berjalan
MsgBox "Ada kesalahan dengan server !!", vbInformation, "Cek Server"
End Sub
- Ketikkan syntax berikut pada Form_Load()
'memanggil prosedur buka_koneksi pada Module1
buka_koneksi
cboACC.AddItem "YA"
cboACC.AddItem "TIDAK"
- Ketikkan syntax berikut pada cmdCari_Click()
sql = "SELECT * FROM tb_usul WHERE id_usul LIKE '%" & txtKeyword.Text & "%' OR nip LIKE '%" & txtKeyword.Text & "%' OR nama LIKE '%" & txtKeyword.Text & "%'"
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open sql, DB, adOpenDynamic, adLockOptimistic
'menampilkan isi dari rs ke dalam DataGrid1
Set DataGrid1.DataSource = rs
- Ketikkan syntax berikut pada cmdSimpan_Click()
Dim id As String 'membuat variabel id
On Error Resume Next
id = DataGrid1.Columns(0).Value 'mengisi variabel id dengan nilai dari DataGrid1 kolom 0
sql = "INSERT into tb_acc (id_usul, acc) value ( " & _
"'" & id & "'," & _
"'" & cboACC.Text & "')"
DB.Execute sql
MsgBox "Simpan berhasil"
- Ketikkan syntax berikut pada cmdTampil_Click()
sql = "SELECT id_acc, tb_usul.id_usul, nip, nama, acc FROM tb_usul, tb_acc WHERE tb_usul.id_usul=tb_acc.id_usul"
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open sql, DB, adOpenDynamic, adLockOptimistic
'menampilkan isi dari rs ke dalam DataGrid1
Set DataGrid1.DataSource = rs
- Tekan F5 untuk menjalankan
Keterangan:
- Masukkan keyword pada textbox yang disediakan dan klik tombol cari
- Setelah muncul data yang dicari di dalam datagrid, klik data yang diinginkan
- Pillih "YA" atau "TIDAK" pada combobox ACC, klik tombol simpan
- Untuk melihat data yang sudah di ACC, klik tombol tampil
Baca Juga:
No comments:
Write komentar