mgkn kalau jawaban mas ronald dijadiin fungsi, jadinya akan seperti ini :
Public Function CSqlEncode(sStr As String) As String
Dim s As String
s = Replace(sStr, "'", "''")
s = Replace(s, "", """")
CSqlEncode = "'" & s & "'"
End Function
Dim s As String
s = Replace(sStr, "'", "''")
s = Replace(s, "", """")
CSqlEncode = "'" & s & "'"
End Function
best regards
[wwn]
On 3/6/06, Ronald Irawan <[EMAIL PROTECTED]> wrote:
Replace ' dengan '' --> kutip single 2 kali
contoh replace(textdeskripsi.text,"'","''")
Salam
Ronald Irawan
Pt. Sanghiang Perkasa
Gd. Graha Kirana Lt.5
Jl Yos Sudarso Kav.88
Jakarta
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
- Visit your group "Programmer-VB" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
