como inicio una busqueda de delphi a sql server 2000

[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

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]

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 [-] (http://www.clubdelphi.com/foros/#)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 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]]

¿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í:


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

[ramphi]

intente con
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]

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

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


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