下面程序运行不了,请问下面程序有没有错.
query_addUser.SQL.Add('insert into usermanager(UserName,UserPassword,UserTradePopeid,UserSize,CreateTime,CreateUser)');
query_addUser.SQL.Add('values(:strName,:pass,:TradeId,:USize,:Ctime,:CUser)');
with query_addUser.Parameters do
begin
ParamByName('strName').Value:=edit1.Text;
ParamByName('Pass').Value:=edit2.Text;
ParamByName('Tradeid').Value:=TradeId;
ParamByName('Usize').Value:='2';
ParamByName('Ctime').Value:=Now;
ParamByName('CUser').Value:=FMain.operator;
end;
query_addUser.ExecSQL;
query_addUser.SQL.Add('insert into usermanager(UserName,UserPassword,UserTradePopeid,UserSize,CreateTime,CreateUser)');
query_addUser.SQL.Add('values(:strName,:pass,:TradeId,:USize,:Ctime,:CUser)');
with query_addUser.Parameters do
begin
ParamByName('strName').Value:=edit1.Text;
ParamByName('Pass').Value:=edit2.Text;
ParamByName('Tradeid').Value:=TradeId;
ParamByName('Usize').Value:='2';
ParamByName('Ctime').Value:=Now;
ParamByName('CUser').Value:=FMain.operator;
end;
query_addUser.ExecSQL;
解决方案 »
- 请问TBitmap类的 ScanLine方法有什么作用?
- 如何控制RZTABSHEET
- 某个视频编码软件工作后需数十分钟才能完成,它工作完成后不会关闭自己,如何得知这个程序已经压缩完成了呢?
- 有没有把BCB源文件转换成DEPHI文件的工具?
- 一个简单的问题,快来抢分!(在线等待)
- 哎~~老声长叹了!又是MDI这个死东西惹的祸!哪位老大帮个忙吧!小弟是个门外汉~如能得各位大哥相助,感激不尽!此致!敬礼!
- 一个有关随机函数的问题
- 挑战设计界面极限
- 再线关注,一个关于excel的问题?一解决立即给分,up有分!
- 用DBgrid控件可以实现同一列中表格的合并吗?如国可以应该如何写
- 高程考试如有神助,散分庆祝!
- 怎么样在Grid中,格式化从数据库得到的float数据是‘0.00’ 类型?在线!
begin
Close;
SQL.Clear;
SQL.Add('insert into usermanager(UserName,UserPassword,UserTradePopeid,UserSize,CreateTime,CreateUser)');
SQL.Add('values('+''''+edit1.Text+''''+','+''''+edit2.Text+''''+'.......+''''+')');
ExecSQL;
end;
另外sql语句书写中要注意空格,在楼主的两行
{query_addUser.SQL.Add('insert into usermanager(UserName,UserPassword,UserTradePopeid,UserSize,CreateTime,CreateUser)');
query_addUser.SQL.Add('values(:strName,:pass,:TradeId,:USize,:Ctime,:CUser)');}
中values前面没有空格是不行的。
query_addUser.SQL.Add('values(:strName,:pass,:TradeId,:USize,:Ctime,:CUser)');好像此处要加一句query_addUser.prepare; with query_addUser.Parameters do
//好像应改为 with query_addUser.Params do begin
ParamByName('strName').Value:=edit1.Text;
ParamByName('Pass').Value:=edit2.Text;
ParamByName('Tradeid').Value:=TradeId;
ParamByName('Usize').Value:='2';
ParamByName('Ctime').Value:=Now;
ParamByName('CUser').Value:=FMain.operator;
end;
最后一句不要;
你试一试,我没有试的,可能有错!但可以帮到你!
begin
close;
sql.clear;
SQL.Add('insert into usermanager(UserName,UserPassword,UserTradePopeid,UserSize,CreateTime,CreateUser)');
SQL.Add('values(:strName,:pass,:TradeId,:USize,:Ctime,:CUser)');
with Parameters do
begin
ParamByName('strName').Value:=edit1.Text;
ParamByName('Pass').Value:=edit2.Text;
ParamByName('Tradeid').Value:=TradeId;
ParamByName('Usize').Value:='2';
ParamByName('Ctime').Value:=Now;
ParamByName('CUser').Value:=FMain.operator;
end;
prepared;
ExecSQL;