数据库中有一表A,有ID,F1,F2,F3,若干记录!现在想取ID字段为500的那条记录,Tedit1显示ID值(此时为500),Tedit2显示字段F1的值,Tedit3显示字段F2的值,Tedit4显示字段F3的值。如何写存储过程和Delphi中的程序?
解决方案 »
- Dbgrideh 导出Excel文件字符串问题???
- 如何把TCHart类型的一个图保存到excel中啊?
- 如何从ADOConnection中得到所连接的服务器的名称?
- 只有60分了,简单问题
- 关于interbase注册服务器
- 子窗体问题
- 请教delphi7下的ftp源代码,或其他方式的文件传输的源码,在线等待,立即结贴,不够再加
- 关于storedProc控件的使用问题
- 各位兄台,谁有DELPHI的所有类大全?大部分也行呀。谢了。
- 哪儿有DELPHI6中文手册下?
- 谁有TMS系列控件的相关说明
- WinExec('cmd /c net use \\服务器地址\共享名称 "密码" /user:"用户名"', nil)
DBedit控件的datasource属性:query1
DBedit控件的datafield属性:ID,F1,F2,F3
adoQuery1.SQL.Clear;
adoQuery1.SQL.Text:='select * from A where id=500';
adoQuery1.Open;
if not adoQuery1.Eof then
begin
Edit1.Text := adoQuery1.FieldByName('id').AsString;
Edit2.Text := adoQuery1.FieldByName('f1').AsString;
Edit3.Text := adoQuery1.FieldByName('f2').AsString;
Edit4.Text := adoQuery1.FieldByName('f3').AsString;
end;
DBedit控件的datafield属性指定不到ID,F1,F2,F3
还是要写ADOQuery1程序指定吧?
var adoQuery1:TADOQuery; adoQuery1:=TADOQuery.Create(nil);
adoQuery1.SQL.Clear;
adoQuery1.SQL.Text:='select * from A where id=:a';
adoquery1.parameters.parametersbyname('a').value:=edit1.text;//(:='500')
adoQuery1.Open;
if not adoQuery1.Eof then
begin
Edit2.Text := adoQuery1.FieldByName('f1').AsString;
Edit3.Text := adoQuery1.FieldByName('f2').AsString;
Edit4.Text := adoQuery1.FieldByName('f3').AsString;
end;引用6楼,把代码加到edit1事件中,可以根据输入的ID值查询定位
adoquery1.Close;
adoquery1.SQL.text.Clear;
adoquery1.SQL.Text:='select * from tbA where ID=:a';
adoquery1.parameters.ParamByName('a').value:=trim(edit1.text);//edit1入任意id
adoQuery1.Open;
if adoQuery1.RecordCount<>0 then
begin
Edit2.Text := adoQuery1.FieldByName('f1').AsString;
Edit3.Text := adoQuery1.FieldByName('f2').AsString;
Edit4.Text := adoQuery1.FieldByName('f3').AsString;
end;