DataModule4.ADOQuery1.Close;
DataModule4.ADOQuery1.SQL.Clear;
DataModule4.ADOQuery1.SQL.Add('select cname form clinter where cid='''+edit1.text+'''');
DataModule4.ADOQuery1.Open;
edit2.Text:= DataModule4.ADOQuery1.FieldByName('cname').AsString;
DataModule4.ADOQuery1.SQL.Clear;
DataModule4.ADOQuery1.SQL.Add('select cname form clinter where cid='''+edit1.text+'''');
DataModule4.ADOQuery1.Open;
edit2.Text:= DataModule4.ADOQuery1.FieldByName('cname').AsString;
解决方案 »
- delphi7+sql2000查询字符改错
- 最后60分,大家有没有用过可以像TEdit那样选定的Label控件啊?
- 关于控件安装的问题
- 关于修改系统库的问题高手帮忙啊
- 修改客户端数据,服务器上怎么改不了呢?
- 调试问题
- 请教:(socket)服务器端怎么把接收的流形成文件?谢谢!
- 请教个问题,delphi有中国地图图片控件可以调用吗?像网站那样
- 请问table或query的update属性的具体作用是什么?
- yy为逻辑值,还是通不过:commandtext := 'Select * from DB where xx=''中学'' and yy=' + TF;
- 听说出了Delphi 7 .net 是真的吗?
- 报表(Qreport)求救,100分
DataModule4.ADOQuery1.Close;
DataModule4.ADOQuery1.SQL.Clear;
DataModule4.ADOQuery1.SQL.Add('select cname form clinter where cid= :STRNAME);
DataModule4.ADOQuery1.PARAMAS.PARAMASBYNAME('STRNAME').ASSTRING:=EDIT1.TEXT;
DataModule4.ADOQuery1.Open;
if datamodule4.adoquery1.fields[0].value<>null then
edit2.Text:= DataModule4.ADOQuery1.FieldByNam('cname').AsString
你要用到他的参数才行,不能像你那样付值的!!!
Form.Caption:=adoquery.SQL.Text
我想是你的赋值类型不匹配,cid字段不是String型的
cid是integer还是string,
是integer的话,这么写:
DataModule4.ADOQuery1.SQL.Add('select cname from clinter where cid='+StrToInt(edit1.text));