一个非常简单问题! 在线等待

Question

with quer do
         begin
            close;
            sql.Clear ;
            sqlstr:='insert into jxcc(tpmc,bzw) values('''+trim(str)+''','maxbh')'
            sql.Add(sqlstr);
            ExecSQL ;
         end;表名是jxcc,字段tpmc是CHAR型,bzw是INT型,
我进行插入的时候说maxbh错误,
  

Answer 1

第二個參數類型錯了。maxbh與bzw不匹配

Answer 2

bes96261:
我maxbh也是INT啊,
  怎么回事啊  说引号不对吗,

Answer 3

sqlstr:='insert into jxcc(tpmc,bzw) values('+''''+trim(str)+''','+inttoStr(maxbh)+')';
D7下通过procedure TForm1.Button1Click(Sender: TObject);
var
   sqlstr,str:string;
   maxbh:integer;
begin
   str := 'abc';
   maxbh := 3;
           query.close;
            query.sql.Clear ;
//sqlstr:='insert into jxcc(tpmc,bzw) values('''+trim(str)+''','maxbh')';
sqlstr:='insert into loginpok(tpmc,bzw) values('+''''+trim(str)+''','+inttoStr(maxbh)+')';
            query.sql.Add(sqlstr);
showmessage(query.SQL.Text);
            query.ExecSQL ;end;

Answer 4

with quer do
         begin
            close;
            sql.Clear ;
            sqlstr:='insert into jxcc(tpmc,bzw) values('''+trim(str)+''',maxbh)';
            sql.Add(sqlstr);
            ExecSQL ;
         end;
分号少了;

Answer 5

with quer do
         begin
            close;
            sql.Clear ;
            sqlstr:='insert into jxcc(tpmc,bzw) values('''+trim(str)+''',' + IntToStr(MaxBH) + ')' ;
            sql.Add(sqlstr);
            ExecSQL ;
         end;