Porque me marca error en mis querys si utilizo el mismo para diferentes consultas

[aledieb]

Hola, proba así:

Código Delphi [-]
DataModulo.QBuscar.Active:=false;
DataModulo.QBuscar.SQL.Clear;
DataModulo.QBuscar.Parameters.Clear;
DataModulo.QBuscar.SQL.Text:='select * from ciclo where ciclo=:cic';
DataModulo.QBuscar.Parameters.ParamByName('cic').Value:=ciclob;
DataModulo.QBuscar.Active:=true;
//DataModulo.QBuscar.ExecSQL;

[zcatzz]

Hola Alejandro , mira tambien ya le hice asi como me dices y es cuando me marca error sobre unos parametros de otros querys .

Es decir estoy vuelta loca ya que si lo pongo arriba de

Código SQL [-]
DataModulo.QBuscar.SQL.Text:='select * from ciclo where ciclo=:cic';

no me lo limpia por que me dice errores de otros parametros que estuve usando en otras sentencias y si lo pongo inmediatamente abajo de la linea me dice que no encuentra el parametro por ejemplo en este caso: el paramtro cic.. osea que onda?
quiere decir que si lo limpio se borra y ahora tengo que crear el parametro.. pero que no precisamente lo estoy creando?

[aledieb]

Es raro, yo utilizo el mismo sistema en algunos procedimientos con la diferencia que utilizo close y open

Código Delphi [-]
DataModulo.QBuscar.close;
DataModulo.QBuscar.SQL.Clear;
DataModulo.QBuscar.SQL.Add('select * from ciclo where ciclo=:cic');
DataModulo.QBuscar.Parameters.ParamByName('cic').asinteger:=ciclob;
DataModulo.QBuscar.open;

Fijate con esta forma tal ves el problema sea en el sql.text, yo lo utilizo de esta manera.
A y le digo que tipo de parametro le paso con asTIPODATO

Espero que te sirva

[FOURIER]

Yo te recomiendo que Uses Open para Select y ExecSQL para Delete,insert y update en el caso de que ocupes ADO sería algo más o menos así

Código SQL [-]
 
DataModulo.QBuscar.SQL.Text:='select * from ciclo where ciclo=:cic';
DataModulo.QBuscar.Parameters.ParamValues['cic'].Value:=ciclob;
DataModulo.QBuscar.Open;

En caso de BDE

Código SQL [-]
DataModulo.QBuscar.SQL.Text:='select * from ciclo where ciclo=:cic';
DataModulo.QBuscar.Params.ParamValues['cic'].Value:=ciclob;
DataModulo.QBuscar.Open;

Espero que te sirva