consulta sql en adodataset

[davidgaldo]

Hola estoy creando una aplicación con delphi7 y utilizando el componente Tadodataset para hacer una consulta, mi problema es que en la propiedad commandtext al meter la consulta me da un error al compilar que me dice que el nº de caracteres permitidos no debe exceder de 255, como puedo hacer una consulta de más caracteres??

[epuigdef]

Puedes utilizar un TADOQuery, con la propiedad SQL


Edu

[lucasarts_18]

Hola

Algo así...

Código Delphi [-]
 
  adoquery.add(select campo1,campo3,campoN..);
  adoquery.add(from tabla);
  adoquery.open;

En definitiva, puedes separar la instrucción como sale mas arriba.

Hasta Luego -

[vtdeleon]

Saludos
lucasarts_18, una observacion .Sql:

Código Delphi [-]
 adoquery.Sql.add('select * from campo1,campo2,');
 adoquery.Sql.add('campo3,campoN');
 adoquery.Sql.add('from tabla');
 adoquery.Sql.open;

[lucasarts_18]

Empezado por vtdeleon

lucasarts_18, una observacion

Gracias Nuevamente VTDELEON, esto de hacer las cosas sin delphi, sino directamente desde acá...

[davidgaldo]

solo me funciona si hago la consulta en el primer add, ti la parto en dos ya no me funciona.

[lucasarts_18]

Hola:

Pone el código para ver en que está fallando.....

Hasta Luego -

[davidgaldo]

adoquery1.close;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from albaranes');
adoquery1.SQL.Add('where year(fecha)=''2005'' and month(fecha)=''11''');
adoquery1.open;

Aquí teneis el código, a ver si me podeis hechar una mano.

[epuigdef]

El 2005 y el 11 (año y mes) deben estar sin las comillas, ya que son datos numéricos.


Edu

[davidgaldo]

sigue sin irme

[epuigdef]

prueba esto:

Código Delphi [-]
ADOQuery1.sql.text := 'select * from albaranes where format(fecha, '''yyyy''')=:paramanyo and format(fecha, '''MM''')=:parammes';
ADOQuery1.parameters.paramByName('paramanyo').Value := 2005
ADOQuery1.parameters.paramByName('parammes').Value := 11
ADOQuery1.open;

Edu

[davidgaldo]

si pongo solo el año va pero con el and no va.

[epuigdef]

me pasas el código tal y como lo tienes puesto? Esto ya parece un Poltergeist! Qué raro!


Edu

[davidgaldo]

adoquery1.close;
adoquery1.SQL.Add('select * from albaranes');
adoquery1.SQL.Add('where year(fecha)=2005 and month(fecha)=11');
adoquery1.open;

[Epachsoft]

Hola,

Usualmente yo lo hago asi. Disculpen la sitnaxis va a pura memoria.

Var
S : TStringList;

begin
S:= TStringList.Create;
try
S.Clear;
s.add('select * from albaranes');
s.add('from albaranes');
s.add('where year(fecha)=:year and month(fecha)=:month');
adodataset.CommandText:=S.Text;
adodataset.Parameters.ParseSQL(S.text,true);
adodataset.Parameters.ParamByName('year').value:=2005;
adodataset.parameters.parambyname('month').value:=11;
adodataset.Open;
try
// haga algo
finally
adodataset.close;
end;
finally
S.Free;
end;

Si esta usando un adoquery, yo creo que aun agregando el texto al SQL tstring, el no detecta los parametros en runtime a menos que se llame el parsesql.

Si no va a usar parametros, es mejroq que use un Format y agregue los valores de fecha como %s.

[epuigdef]

David, has comprobado que inicialmente no haya nada en la query.sql?


Empieza con query.sql.clear después de cerrarla.

Edu

[davidgaldo]

Sí!!, funcionó con tu último código, gracias por todo amigos.