请教一个insert语句中values后的数据用文本框的问题

Question

语句如下：Str1 = "INSERT INTO CompareMain (Xm_Code, Xm_Lb, Our_Code, Lb_Code,is_comp) values(  '" & TDBText4.Text & "  ' , '0 ' , '" & TDBText11.Text & "  ', '0 ',0)" TDBText4.Text和TDBText11.Text的取数据的格式不对，哪位大哥帮帮忙，对应写入的字段是文本格式。

Answer 1

Str1 = "INSERT INTO CompareMain (Xm_Code, Xm_Lb, Our_Code, Lb_Code,is_comp) values(   '" & TDBText4.Text & "   ' ,  '0  ' ,  '" & TDBText11.Text & "   ',  '0  ',0);"  

Answer 2

怎么不对了？Str1 = "INSERT INTO CompareMain (Xm_Code, Xm_Lb, Our_Code, Lb_Code, is_comp) values('" & Trim(TDBText4.Text) & "', '0', '" & Trim(TDBText11.Text) & "', '0', 0)"  

Answer 3

如果不是粘贴错误，你的单引号前面多了一个空格。
还有TDBText4.Text和TDBText11.Text的值中不能出现单引号。

Answer 4

巨烦这种写法。Str1 = "INSERT INTO CompareMain (Xm_Code, Xm_Lb, Our_Code, Lb_Code,is_comp) " & _
       "values(?,?,?,?,?)"一个字段对应一个问号，然后用adocommand对象来做，把？的值一个个放进去就行了。 

Answer 5

'实在不方便调试的话就用另外一种新增记录的方式:
rs.open "CompareMain",db, adOpenKeyset, adLockOptimistic  
rs.addnewrs!Xm_Code=TDBText4.Text 
rs!Xm_Lb=0
rs!Our_Code=TDBText11.Text 
rs!Lb_Code=0
rs!is_comp=0rs.update