Dear Bapak Picka Phiccolo, Replace karakter ' dengan double '' bukan " lho. StrSQL = Replace(StrSql, "'", "''")
Regards --- In [email protected], "Picka" <[EMAIL PROTECTED]> wrote: > > Mas mas mbak mbak.. > > saya membuat program sederhana untuk ngiputin data email ke sebuah > program. > saya mendapatkan error message sewaktu akan menyimpan isi email saya > yang saya paste kan di richtextbox. > > Saya menggunakan vb6 dan database access2000 > errornya ternyata diebabkan oleh saya yang menyimpan karakter (') pada > richtextbox. > > ini bagian yang error > > Else > sql2 = "insert into email" _ > & > "([no],[project],[subject],[datesubmit],[datecomplete],[status],[request],[location],[email],[emailcontent])" > _ > & "values ('" & Text1 & "','" & Combo1 & "','" & > Text2 & "','" & Text3 & "', '" _ > & Text4 & " ', '" & Combo2 & "','" & Text5 & "','" > & Text6 & "','" & Text7 & "','" & RichTextBox1 & "')" > Koneksi.Execute sql2, , adCmdText > rsemail.Requery > End If > > mohon bantuan saudara² agar program saya ini dapat menyimpan spesial > karakter ini. > > Terimakasih >
