filtro entre dos tablas en tiempo de ejecucion

[[Caral]]

Pon esto:

Código Delphi [-]
procedure TFrmImprimirVehiculo.SpeedButton1Click(Sender: TObject);
begin
If (DBNumeroVehiculo.Text <> 'Todos')  then
  Begin
FrmReporte1:=TFrmReporte1.Create(self);
FrmReporte1.Query1.SQL.Add('SELECT NumeroVehiculo');
FrmReporte1.Query1.SQL.Add('FROM BitacoraVehiculos RIGHT JOIN Vehiculos ON BitacoraVehiculos.NumeroVehiculo = Vehiculos.NumeroVehiculo ');
FrmReporte1.Query1.SQL.Add('WHERE Vehiculos.NumeroVehiculo = '+DBLookupComboBox1'');
FrmReporte1.Query1.Open;
If RadioGroup1.ItemIndex = 0 then FrmReporte1.Print
else FrmReporte1.Preview;
finally
FrmReporte1.Free;
end;
end;
end;

Seguro TbBitacora, no lo encuentra.?
Prueba y Me dices
Saludos

[Goyo]

que tal Caral. mira lo implemente de esta otra forma, solo que me marca error, el mismo error implementando la forma que tu me sugeriste...

Código Delphi [-]
procedure TFrmImprimirVehiculo.SpeedButton1Click(Sender: TObject);
 var consulta : string;
begin
  If (DBNumeroVehiculo.Text <> 'Todos')  then
    Begin
    try
     FrmReporte1:=TFrmReporte1.Create(self);
  consulta:='SELECT NumeroVehiculo FROM BitacoraVehiculos RIGHT JOIN Vehiculos ON BitacoraVehiculos.NumeroVehiculo = Vehiculos.NumeroVehiculo WHERE Vehiculos.NumeroVehiculo ='+chr(39)+DBNumeroVehiculo.Text+chr(39);
  FrmReporte1.Query1.SQL.Add(consulta);
  FrmReporte1.query1.Active:=False;
  FrmReporte1.query1.Active:=True;
    If RadioGroup1.ItemIndex = 0 then FrmReporte1.QuickRep1.Print
           else FrmReporte1.QuickRep1.Preview
           finally
           FrmReporte1.QuickRep1.Free;
        end;
   end;
end;

te comento que ruve que ponerle Try para que pueda funcionar el Finally , asimismo, te comento que escribi esto porque asi se llama mi componente DBLookupComboBox1: chr(39)+DBNumeroVehiculo.Text+chr(39) si no le ponto el .text al final me marca error, al igual que cuando llamo el reporte en FrmReporte1.QuickRep1.Print, FrmReporte1.QuickRep1.Preview y FrmReporte1.QuickRep1.Free, me marca un error que desconoce el campo preview y free. y el error que me marca al final... de hecho haciendo estas correcciones al igual que al tuyo, me marca este error...

project bitacoravehiculos.exe tabla bitacoravehiculos

[[Caral]]

No tengo ni idea del porque.
A mi me funciona perfectamente como te indique, creo que tendras que revisar mas el codigo para entender el error, si esta en mis manos te ayudo con mucho gusto.
Saludos

[Goyo]

mira Caral, ahora creo que puedo explicarte: el error que me marca es que dice que no encuentra la base de datos o la tabla BitacoraVehiculos.. yo tengo mi programa en c:\Mis Documentos\BitacoraVehiculos\
y mis datos osea mis tablas en : c:\Mis Documentos\BitacoraVehiculos\Datos

el error que me marca es el siguiente:


project BitacoraVehiculos.exe raides exception class DBEngineError with message 'table does not exist.
File o directory does not exist
File c:\Mis Documentos\BitacoraVehiculos\BitacoraVehiculos.db
File c:\Mis Documentos\BitacoraVehiculos\BitacoraVehiculos.dbf
File c:\Mis Documentos\BitacoraVehiculos\BitacoraVehiculos.txt
File c:\Mis Documentos\BitacoraVehiculos\BitacoraVehiculos'. process stoped. Use step or run to continue.

y disculpa tanta molestia...
saludos

[[Caral]]

Es un placer Goyo
Ya lo resolviste ?
Saludos

[Goyo]

de hecho uso un modulo de datos (Data Module) donde tengo mis bases de datos y en cada programa lo pongo en...

implementation
uses ModuloDatos,.....;

es por ello que cuando ejecuto mi programa me debería de respetar ese modulo, pero creo que no lo esta tomando en cuenta... y aun no resuelvo mi problema...

saludos

[[Caral]]

Es muy estraño
Si usas un query y este esta ligado al datamodule, la conexion esta hecha,
verdaderamente no entiendo porque no funciona.
Saludos