Foros Club Delphi - como inicio una busqueda de delphi a sql server 2000

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - como inicio una busqueda de delphi a sql server 2000 (https://www.clubdelphi.com/foros/showthread.php?t=43302)

ramphi

08-05-2007 06:16:26

como inicio una busqueda de delphi a sql server 2000

Código Delphi [-]rocedure Tfrmlogin.Button1Click(Sender: TObject);
begin
dmfacturacion.tadousuariousuarioid.FindComponent(edit1.Text);
if dmfacturacion.tadousuariousuarioid.FindComponent(edit1.Text):= true then
 showmessage ('Se encontro el usuario')
end;

alguine puede darme una orientacion para hacer un login con sql server 2000:(

ramphi

08-05-2007 06:47:24

otro intento fallido

Cita:

Empezado por ramphi

hola gente del foro

he estado intentando hacer un login en delphi 7 con base de datos en sql server 2000 y he tenido problemas para hacer lo no he podido hacer la busqueda y confirmar si el usuario existe,

intente con
Código Delphi [-]rocedure Tfrmlogin.Button1Click(Sender: TObject); begin dmfacturacion.tadousuariousuarioid.FindComponent(edit1.Text); if dmfacturacion.tadousuariousuarioid.FindComponent(edit1.Text):= true then showmessage ('Se encontro el usuario') end;

alguine puede darme una orientacion para hacer un login con sql server 2000:(

tambien intente con

Código Delphi [-]dmfacturacion.tadousuario.findkey([edit1.Text]);

y me dice k findkey no indentificado
hay alguien k me de una manita:confused:

Neftali [Germán.Estévez]

08-05-2007 11:12:56

¿Has mirado la ayuda sobre ADO? ¿Has leído algun manual?
No por nada, lo digo porque lo que has puesto arriba no tiene ningun sentido; No se si es una error al escribir el mensaje o que realmente estás intentando con eso.

FindComponent no se usa para buscar datos en tablas, no creo que tenga sentido usarlo con un ADO Table.
FindKey sí tiene sentido, pero tampoco es correcto.

Revisa la ayuda sobre Locate con ADOTable o ADOQuery.
Supongo que deberías usar algo así:

Código Delphi [-]var
  b:Boolean;
begin
  // Buscar por el campo de la tabla llamado 
  b := dmfacturacion.tadousuariousuarioid.Locate('NombreUsuario', Edit1.Text, [loCaseInsensitive, loPartialKey]);
  if (b) then begin
    // Encontrado
    ...
  end
  else begin
    // no enconbtrado
     ...
  end;

ramphi

13-05-2007 04:04:13

LoCaseInsensitive no indentificado y no hay suficientes parametros

intente con

Código Delphi [-]procedure Tfrmlogin.Button1Click(Sender: TObject);
var
encontrado: boolean;
begin
encontrado:=dmfacturacion.tadousuario.Locate('usuarioid',edit1.Text,[LoCaseInsensitive]);
if (encontrado) then
  encontrado
else 
no encontrado
end;

y me da el error de LoCaseInsensitive no indentificado

y si lo quito me dice que no hay suficientes parametros
que hago mal aqui:(

ramphi

14-05-2007 03:02:31

no se donde tengo el error

intente poner mi adotable en un formulario no en el data modulo la siguiente forma:

Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject);
var
encontrado: boolean;
begin
encontrado:=adotable1.Locate('usuarioid',edit1.Text, [locaseinsensitive, lopartialkey]);
  if (encontrado)then
  begin
  showmessage ('entraste')
  end
  else
  showmessage ('no entraste')
end;

y funciona bien pero cuando intento de la siguiente manera

Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject);
var
encontrado: boolean;
begin
encontrado:=dmfacturacion.tadousuario.Locate('usuarioid',edit1.Text, [locaseinsensitive, lopartialkey]);
  if (encontrado)then
  begin
  showmessage ('entraste')
  end
  else
  showmessage ('no entraste')
end;

y me da error como indeclarado identificador 'locaseinsensitive'
y igual con el lopartialkey

cual seria mi error aqui
:o

La franja horaria es GMT +2. Ahora son las 22:46:54.