Setelah dari input box konversi dengan fungsi Ini :
Public Function FixSqlString(cString As String) As String
Dim i As Integer, cbuff As String
Let i = InStr(1, cString, "'")
While i > 0
Let cbuff = cbuff & Mid(cString, 1, i) & "'"
Let cString = Mid(cString, i + 1, Len(cString))
Let i = InStr(1, cString, "'")
Wend
FixSqlString = cbuff & cString
End Function
--- In [email protected], "gunartha.nyoman"
<[EMAIL PROTECTED]> wrote:
>
> Dear Miliser VB.
>
> Haii...
> Saya mo tanya gimana caranya memasukkan data string seperti :
asa'at, mu'at ke tabel ms sql
>
> update pegawai set nama = 'asa'at'
> pasti muncul error
>
>
> Terima kasih atas bantuannya
>
> Sincerely yours,
> Nyoman Gunartha
>
------------------------ Yahoo! Groups Sponsor --------------------~-->
Great things are happening at Yahoo! Groups. See the new email design.
http://us.click.yahoo.com/TISQkA/hOaOAA/yQLSAA/k7folB/TM
--------------------------------------------------------------------~->
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
