有兩個MS-Access資料檔,檔名是FA和FB,操作FA時,FB的紀錄指標要跟著動,關聯的欄位是SN ADOTable2.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\FA.MDB;Persist Security Info=False'; ADOTable2.TableName:='data'; ADOQuery1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\FB.MDB;Persist Security Info=False'; ADOQuery1.SQL.ADD('select * from data A inner join (select * from data in ".\FA.MDB") B on A.SN=B.SN'); ADOQuery1.ExecSQL; 找了許久，試了再試，還是不行，敬請賜教，謝謝！

你好 手邊沒有 Delphi 環境... 試試 1. 增加一個 DataSource (Name is "DataSurce1"), DataSet := ADOTable2 2. ADOQuery1.DataSource := DataSource1 3. ADOQuery1.SQL.Text := 'select * from data where SN=:SN'

感謝您的熱心與愛心,經過您的幫忙,程式: ADOTable2.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\BOARD.MDB;Persist Security Info=False'; ADOTable2.TableName:='data'; ADOQuery1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=.\BOARDTALK.MDB;Persist Security Info=False'; DataSource1.DataSet:=ADOTable2; ADOQuery1.DataSource:=DataSource1; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Text := 'select * from data where SN=:SN'; ADOQuery1.ExecSQL; DBGrid1.DataSource:=DataSource1; 在移動DBGrid時,仍無法取得ADOQuery1.FieldByName('欄位').AsString的資料,謝謝您!

Hi, ADOQuery1 應為 Open 而非 ExecSQL, 因為是開啟一個查詢, 而非執行 insert, delete, update !!

謝謝回應! ADOQuery1.ExecSQL 改成 ADOQuery1.open 還是一樣! 在DBGrid1DblClick 無法抓取ADOQuery1.FieldByName('欄位').AsString的資料!

引言: 無法抓取ADOQuery1.FieldByName('欄位').AsString的資料!

不是很了改... Error ? Data 錯 ? 方便貼上 DBGrid1.OnDblClick 的 Source Code 嗎 ?

謝謝回應! 移動DBGrid就會移動資料庫ADOTable2的紀錄指標 也會移動關聯資料庫ADOQuery1的紀錄指標,是嗎? procedure TForm1.DBGrid1DblClick(Sender: TObject); begin caption:=ADOQuery1.FieldByName('sd').AsString; end;

試試看:

procedure TForm1.DBGrid1DblClick(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.Open;
  caption:=ADOQuery1.FieldByName('sd').AsString;
end; 

真的很感謝您,對ADOQuery的認識也更多了,謝謝您的熱心!

賣安捏共...緣~~~