• Jueves 18 de Julio de 2024, 19:11

Autor Tema:  Ayuda Con Delphi Mysql O Sql  (Leído 3814 veces)

d0Pe

  • Nuevo Miembro
  • *
  • Mensajes: 13
    • Ver Perfil
Ayuda Con Delphi Mysql O Sql
« en: Miércoles 18 de Julio de 2007, 05:57 »
0
hola que tal a todos, de vuelta aqui,

bueno lo que quisiera preguntarles es como puedo hacer una consulta de sql en delphi, bueno ya tengo la base de datos ya esta ligada con delphi mediante el uso de el uso de un adoconnection, un adoquery y un data source, ademas de un data grid, lo que pasa es que quiero hacer una consulta pero que esta consulta se realice desde una caja de texto, es decir, que mediante un edit se pueda buscar lo que se solicite, algo como esto

select * from ventas where numarticulo = 22

pero que en lugar del 22 sea lo que esta escrito en la caja de texto

select * from ventas where numarticulo = edit2.text

o algo por el estilo,


agraddezco su comprension

sheng63

  • Nuevo Miembro
  • *
  • Mensajes: 2
    • Ver Perfil
Re: Ayuda Con Delphi Mysql O Sql
« Respuesta #1 en: Miércoles 1 de Agosto de 2007, 14:49 »
0
Te recomiendo que uses un componete TQuery

Lo enlasas con tu base de datos y en la proipiedad SQL le pones:

Código: Text
  1. select * from ventas where numarticulo = :NUM
  2.  

Donde :NUM es el parametro, luego en un TButton  colocas:

Código: Text
  1.  Query1.ParamByName('NUM').asInteger := StrToInt(Edit1.Text)
  2.  

teniendo en cuenta que el TQuery se llama Query1 y el TEdit es Edit1

despues abres el TQuery con  Query1.Open;

Para cambiar el valor del parametro, primero tienenes que cerrar tu query y despues cambiar su valor, posteriormenmte lo abres y listo


Espero que te sirva.

CharlieWonka

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Re: Ayuda Con Delphi Mysql O Sql
« Respuesta #2 en: Jueves 16 de Agosto de 2007, 06:09 »
0
Dependiendo de lo que vayas a hacer , en mi caso no me gustan los dbgrid y hago algo asi

Código: Text
  1.  
  2. procedure TForm1.Button1Click(Sender: TObject);
  3. var myVariable:Integer;
  4.     myQry:TADOQuery;
  5. begin
  6.     TryStrToInt(Edit1.Text,myVariable);
  7.     Try
  8.       myQry:=TADOQuery.Create(nil);
  9.       myQry.Connection:=myConnection;
  10.       myQry.SQL.Text:='select * from ventas where numarticulo = ' + Inttostr(myVariable);
  11.       myQry.Open;
  12.       while not myQry.Eof do
  13.       Begin
  14.         //recorreres el cursor y haces lo que tengas que hacer con el resultado
  15.           y voy llenando los datos en otro componente...digamos stringsgrid
  16.           variable:= myQry.FieldByName('nombre_campo').AsInteger;
  17.           variable2:= myQry.FieldByName('nombre_campo_2').AsString;
  18.           etc&#59;
  19.         //
  20.          myQry.Next;
  21.       End;
  22.     Finally
  23.       FreeAndNil(myQry);
  24.     End;
  25.  
  26. end;
  27.  
  28.  

Espero te sirva ...
Saludos
 ;)

loquillo3

  • Nuevo Miembro
  • *
  • Mensajes: 2
    • Ver Perfil
Re: Ayuda Con Delphi Mysql O Sql
« Respuesta #3 en: Domingo 14 de Octubre de 2007, 18:33 »
0
Podrias utilizar este codigo, recuerda que tienes que poner un edit y botton:


ADOQuery1.Close;
ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Add(' select id_documento,numero_doc, nombre, apellido, id_piso, id_destino,fecha_entrada,hora_entrada from visitantes where numero_doc='#39+edit2.Text+#39);

ADOQuery1.open;

if ADOQuery1.Eof then
begin
ShowMessage('Este Numero de Documento No existe');
edit1.Clear;
SetFocus;
end;


 :D  :D   :comp: