E possivel sim. amigao você so tem setar na query o ado q você quer quando for fazer a instrucao sql tipo assim: exemplo: unit Modelo; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, FormCadastro, RxCalc, Menus, AppEvnts, ExtCtrls, ComCtrls, RXCtrls, ToolWin, Mask, ToolEdit, StdCtrls, Registro, CurrEdit, DBCtrls, RxLookup, DB, DBTables; type T_frmModelo = class(T_frmModelo) ADOConection1: TADOConection; ADOConection2: TADOConection; private { Private declarations } procedure Consulta; protected { Protected declarations } public { Public declarations } end; var _frmModelo: T_frmModelo; implementation uses Geral, Constantes, GeraSequencial, RotinasInclusao, RotinasAlteracao, RotinasExclusao, LerRegistro, EditaMensagem, Consulta, FuncionarioE2, VeiculosE2; {$R *.dfm} procedure T_frmModelo.Consulta; var loQuery: TADOQuery; begin try try loQuery:= TADOQuery.Create(nil); with loQuery, Sql do begin close; clear; databasename:= ADOConection1.DataBaseName; add('SELECT '); add(' CLIENTE, '); add(' DESCRICAO, '); add(' CGC, '); add(' ENDERECO, '); add(' FONE '); add(' FROM '); add(' CLIENTE '); open; end; // Agora você já tem a 1ª consulta fao q quiser com os dados // aqui você faz a 2ª consulta so precisa feichar e limpar a Query lembrando q quando você fizer isso vai perder os dados da consulta anterior. with loQuery, Sql do begin close; clear; databasename:= ADOConection2.DataBaseName; add('SELECT '); add(' FUNCIONARIO, '); add(' DESCRICAO, '); add(' CPF, '); add(' ENDERECO, '); add(' FONE '); add(' FROM '); add(' FUNCIONARIO '); open; end; // você já tem os dados da 2ª consulta finally loQuery.Close; FreeAndNil(loQuery); end; except on E: Exception do showmessage(E.Message + 'Unidade: ' + Self.Name + 'Rotina: Consulta' ); end; end; Boa sorte... Atenciosamente Gleyson. MSN: gleyson26_msn@hotmail.com
