各位大哥帮小弟看看如下的代码。

[liang_jimmy]

Query2.Close;
Query2.SQL.Clear;
Query2.SQL.Add('Insert Into Operater(UserID,UserName,UserPassword,LevelDescribe,Role,Memo)');

Query2.SQL.Add('Values(:UserID,:UserName,:UserPassword,:LevelDescribe,:Role,:Memo)');


Query2.Params.CreateParam(ftString,'UserID',ptInput);
Query2.Params.CreateParam(ftString,'UserName',ptInput);
Query2.Params.CreateParam(ftString,'UserPassword',ptInput);
Query2.Params.CreateParam(ftString,'LevelDescribe',ptInput);
Query2.Params.CreateParam(ftInteger,'Role',ptInput);
Query2.Params.CreateParam(ftString,'Memo',ptInput);

Query2.ParamByName('UserID').AsString := Edit1.Text;
Query2.ParamByName('UserName').AsString := Edit2.Text;
Query2.ParamByName('UserPassword').AsString := Edit3.Text;
Query2.ParamByName('LevelDescribe').AsString := Combobox1.Text;
Query2.ParamByName('Role').AsInteger := ThisRole;
Query2.ParamByName('Memo').AsString := Memo1.Text;

Query2.Prepare;

Query2.ExecSQL;
请问有什么问题吗？运行时老是出错

[CeleronII]

是SQL错误吗，是不是类型不匹配？

[lxpbuaa]

把你创建参数的语句去掉，Query已经自动创建，直接赋值即可。


—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”等字样，删除它们';
I.Desire := '加不加分随你';
—————————————————————————————————


　　　　　　　

[delphi0302]

Query2.SQL.Add('Insert Into Operater(UserID,UserName,UserPassword,LevelDescribe,Role,Memo)');//Memo后边应该有空格

Query2.SQL.Add('Values(:UserID,:UserName,:UserPassword,:LevelDescribe,:Role,:Memo)');

[lxpbuaa]

不是有没有空格的问题，Add方法会自动处理。


—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Explain := '假如上述代码中出现“OA”等字样，删除它们';
I.Desire := '加不加分随你';
—————————————————————————————————


　　　　　　　

[delphi0302]

Query2.Params.CreateParam(ftString,'UserID',ptInput);
Query2.Params.CreateParam(ftString,'UserName',ptInput);
Query2.Params.CreateParam(ftString,'UserPassword',ptInput);
Query2.Params.CreateParam(ftString,'LevelDescribe',ptInput);
Query2.Params.CreateParam(ftInteger,'Role',ptInput);
Query2.Params.CreateParam(ftString,'Memo',ptInput);
去掉