como paso parametros con TAdoQuery ..?

saul saldaña · #1 11-09-2004

hola , mira ya delcare mi variable y cheque todo lo demas, el caso esta asi.. es que en mi programa utilizo el TADOCOnnection la cual le asigno la bse de datos que esta en MS Acess 2000, y el TADOQuery le asigno en la propiedad conncection el Name de mi TADOConnection.

y el codigo es el sig:
//si esta conectado que lo desconecte
if TADOCOnnection.Connected then TADOCOnnection.Connected := False;
TADOQuery.Close; //cierro el TADOQuery
vSql := '';
vSql := 'Select * from producto where codigo =:vParametro ';
TADOCOnnection.Connected := True; //abra la conexion con la bd
TADOQuery.SQL.Add (vSql);
TADOQuery.Parameters.ParamByName('vParametro').Value := StrToint(Edit1.text);
TADOQuery.Open;
//** fin de mi programa...

espero contar con tu ayuda .. gracias.....!!!

marcoszorrilla · #2 11-09-2004

Cita:

hola , mira ya delcare mi variable

Por lo que se deduce de lo dicho parece ser que declaras una variable y no un parámetro?

Con una variable quedaría así:

Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject);
Var
aSql:String;
begin
TADOQuery.Close;
aSql := 'Select * from video where Coleccion =' +QuotedStr(MiVariable);
TADOQuery.SQL.Add(aSql);

TADOQuery.Open
end;

Un Saludo.

jaime cotino · #3 12-09-2004

Ejemplo de Sql con parametros
Select MESA
From mesas
Where mesa=

1;
Ejemplo de llamada
DataModule2.AbrirMesa.close;
DataModule2.AbrirMesa.Prepare;
DataMOdule2.AbrirMesa.Params[0].value := V[ticketmesa];
DataModule2.AbrirMesa.Open;
el parámatro p1 y la variable que le mandes deben de ser del mismo tipo
esto es con interbase si utilizas acces
en vez prepare prepared
y en vez de params parameters