como paso parametros con TAdoQuery ..?

[marcoszorrilla]

La consulta funciona perfectamente la acabo de probar adaptándola a una tabla de prueba y con una rejilla conectada me presenta los registros sin ningún problema.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
Var
aSql:String;
begin
TADOQuery.Close;
aSql := 'Select * from video where Coleccion = :vParametro ';
TADOQuery.SQL.Add(aSql);
TADOQuery.Parameters.ParamByName('vParametro').Value := Edit1.Text;
TADOQuery.Open
end;

Quizás no hayas definido VParametro?

Tienes que pulsar en el botón ... Parameters - AddNew darle el nombre Vparametro y en mi caso lo he definido como ftString.

Un Saludo.

[saul saldaña]

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]

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]

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

[LuisHatake]

Empezado por marcoszorrilla

La consulta funciona perfectamente la acabo de probar adaptándola a una tabla de prueba y con una rejilla conectada me presenta los registros sin ningún problema.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
Var
aSql:String;
begin
TADOQuery.Close;
aSql := 'Select * from video where Coleccion = :vParametro ';
TADOQuery.SQL.Add(aSql);
TADOQuery.Parameters.ParamByName('vParametro').Value := Edit1.Text;
TADOQuery.Open
end;

Quizás no hayas definido VParametro?

Tienes que pulsar en el botón ... Parameters - AddNew darle el nombre Vparametro y en mi caso lo he definido como ftString.

Un Saludo.

Hola marcos, necesito su ayuda de ante mano muchas gracias. lo unico que busco es mostrar los datos de una consulta en una tabla u otro componente que me permita visualizar todos los datos de mi consulta (select * from tabla). uso TadoQuery en delphi 7. que componente me sugieren? y si me pueden apoyar con un poco de codigo muchas gracias.

[Casimiro Notevi]

Empezado por LuisHatake

Hola marcos, necesito su ayuda de ante mano muchas gracias. lo unico que busco es mostrar los datos de una consulta en una tabla u otro componente que me permita visualizar todos los datos de mi consulta (select * from tabla). uso TadoQuery en delphi 7. que componente me sugieren? y si me pueden apoyar con un poco de codigo muchas gracias.

Por favor, lee nuestra guía de estilo, gracias