with Query1 do begin
SQL.Add(insert into mytable(:id,:name));
ParamByName('id').AsInteger := yourid;
ParamByName('name').AsString := yourname;
Execute;
end;
SQL.Add(insert into mytable(:id,:name));
ParamByName('id').AsInteger := yourid;
ParamByName('name').AsString := yourname;
Execute;
end;
解决方案 »
- 有关TPaintBox下面TImage图片移动的问题
- delphi5的bpl程序delphi7无法编译
- 请问有谁用过spcomm?做过无线通信开发?
- 高难度问题,怎么让dbgrid导出到Excel自动划格子
- 同样的程序在台式机上可以得到硬盘序列号,而在笔记本电脑就得不到硬盘的序列号了,而通过其它方式就又可以得到硬盘的..
- 请大家教我怎么写线程!回答的好份都给你!
- 线程中运用vcl组件的问题
- invaild floating point operation 什么意思?
- 数据存储控件如何动态连接带参数的access查询,谢谢?
- 请问如何给Tdblookupcombobox赋初值?
- 关于数据库录入的问题
- 有没有好看点的Memu控件呀?
id:=yourValue;
name:=yourValue;
with Query1 do
begin
SQL.Add('insert into mytable(:id,:name)');
Params[0].AsInteger :=id;
Params[1].AsString :=name;
Execute;
end;
...
sql.add('insert into mytable(id,name) ');
sql.add('values('''+format(%d,id)+''','''+format(%s,name)+''') ');
...
with Query1 do begin
SQL.Add('insert into mytable(:id,:name)');
Params[0].AsInteger := yourid;
Params[1].AsString := yourname;
Execute;
end;
id:integer;
str:string;
...
id:=strtoint(edit1.text);
name:=edit2.text;
with query1 do
...
sql.add('insert into mytable(id,name) values(:id,:name)');
Prepare;
ParamByName('id').AsInteger:=id;
ParamByName('name').AsString:=name;
ExecSQL;
...
...
sql.add('insert into mytable(id,name)');
sql.add('values('''+format(%d,id)+''','''+format(%s,name)''') ');
...