clientdataset1.commandtext问题,急死我了

sfw 2002-12-17 03:10:14
clientdataset1.close;
clientdataset1.CommandText:='insert into usertable (user,password)'+'values ("'+edit1.text+'",'+'"'+edit2.text+'")';
clientdataset1.open;
老是提示我insert语句有错,到底该怎么改呢?
服务器端allowcommandtext已设为true
...全文
51 10 打赏 收藏 转发到动态 举报
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
sfw 2002-12-24
  • 打赏
  • 举报
回复
解决了,原来是字段名称:user,password的原因,我改成别的就可以了,特别感谢chutian(我很丑???),给分!!
rowadeng 2002-12-21
  • 打赏
  • 举报
回复
有一下两种办法
1: ClientDataSet1.Close;
ClientDataSet1.CommandText := 'insert into TArea (FAreaID,FAreaName) values ('+
''''+Edit1.Text +''''+','+''''+Edit2.Text+''''+')';
ClientDataSet1.Execute;
2: ClientDataSet1.Close;
ClientDataSet1.CommandText := 'insert into TArea (FAreaID,FAreaName) values ('+
QuotedStr(Edit1.Text)+','+QuotedStr(Edit2.Text)+')';
ClientDataSet1.Execute;
chutian 2002-12-19
  • 打赏
  • 举报
回复
clientdataset1.CommandText:='insert into usertable(user,password)' + ' values(' + '''' + edit1.text + '''' + ',' + '''' + edit2.text + '''' + ')';

或:
clientdataset1.close;
clientdataset1.CommandText:='insert into usertable(user,password)'
+ ' values(:Param1, :Param2)';

//values 前加空格, Table名字后不要空格
sfw 2002-12-19
  • 打赏
  • 举报
回复
还是不行啊,在执行这条sql语句之前我已经查询了一次,是不是查询的这条sql保存在了adoquery的sql里面啊,然后我在insert的时候,sql语句就变成了原来的select 语句+insert语句了呢?chutian(我很丑???) ,有没有办法在客户端清空adoquery里面的sql语句呢?完了一定给分,谢谢
sfw 2002-12-18
  • 打赏
  • 举报
回复
另外,服务器端我只用了adoquery和datasetprovider两个控件。
sfw 2002-12-18
  • 打赏
  • 举报
回复
chutian(我很丑???) :你的两种改法我都试了,还是说:insert 语句错误!
wlm721 2002-12-17
  • 打赏
  • 举报
回复
错在最后一句吧,应该是执行而不是打开啊!!
clientdataset1.execute
dschebei 2002-12-17
  • 打赏
  • 举报
回复
最好用参数,看起来明了多了至少
chutian 2002-12-17
  • 打赏
  • 举报
回复
clientdataset1.close;
clientdataset1.CommandText:='insert into usertable (user,password)' + 'values(' + '''' + edit1.text + '''' + ',' + '''' + edit2.text + '''' + ')';
clientdataset1.Execute;

或:
clientdataset1.close;
clientdataset1.CommandText:='insert into usertable (user,password)'
+ 'values(:Param1, :Param2)';
clientdataset1.Params.ParamByName('Param1').AsString := Edit1.Text;
clientdataset1.Params.ParamByName('Param2').AsString := Edit2.Text;
clientdataset1.Execute;

mixterQ 2002-12-17
  • 打赏
  • 举报
回复
""

1,593

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 网络通信/分布式开发
社区管理员
  • 网络通信/分布式开发社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧