Perintah Dasar Sql (Mysql) pada Visual Basic 6.0

Perintah SQL Pada Visual Basic 6
Oleh : Ahmad Rizal Abidin, M.Kom
1. Instal mysql-essential-5.1.29-rc-win32
2. Instal mysql-connector-odbc-5.1.5-win32
3. Setting ODBC
a. Klik Start, All Program, Control Panel, Administrative Tools, Data Source (ODBC)
b. Pada ODBC Data source Administrator
– Klik System DSN, klik ADD
– Pilih ODBC Mysql 5.1 Driver, Lalu klik Finish
Data source Name : ODBC_stock
Server : Localhost
User : root
Pasword : ******
Database : stock
– Klik Test, maka tampil “connection successfull”
– Klik OK,
4. Aktifkan Microsoft Visual Basic 6
5. Pilih VB Enterprise Edition Control, lalu klik Open
6. Pada layar kerja VB Klik Project, Klik Add Module, Klik Open
Ketik Listing program berikut :
Public kondb As New ADODB.Connection
Public rs As New ADODB.Recordset
Public strconnect As String
Public strsql As String
Sub Pindah(KeyAscii As Integer)
If KeyAscii = 13 Then
KeyAscii = 0
SendKeys “{Tab}”
End If
End Sub
Public Function konek()
strconnect = “Provider = MSDASQL.1;persist security info = false; data source =odbc_stock;user id=root;pwd=”
If kondb.State = adStateOpen Then
kondb.Close
Set kondb = New ADODB.Connection
Set rs = New ADODB.Recordset
kondb.Open strconnect
Else
kondb.Open strconnect
End If
End Function
7. Klik File, Klik Save, lalu ketik mod_stock (module), form_barang (form1), stock (Project)
8. Aktifkan form 1 dengan cara klik Project Explorer, Klik Forms, lalu double klik Form 1 (Form1))
9. Buatlah sebuah form seperti gambar di bawah ini yang terdiri dari : label, textbox, datagrid dan CommanDButton


10. Apabila setelah selesai membuat form ketikan listing berikut dengan cara :
a. Double klik pada object form lalu ketikkan : (Form Load)
Private Sub Form_Load()
konek
kondb.CursorLocation = adUseClient
strsql = “SELECT * FROM BARANG”
Set rs = kondb.Execute(strsql)
Set DataGrid1.DataSource = rs
End Sub
b. Kembali ke form dan double klik tombol simpan : (command1)
Private Sub Command1_Click()
strsql = “insert into barang values (‘” + Text1.Text + “‘,'” + Text2.Text + “‘,'” + Text3.Text + “‘,'” + Text4.Text + “‘)”
Set rs = kondb.Execute(strsql)
End Sub
c. Kembali ke form dan double klik tombol Hapus : (command2)
Private Sub Command2_Click()
strsql = “delete from barang where kode_Barang ='” + Text1.Text + “‘”
Set rs = kondb.Execute(strsql)
End Sub
d. Kembali ke form dan double klik tombol Edit : (command3)
Private Sub Command3_Click()
strsql = “update barang set nama_Barang ='” + Text2.Text + “‘,satuan_barang = ‘” + Text3.Text + “‘ where kode_Barang='” + Text1.Text + “‘”
Set rs = kondb.Execute(strsql)
End Sub
e. Kembali ke form dan double klik tombol Keluar : (command4)
Private Sub Command4_Click()
Unload me
End Sub
f. Kembali ke form dan double klik textbox kode barang : (text1) ganti event dari change menjadi key press
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
strsql = “select * from barang where kode_barang ='” + Text1.Text + “‘”
Set rs = kondb.Execute(strsql)
If rs.EOF Then
Text2.SetFocus
Else
Text2.Text = rs!nama_Barang
Text3.Text = rs!satuan_Barang
Text4.Text = rs!stok_barang
End If
End If
End Sub

5 Responses

  1. trma ksh pa ahmad..

  2. Maaf saya mau tanya tugas simbad pak
    Kasus yang saya buat Rumah Sakit………Saya mau buat form transaksi, pada form transaksi ada total bayar. Total bayar sebaik nya berdasarkan id kamar jadi logika nya gimana ya pak……kalau di exel saya udah coba….berhasil tapi di simbad saya nggak bisa….tolong bantuannya ya pak

    • coba lihat lagi di tabelnya… field-field yang akan diproses sudah benar belum… trs pastikan antar tabel yang akan di proses berelasi…
      nah selanjutnya anda bisa menghitung total bayar…
      contohnya :
      ((tgl_msk – tgl_keluar)*biaya kamar perhari) + biaya adm, + obat + dll….

  3. Terima kasih masukkannya…:D

  4. pak ahmad… perbedaan antara penggunaan keypress dan keydown itu apa ya pal?? trim’s

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: