crear login con adotable
este es el codigo que tengo pero me esta dando un error cuando ley al boton aceptar me tira esta error proct factura.exe raised exception clase edatabaserror with message`ADOtable1: cannot perform this operation on a closed dataset`. process stopped. use step or run to continue. y este es el codigo
var Login: TLogin; implementation {$R *.dfm} procedure TLogin.Button1Click(Sender: TObject); begin application.Terminate; end; procedure TLogin.Button2Click(Sender: TObject); begin if adotable1.Seek(edit1.Text) then else showmessage ('UsuarionNo existe'); end; end. quiero saber cual es el parametro o funcion corecta para hacel la conparacion de la tabla if adotable1.Seek(edit1.Text) then no se si esta esta correta esta me funciona bien pero es con ttable pero me lo esta pidiendo usando adotable. en el miismo proyecto pero me estan pideine que tiene que ser con adotable var frmLogin: TfrmLogin; implementation {$R *.dfm} procedure TfrmLogin.Button2Click(Sender: TObject); begin Application.Terminate; end; procedure TfrmLogin.Button1Click(Sender: TObject); begin if Table1.FindKey([Edit1.Text]) then if Table1CLAVE.Value = Edit2.Text then Close else ShowMessage('clave incorrecta!') else ShowMessage('Usuario no existe!'); end; esta esta perfeta mente. gracia y espero que me puedad ayudar. |
Saludos
El mismo error te explica su causa. Abre o activa el adotable antes de hacer "seek". adotable1.open; |
el adotable
el adotable esta ativado pero me tira proct factura.exe raised exception clase eoleexception with messegel `el proveedor actual no admite la interfaz necesaria para la funcionalidad indice` process stopped step or run to continnue.. y este es el codigo
var Login: TLogin; implementation {$R *.dfm} procedure TLogin.Button1Click(Sender: TObject); begin application.Terminate; end; procedure TLogin.Button2Click(Sender: TObject); begin if adotable1.Seek(edit1.Text) then else showmessage ('UsuarionNo existe'); end; end. que me dicen por favor y gracia por sus repuetas |
|
La franja horaria es GMT +2. Ahora son las 03:19:32. |
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