PDA

Ver la Versión Completa : Consulta en Access


perillan
31-03-2008, 21:30:48
ReportTransmiDestino.ADOquery1.Active := False;
ReportTransmiDestino.ADODataSet1.Active :=False;

ReportTransmiDestino.ADOquery1.SQL[1] := 'WHERE ' + VISTO + ' = :valor AND ' +ComboBox1.Items[ComboBox1.ItemIndex] + ' = >= :valor1';
ReportTransmiDestino.ADOquery1.ParamETERS[0].VALUE :='TRANSMISIONES';
ReportTransmiDestino.ADOquery1.ParamETERS[1].VALUE :='1'; //

Buenas tardes: Este código lo tengo en una consulta que no me da los resultados esperados. Es una base datos Access relacionada con otra y el resultada que espero de la consulta es que me saque el listado de todos los datos de de la maestro y si tiene datos en la relacionada los muestre.

VISTO = Variable con el nombre del campo a buscar en la maestro
ComboBox1 = Nombre del campo de la segunda secuencia de búsqueda y que se introduce en un combo.
TRANSMISIONES= Valor a buscar dentro del campo guardado en VISTO.
>=:valor1 = El resultado del campo (ComboBox1) si es mayor a 1.

Un saludo.

Caral
31-03-2008, 21:39:03
Hola
Esta un poco extraña la consulta, pero:

ReportTransmiDestino.ADOquery1.Active := False;
ReportTransmiDestino.ADODataSet1.Active :=False;

ReportTransmiDestino.ADOquery1.SQL[1] := 'WHERE ' + VISTO + ' = :valor AND ' +ComboBox1.Items[ComboBox1.ItemIndex] + ' >= :valor1';
ReportTransmiDestino.ADOquery1.ParamETERS[0].VALUE :='TRANSMISIONES';
ReportTransmiDestino.ADOquery1.ParamETERS[1].VALUE :='1'; //
Raro, muy raro.
Saludos

perillan
01-04-2008, 13:44:57
Gracias Caral, esto ya funciona bien.
Un saludo