Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   MS SQL Server (https://www.clubdelphi.com/foros/forumdisplay.php?f=23)
-   -   Novato al limite, ayuda con una query (https://www.clubdelphi.com/foros/showthread.php?t=77613)

krewer 10-02-2012 23:48:24

Novato al limite, ayuda con una query
 
La consulta es la siguiente, estoy recien entrando a delphi y no se como poner la query dentro del programa

por ejemplo

que en un if consultar sobre algo que esta en la base de datos

me tiene vuelto loco xD

Desde ya les agradeceria toda su ayuda

ecfisa 11-02-2012 00:21:14

Hola krewer y bienvenido a Club Delphi. :)

Como a todo el que recién ingresa te invito a que leas nuestra guía de estilo

Siempre es importante que dés la mayor información posible, como por ejemplo con que base de datos trabajas, que tipo de componente, etc.

De modo general podrías hacer:
Código Delphi [-]
function TForm1.Existe(Dato: Variant): Boolean;
begin
  with Query do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT * FROM TU_TABLA');
    SQL.Add('WHERE CAMPO_BUSCADO = :DATO');
    ParamByName('DATO').Value:= Dato;
    Open;
    Result:= not isEmpty;
  end;
end;

Ejemplo de llamada:
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if Existe(Edit1.Text) then
    ShowMessage('Encontrado')
  else
    ShowMessage('No existe');
end;

Saludos.

krewer 11-02-2012 01:57:46

Muchas Gracias por la ayuda, trabajo con sql server 2008, la cosa es que tengo unos componentes instalados, por ejemplo el unidac providers y los coloco en unos modulos, mi pregunta es como los llamo a mi form1 y los valido por ejemplo para un login esa es mi gran he inmensa duda xD

krewer 11-02-2012 02:00:14

para aclarar no se si seran conocidos, pero en el unidac provider vienen los componentes

- uniconnection
- uniquery
....


similares a los de ado

Caral 11-02-2012 02:47:47

Hola
Con relacion a la duda que me comentaste en tu mensaje:
Tienes:
AdoConection
AdoQuery
From
Edit
Boton
Dale click al boton y te saldra el evento OnClick del boton.
Ahi es donde pones el codigo que verifica el usuario por medio o comparado con el dato que escribes en el form
Usando el ejemplo de mi amigo ecfisa:
Código Delphi [-]
with AdoQuery do
  begin
    Close;
    SQL.Text:= 'SELECT Codigo FROM Usuarios'+
              'WHERE Codigo = :TuDato';
    ParamByName('TuDato').Value:= Edit1.text;
    Open;
end;
Con esto verificas que el dato que escribiste en el edit sea igual que el que esta en la tabla.
Una vez que lo verifiques puedes hacer lo que necesites con el.
Saludos

krewer 11-02-2012 19:25:19

Muchas gracias por sus respuestas me han aclarado algunas cosas, ahora por ejemplo como podria yo poner la variable de sql en un if por ejemplo que el adoquery ponerlo en una variable y asi compararlo o esta mal ?

XD disculpen las molestias

Casimiro Noteví 11-02-2012 19:36:27

Recuerda nuestra guía de estilo, preguntas distintas en hilos diferentes, gracias por tu colaboración.
Si mezclamos las cosas, ¿quién puede luego encontrar algo?

Caral 11-02-2012 20:19:30

Hola
Aqui tienes un ejemplo con bd access para loguearse.
No sera nada dificil cambiarlo a sql server ya que tambien esta hecho con ADO.
Saludos

krewer 11-02-2012 22:53:17

Muchas gracias caral, en realidad me ayudaste bastante, cualquier duda que tenga no dudare en preguntar nuevamente en este gran foro :D muchas gracias


La franja horaria es GMT +2. Ahora son las 05:28:51.

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