高手拿分,

Question

var str_sql:string;
str_sql:='insert into dbo.table1(pno,pname) values (:p1,:p2)';
query1.close;
query1.sql.clear;
query1.sql.text:=str_sql;
Params[0].value:=trim(edit1.text); 
Params[1].value:=trim(edit2.text); 
if not prepared then prepare;
qrery1.Execsql;

Answer 1

var str_sql:string;
str_sql:='insert into dbo.table1(pno,pname) values (:p1,:p2)';
query1.close;
query1.sql.clear;
query1.sql.text:=str_sql;
qrery1.Params[0].value:=trim(edit1.text); 
qrery1.Params[1].value:=trim(edit2.text); 
if not prepared then prepare;
qrery1.Execsql;

Answer 2

str_sql:='insert into dbo.table1(pno,pname) values('''+trim(edit1.text)+''','''+trim(edit2.text))+'''';

Answer 3

with query1 do
  begin
    close;
    sql.clear;
    sql.add('insert into dbo.table1(pno,pname) values (:pno,:pname)')
    parambyname('pno').asstring:=trim(edit1.text);
    parambyname('pname').asstring:=trim(edit2.text);
    try
      execsql;
    except
      showmessage('有错误发生！');
      exit;
    end;
  end

Answer 4

str_sql:='insert into dbo.table1(pno,pname) values('''+trim(edit1.text)+''','''+trim(edit2.text))+''')';