我要如何获取一条记录的某个字段值
现在有一个表 一个变量a
商品 价格
1 10
2 15
3 20
4 12
我要如何把商品 2中价格 赋值给 a
现在有一个表 一个变量a
商品 价格
1 10
2 15
3 20
4 12
我要如何把商品 2中价格 赋值给 a
解决方案 »
- Delphi中TServerSocket、TClientSocket做服务器、客户端的问题
- TQRBAND在线等侍呀.
- 请问TQqury的属性requestlive和cachedupdates的区别和分别作用,在那种情况下适用其中的那一种?
- delphi中socket连接问题
- WebBrowser的问题!
- delphi没学好又想学java各位给个意见!
- 我写了个邮件发送程序,老是错,大家帮看看
- 为什么一执行这条语句就会死???
- 如何向别的程序如IE窗口发一个刷新信息?
- 菜鸟的经验和最深的体会:用delphi千万不要用98,死得你很难看。用2000就不用编死了!新来的菜鸟们请听我言,我给98害得够惨了!
- 三层结构中中文参数传递的问题!请大家帮帮忙!!!
- 请问第一个bpl窗体调用第二个bpl窗体后,如何使第二个bpl窗体总是在最前显示。
adoquery3.Close;
adoquery3.SQL.Clear;
adoquery3.SQL.Add('select 价格 from sp where 商品='+jiage3+'');
adoquery3.Open;
jiage3:=adoquery2.Fieldbname('商品').asstring;
a:=adoquery3.fields(0);
jiage3是表2中的一个字段 这样写 报错[Error] Unit1.pas(919): Undeclared identifier: 'Fieldbname'
[Error] Unit1.pas(919): Missing operator or semicolon
[Error] Unit1.pas(920): Missing operator or semicolon
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
我该怎么写啊
procedure TForm1.Button1Click(Sender: TObject);
var
a:integer;
begin
with adoquery1 do begin
if Locate('商品','2',[]) then {如果查询到商品名等于2的}
a:=FieldValues['价格']; {将价格赋值给变量A}
end;end;
jiage3:=adoquery2.Fieldbname('商品').asstring;
adoquery3.Close;
adoquery3.SQL.Clear;
adoquery3.SQL.Add('select 价格 from sp where 商品='''+jiage3+'''');
adoquery3.Open;
a:=adoquery3.fields(0);
adoquery3.Close;
adoquery3.SQL.Clear;
adoquery3.SQL.Add('select 价格 from sp where 商品='''+jiage3+'''');
adoquery3.Open;
a:=adoquery3.fields.fields[0].asstring;
或者:
a:= adoquery3.fieldByName('价格').asstring;
adoquery3.SQL.Clear;
adoquery3.SQL.Add('select 价格 from sp where 商品='+jiage3);
adoquery3.Open;
jiage3:=adoquery2.Fieldbname('商品').asstring; //FieldByName
a:=adoquery3.fields(0).asstring; // +asstring
//或者a:=jiage3;