Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   SQL (https://www.clubdelphi.com/foros/forumdisplay.php?f=6)
-   -   Primeros pasos (SQL EN DELPHI) (https://www.clubdelphi.com/foros/showthread.php?t=61797)

Pollo2004 22-11-2008 13:41:43

Primeros pasos (SQL EN DELPHI)
 
Hola a todos nuevamente!!! Estoy empezando a usar SQL junto a DELPHI. Yo quisiera hacer una consulta de esta forma.

select * from Cliente
where Razon_Social = (aca quisiera el dato q ingreso por teclado en un edit)

Esto es lo q tengo q poner en el TQuery, y lo q tengo q poner en delphi seria esto?

en el evento onclick de un boton pondria esto:
TQuery1.execSQL

Otra preguntita es si alguin conoce algun manual online del uso de sql desde Delphi, estuve mirando la cara oculta de delphi 4, y me quedaron varias dudas.
Gracias por su tiempo!

rgstuamigo 22-11-2008 14:20:12

Hola Pollo2004 para hacer eso debes poner en la propiedad SQL del TQuery tu consulta de esta manera:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Query1.Close;//cerramos el Query por precausion
  Query1.SQL.Add('select * from Cliente where Razon_Social = :Rason_social');//aqui se crea automaticamente un parametro llamado Rason_Social
  Query1.ParamByName('Rason_social').AsString:=Edit1.Text;//aqui le asigno el valor del texto del edit a mi parametro que se creo atomaticamente
  Query1.Open;//Esto es equivalente a Query1.Active:=True;//aqui ejecuto la consulta
  (*Debes utilizar Open para cuando vas a seleccionar
  y no execSQL por que esto se utliza para cuando se va a insertar, modificar y eliminar*)
end;

Caro 22-11-2008 16:17:02

Hola, solo añadir una cosita, cuando se utiliza Add, debes limpiar antes lo que tenias en tu propiedad Sql o sino asignar directo tu consulta a Sql.Text.

Código Delphi [-]
  ...........
  Query1.Sql.Clear;
  Query1.SQL.Add('..........');
  ............

Saluditos

rgstuamigo 22-11-2008 16:24:50

Tienes razon caro......hay que añadirle esa linea mas...
o cambiar lo siguiente:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Query1.Close;//cerramos el Query por precausion
  Query1.SQL.Text:='select * from Cliente where Razon_Social = :Rason_social';(Aqui cambie)//aqui se crea automaticamente un parametro llamado Rason_Social
  Query1.ParamByName('Rason_social').AsString:=Edit1.Text;//aqui le asigno el valor del texto del edit a mi parametro que se creo atomaticamente
  Query1.Open;//Esto es equivalente a Query1.Active:=True;//aqui ejecuto la consulta
  (*Debes utilizar Open para cuando vas a seleccionar
  y no execSQL por que esto se utliza para cuando se va a insertar, modificar y eliminar*)
end;

Pollo2004 22-11-2008 16:35:45

Gracias rgstuamigo, me va de maravilla!
En el transcurso de tu respuesta encontre la propiedad ParamByName, y hice algo parecido a lo q tu me dices y me andubo joya.

Y con respecto a algun manual, libro o tutorial conoces alguno?

Gracias!

rgstuamigo 22-11-2008 16:50:52

Manual sobre que? si es sobre programacion en delphi huuuuuuuuu hay artisimo busca en google o
tambien puedes buscar con el buscador del club para mirar todo, absolutamente todo sobre delphi,etc,etc encontraras todo los hilos relacionados con tu busqueda.
Saluditos.......:cool:


La franja horaria es GMT +2. Ahora son las 14:56:00.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi