作者skating (阿祺  N I
看板Visual_Basic
标题[VB6 ] 有关资料库存取的问题
时间Thu Nov 2 16:20:38 2006
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
1F:推 fumizuki:Replace(Customer_name, "'", "''") 11/02 20:30
2F:→ skating:用replace只是把'变成" 那就改变原来的字串了啊?? 11/03 15:16