（新手）通过query利用SQL语句把数据库的数据读到EDIT控件？

Question

我连接好ORACLE数据库了，但是怎么把数据库里面的数据通过SQL语句读取到普通的EDIT控件呢？还有怎么对数据库数据进行添加，修改呢？请各位大虾指点，每个举一个例子吧。我以前都是用的TABLE控件和DBEdit控件，但是据说这样不好。在线等

Answer 1

用dbgrideh
procedure TFrmDBGridEhEXP.BtnSaveClick(Sender: TObject);
var ExpClassDBGridEhExportClass;
    Ext:String;
begin
  SaveDialog1.FileName := 'file';
    if SaveDialog1.Execute then
    begin
      case SaveDialog1.FilterIndex of
        1: begin ExpClass := TDBGridEhExportAsXLS; Ext := 'xls'; end;
        2: begin ExpClass := TDBGridEhExportAsCSV; Ext := 'csv'; end;
        
       3: begin ExpClass := TDBGridEhExportAsHTML; Ext := 'htm'; end;
        4: begin ExpClass := TDBGridEhExportAsRTF; Ext := 'rtf'; end;
        5: begin ExpClass := TDBGridEhExportAsText; Ext := 'txt'; end;   
      else
        ExpClass := nil; Ext := '';
      end;
      if ExpClass <> nil then
      begin
        if UpperCase(Copy(SaveDialog1.FileName,Length(SaveDialog1.FileName)-2,3)) <>
           UpperCase(Ext) then
          SaveDialog1.FileName := SaveDialog1.FileName + '.' + Ext;
        SaveDBGridEhToExportFile(ExpClass,DBGridEh1,
             SaveDialog1.FileName,true);
      end;
    end;
end;

Answer 2

用ado控件edit1.text:=adoquery1.fieldbyname('xxx').asstring;添加：
adoquery1.append;
adoquery1.fieldbyname('xxx').asstring:='xxx';
adoquery1.post;修改：
adoquery1.edit;
adoquery1.fieldbyname('xxx').asstring:='xxx';
adoquery1.post;

Answer 3

具体的可以参考《delphi程序设计与教程》，里面有相关内容

Answer 4

谢谢一楼，但是你写的什么我看不大懂...
谢谢二楼，但是我不用ADOquery，只用query控件
貌似要用到params属性给个详细标准点的代码，谢谢！！！

Answer 5

query与adoquery没有什么区别，只是一个是ado一个是bde罢了。

Answer 6

又出问题了...cannot modify a read-only dataset 怎么解决？

Answer 7

  Query1.SQL.Clear;
  Query1.SQL.Add('select * from abc');
  Query1.ExecSQL;
  Edit1.Text:=Query1.Fields[0].AsString;

Answer 8

你看看你的table或者query的readonly属性是不是true;是的话改成false

Answer 9

都没设置，而且query控件没有readonly属性，我也去网上看了看，答案形形色色...