[VB6 ] 有關資料庫存取的問題

[skating (阿祺  ￾ N ￾ Ｉ]

   Date1 = CStr(Mid(TextLine, 4, 8))
   Rcif = CStr(Trim(Mid(TextLine, 12, 9)))
   Ccy = CStr(Mid(TextLine, 23, 3))
   Retail_ac_no = CStr(Trim(Mid(TextLine, 26, 12)))
   Balance = CVar(Trim(Mid(TextLine, 38, 25)))
   Customer_name = CVar(Trim(Mid(TextLine, 62)))

   SQLSRV1 = "INSERT INTO " & DBname _
        & " (DATE,RCIF,CCY,RETAIL_AC_NO,BALANCE,CUSTOMER_NAME) " _
        & " VALUES ('" & Date1 & "','" & Rcif & "','" & Ccy & "','" & Retail_ac_no & "','" & Balance & "','" & Customer_name & "'" & ")"
   MsgBox SQLSRV1
   cnmdb.Execute SQLSRV1, adCmdText

以上是一小段程式碼

先讀入一筆筆的字串
分拆成一個個數值
然後塞到資料庫裡面

但是customer_name 這個欄位
有一筆資料是 abcdf'Ldfdf
也就是說 在寫入資料庫時
應該是'abcdf'Ldfdf' 整個字串寫進去
但是中間多一個單引號
它會誤認為 'abcdf' 而後面的Ldfdf卻不會寫入 而產生錯誤

請問各位高手大大 這有辦法解決嗎???

--

http://www.wretch.cc/blog/skating0814

--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 211.20.28.254
推 fumizuki:Replace(Customer_name, "'", "''")
→ skating:用replace只是把'變成" 那就改變原來的字串了啊??