請問我的程式如下 Con := CreateOleObject('ADODB.Connection'); Con.Open('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db.mdb'); Sqlstr := 'select * from test'; rs := Con.Execute(Sqlstr); 請問我要如何叫出rs裡的資料?

Hi, 你是用幾版的 delphi 呢? delphi 在 5 版以上就有 ado 可用, 不需要自己利用 com 來進行 ado 的存取, 當然, 若你想自行維護也不是不可啦, 只是包裝好的比較方便, 程式如下,    

var
  con, rs: OleVariant;
  Sqlstr: string;
begin
  Con := CreateOleObject('ADODB.Connection');
  Con.Open('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\db3.mdb');
  Sqlstr := 'select * from userdata';
  rs := Con.Execute(Sqlstr);
  while not rs.Eof do
  begin
    ShowMessage(rs.Fields[0]); //field index
    ShowMessage(rs.Fields['sname']); //field name
    rs.MoveNext;
  end;
  rs := UnAssigned;
  Con.Close;
  con := UnAssigned;
end;

謝謝~~ 感激您的指導~~