这个SQL怎么写？

Question

其中：pro_Type 是Integer类型，在编译时提示“[Error] Stor_AddUnit.pas(151): Incompatible types: 'String' and 'Integer'”，应该怎么插入整型。
语句如下：
   ADOQuery1.Close;
   ADOQuery1.SQL := 'insert into pro_info values('''+pro_ID+''','''+pro_Name+''','+pro_Type+','''+pro_Comment+''')';
   ADOQuery1.ExecSQL;该如何修改？？？

Answer 1

数据库中pro_type也是整型的。

Answer 2

我用的是Access数据库，表中： pro_id, pro_name 是文本型 pro_comment 是备注型 pro_type 是整型. SQL语句： ADOQuery1.SQL := 'insert into pro_info values('''+pro_ID+''','''+pro_Name+''','+IntToStr(pro_Type)+','''+pro_Comment+''')';编译时，提示“[Error] Stor_AddUnit.pas(151): Incompatible types: 'TStrings' and 'String'”；

Answer 3

备注型，不能定义成String吗？ 那该怎么写？？？

Answer 4

width ADOQuery1 do
begin
     close;
     SQL.Clear;
     SQL.Add('insert into pro_info values');
      SQL.Add('(:pro_ID,:pro_Name,:pro_Type,:pro_Comment)');
     preameters.paramebyname('Pro_id').values:='fff';
     以此类推
     ExecSQL;
end;

Answer 5

pro_Comment说明他是个TSTRINGS对象,你是不是用了MEMO,还是RICHEDIT,你用MEMO1.TEXT就可以了

Answer 6

ADOQuery1.Close;
   ADOQuery1.SQL := 'insert into pro_info values('''+pro_ID+''','''+pro_Name+''','+inttostr(pro_Type)+','''+pro_Comment+''')';
   ADOQuery1.ExecSQL;对pro_Type变量进行类型转换 inttostr(pro_Type)

Answer 7

问题找到了：是ADOQuery1.SQL少了一个Text属性；]
ADOQuery1.SQL.Text := 'sssss';

Answer 8

问题找到了：是ADOQuery1.SQL少了一个Text属性；]
ADOQuery1.SQL.Text := 'sssss';