FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
error Select firebird 1.5
Amigos.
Soy iniciante de Firebird 1.5. Tengo un problema con una consulta desde delphi 7. Trabajo con IB EXPERT , MERCURY COMPONENTS. Dispongo de un DB.fdb con la siguiente configuración ISO8859_1 Dialecto SQL 3. y la configure para que use el gds32.dll (embebido). Me conecta perfectamente a la base de datos . pero cuando intento hacer una consulta para autenticar un user y un password me tira el siguiente error : EMDOFirebirdError with "dinamic SQL error . Error code = -104 Token Uknown - line 1 chr 37 Componentes : DataSource : datasource MDOQryUser : query MDOTransUser : transaction MDODatabase1 : db El codigo es el siguiente : Código:
procedure TPrincipal.FormShow(Sender: TObject); var accion:variant; intenta,correcto:boolean; begin { repite el pedido de login hasta que coincida o cierre el user o cancele} repeat accion := Login.ShowModal; intenta := accion = mrOk; {busca en la base de datos cada intento del usuario del sistema} MDOQryUser.SQL.Text := 'SELECT * FROM USERS WHERE USUARIO = '+Login.Item1Text+' AND PASS = '+Login.Item2Text+''; MDOQryUser.Active := true; if MDOQryUser.RowsAffected = 1 then correcto := true; else correcto := false; {compara los datos con los correctos} if correcto then begin { ingresa al sistema porque encontró al usuario } SiLoginMSN.Popup; intenta := false; labelHora.Caption := timetostr(time); labelFecha.Caption := datetostr(date); end else if accion = mrOk then NoLogin.ShowModal; until not intenta; if accion = mrCancel then Application.Terminate; end; |
|
|
|