Hai.. pembaca kali ini saya mw berbagi cara mengatasi error saat input data di VB karena kata yang di input ada tanda petiknya...seperti ( Mu'in, Mu'min dsbbbb lah///)
Oke kita mulai...
1. buka coding VB
2. tulis coding ini di bagian program paling atas (di object general)
dim nama as string
catatan : hal ini dengan asumsi data yang mengandung tanda petik berada pada field
nama
3. tambahkan coding ini di bawah perintah input
Dim SQLTambah As String
nama = Text2
Text2 = Replace(Text2, "'", "''")
SQLTambah = "Insert Into Barang
(KodeBrg,NamaBrg,HargaBeli,HargaJual,JumlahBrg) values
"('" & Text1 & "','" & Text2 & "','" & Text3 & "','" & Text4 &
"','" & Text5 & "')"
Conn.Execute SQLTambah
4. tambahkan coding ini di bawah perintah edit
Dim SQLEdit As String
nama = Text2
Text2 = Replace(Text2, "'", "''")
SQLEdit = "Update Barang Set NamaBrg= '" & Text2 & "', HargaBeli='"
& Text3 & "', HargaJual='" & Text4 & "',JumlahBrg='" & Text5 & "'
where KodeBrg='" & Text1 & "'"
Conn.Execute SQLEdit
Selamat mencoba ya....good luck
Subscribe to:
Post Comments (Atom)
0 komentar:
Post a Comment