with adoquery do begin if active then close; sql.clear; sql.add('select * from yourtable'); open; edit1.text:=fieldbyname('fieldname').asstring; end;
你先看看Delphi数据库编程的入门书吧
如果你用的是table控件还是query控件,因为我对table用的不太好,所以给你写段query控件的读法。 你在窗体上先放一个query1,edit1,button1控件。假如你的表在d:\dbf文件夹中,表名字为a.dbf,其中有一个字段名为name,并且是字符类型。 在button1的单击事件中写 query1.close; query1.databasename:='d:\dbf'; query1.sql.clear; query1.sql.add('select * from a.dbf'); query1.sql.add(' where name=:a');//注意where 与前面的单引号之间有个空格 query1.parambyname('name').asstring:='王某某'; query1.open; if query1.recordcount>0 then begin Edit1.text:=query1.FieldByName('name').asstring; end else MessageDlg(#13'查无此人。',mtinformation,[mb],0);
说的是表结构 还是说在dbgrid中什么呀?
begin
if active then close;
sql.clear;
sql.add('select * from yourtable');
open;
edit1.text:=fieldbyname('fieldname').asstring;
end;
你在窗体上先放一个query1,edit1,button1控件。假如你的表在d:\dbf文件夹中,表名字为a.dbf,其中有一个字段名为name,并且是字符类型。
在button1的单击事件中写
query1.close;
query1.databasename:='d:\dbf';
query1.sql.clear;
query1.sql.add('select * from a.dbf');
query1.sql.add(' where name=:a');//注意where 与前面的单引号之间有个空格
query1.parambyname('name').asstring:='王某某';
query1.open;
if query1.recordcount>0 then
begin
Edit1.text:=query1.FieldByName('name').asstring;
end else
MessageDlg(#13'查无此人。',mtinformation,[mb],0);