NO.1: with Query1 do begin Close; SQL.Clear; SQL.Add('Select ID from TableName'); Open; First; while Not Eof do begin with Query2 do begin Close; SQL.Clear; SQL.Add('Select * From TableNameX where ID = ' + Query1.FieldByName('ID').AsString'); Open; end; end; end; NO.2:
你理解错了,Query1不可以关的,如果关了就没有意义了; 你看我的代码,明明是在 First while Not Eof 里边写的;
现在挺好!你在哪?我十一不打算去哪,只想再抓STL,然后再说,这一年没用DELPHI了,都忘了!
如果用ORACLE数据库很容易实现,用ACCESS我就不清楚了, 帮你up
NO.1: with Query1 do begin Close; SQL.Clear; SQL.Add('Select ID from TableName'); Open; First; while Not Eof do begin with Query2 do begin Close; SQL.Clear; SQL.Add('Select * From TableNameX where ID = ' + Query1.FieldByName('ID').AsString');//打开的是医药管理的; 你要确定ID是对的,只要不是自增的就可以了,前边加distinct;
with Query1 do
begin
Close;
SQL.Clear;
SQL.Add('Select ID from TableName');
Open;
First;
while Not Eof do
begin
with Query2 do
begin
Close;
SQL.Clear;
SQL.Add('Select * From TableNameX where ID = ' + Query1.FieldByName('ID').AsString');
Open;
end;
end;
end;
NO.2:
1:DataBase.DataBaseName = DataBase.AliasName;//相等才可以
2:DataBase.LoginPrmpt := False;//为False;
3:DataBase.Connected := True;
顺便问一下:过的还好吗?祝十一快乐;//是你老乡;
你看我的代码,明明是在
First
while Not Eof 里边写的;
帮你up
with Query1 do
begin
Close;
SQL.Clear;
SQL.Add('Select ID from TableName');
Open;
First;
while Not Eof do
begin
with Query2 do
begin
Close;
SQL.Clear;
SQL.Add('Select * From TableNameX where ID = ' + Query1.FieldByName('ID').AsString');//打开的是医药管理的;
你要确定ID是对的,只要不是自增的就可以了,前边加distinct;
Open;
Edit1.Text := FieldByName('FieldName').AsString;
//依次就取得了;
end;
end;
end;