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