Delphi6主檔與明細檔的查詢 |
尚未結案
|
shofybus
一般會員 發表:3 回覆:5 積分:1 註冊:2004-07-20 發送簡訊給我 |
|
stillalive
初階會員 發表:7 回覆:148 積分:41 註冊:2004-04-07 發送簡訊給我 |
是否能詳細說明妳用 ADO 何種元件來建置
主檔明細檔關係 . 如用 EDIT 帶出主檔明細檔 , 不妨用這方式 procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char)
begin if Key = #13 then begin ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('SELECT * FROM 主檔 WHERE INV_NO');
ADOQuery1.SQL.Add('=''' Edit1.Text ''' ') ;
ADOQuery1.Open; ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('SELECT * FROM 明細檔 WHERE INV_NO');
ADOQuery2.SQL.Add('=''' Edit1.Text ''' ') ;
ADOQuery2.Open; end ; end ;
|
ko
資深會員 發表:28 回覆:785 積分:444 註冊:2002-08-14 發送簡訊給我 |
shofybus 你好:
使用同一個ado的話,先要下ado.close;
ex:
ADO.Close;
ADO.SQL.Clear;
ADO.SQL.Add('select 主檔.INV_NO,明細檔.出貨名稱 from 主檔,明細檔');
ADO.SQL.Add('where 主檔.INV_NO=明細檔.INV_NO');
ADO.SQL.Add('group by 主檔.INV_NO,明細檔.出貨名稱');
ADO.Open;
------
====================== 昏睡~ 不昏睡~ 不由昏睡~ |
stillalive
初階會員 發表:7 回覆:148 積分:41 註冊:2004-04-07 發送簡訊給我 |
我是用ADOConnection1: TADOConnection;
ADODataSet1: TADODataSet;
ADODataSet2: TADODataSet;
Srcpura: TDataSource;(出貨主檔)
Srcpurb: TDataSource;(出貨明細檔)
主檔顯示的項目是從ADODataSet1拉出所需的項目,明細檔是用DBGRID顯示所示所需項目,用DBNavigator來上下筆,那要如何查詢資料呢?
============================================================ shofybus 你好 不妨再試試這 procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char)
begin if Key = #13 then begin ADODataSet1.Open;
ADODataSet1.CommandText := 'SELECT * FROM 主檔 WHERE INV_NO=''' Edit1.Text ''' ') ;
ADODataSet1.REQUERY ; ADODataSet2.Open;
ADODataSet2.CommandText := 'SELECT * FROM 明細檔 WHERE INV_NO=''' Edit1.Text ''' ') ;
ADODataSet2.REQUERY ; end ; end ;
|
likush
高階會員 發表:5 回覆:235 積分:103 註冊:2002-10-08 發送簡訊給我 |
|
shofybus
一般會員 發表:3 回覆:5 積分:1 註冊:2004-07-20 發送簡訊給我 |
|
Ktop_Robot
站務副站長 發表:0 回覆:3511 積分:0 註冊:2007-04-17 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |