Perintah SQL di Visual Basic 6

Dim db_barang As ADODB.Connection
Dim KONEKSI As String

Private Sub Form_Load()
KONEKSI = "DSN=pos" (untuk mysql)
KONEKSI = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=f:\database\stok.mdb" (untuk Microsoft Access)

Set db_barang = New ADODB.Connection

adobarang.ConnectionString = KONEKSI
adobarang.CommandType = adCmdText
adobarang.RecordSource = "select * from barang"
adobarang.Refresh
adobarang.Recordset.Sort = "kodebarang"

End Sub

PERINTAH INSERT
Private Sub insert_masuk()
SQL = "INSERT INTO barang_masuk(Faktur,tanggal,nobin,namamaterial,satuan,jumlah,jumlahmasuk) SELECT barang_masuk_semu.Faktur,barang_masuk_semu.tanggal,barang_masuk_semu.nobin, barang_masuk_semu.namamaterial, barang_masuk_semu.satuan, barang_masuk_semu.jumlah, barang_masuk_semu.jumlahmasuk FROM barang_masuk_semu where barang_masuk_semu.faktur='" & txtfaktur.Text & "'"
dbmasuk.Open KONEKSI
dbmasuk.Execute SQL
dbmasuk.Close
adomasuk.Refresh
End Sub

Private Sub add_insert()
SQL = "INSERT INTO jual_semu values ('" & global_nota & "','" & txtkodebarang.Text & "'," & txtjumlahjual.Text & ",'" & pengguna & "')"
DBjualSEMU.Open KONEKSI
DBjualSEMU.Execute SQL
DBjualSEMU.Close
adojualsemu.Refresh
End Sub


SQL = "INSERT INTO supplier values ('" & txtkodesupplier.Text & "','" & txtnamasupplier.Text & "', '" & txtalamat.Text & "','" & txtkota.Text & "', '" & txtnomorhp.Text & "','" & txtketerangan.Text & "')"
DBsupplier.Open KONEKSI
DBsupplier.Execute SQL
DBsupplier.Close
adosupplier.Refresh


Private Sub insert_tabel_jual()
Dim XTANGGAL As String
XTANGGAL = Format(Date, "YYYY/MM/DD")
Dim var_grandtotal As Double
var_grandtotal = CDbl(txttotal.Text) - CDbl(txtpotongan.Text)
SQL = "INSERT INTO jual values ('" & global_nota & "','" & XTANGGAL & "', '" & txtkodecustomer.Text & "'," & txttotal.Text & ", " & txtpotongan.Text & "," & var_grandtotal & ",'" & pengguna & "')"
DBjual.Open KONEKSI
DBjual.Execute SQL
DBjual.Close
adojual.Refresh
End Sub


PERINTAH UPDATE
Private Sub add_update()
SQL = "update jual_semu set " & "jumlahjual=jumlahjual + " & txtjumlahjual.Text & " where kodebarang='" & txtkodebarang.Text & "' and kodeuser='" & pengguna & "'"
DBjualSEMU.Open KONEKSI
DBjualSEMU.Execute SQL
DBjualSEMU.Close
adojualsemu.Refresh
End Sub

Private Sub update_stok_barang()
SQL = "UPDATE barang INNER JOIN TMPkeluar2 ON barang.kode_barang = TMPkeluar2.kode_barang SET jumlah = jumlah-TMPkeluar2.jumlah_keluar where TMPkeluar2.nomor_sj='" & txtnomorsj.Text & "'"
dbbarang.Open KONEKSI
dbbarang.Execute SQL
dbbarang.Close
adobarang.Refresh
End Sub

PERINTAH SELECT
Private Sub cari_total()
If adojualsemu.Recordset.RecordCount = 0 Then Exit Sub
SQL = "select sum(subtotal) as tot from view_jual where nota='" & global_nota & "' and kodeuser= '" & pengguna & "'"
dbview_jual.Open KONEKSI
Set rs = dbview_jual.Execute(SQL)
txttotal.Text = rs!tot
dbview_jual.Close
End Sub

PERINTAH DELETE
Private Sub hapus_data()
If adojualsemu.Recordset.RecordCount = 0 Then Exit Sub
SQL = "delete from jual_semu where kodeuser='" & pengguna & "'"
DBjualSEMU.Open KONEKSI
DBjualSEMU.Execute SQL
DBjualSEMU.Close
adojualsemu.Refresh
End Sub