![]() |
![]() |
| Paypal | 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;
|
|
#2
|
||||
|
||||
|
Parametros
yo lo haria de la siguiente manera
Código:
Query.SQL.Add('SELECT * FROM USERS WHERE USUARIO =:usuario AND PASS = :pass);
Query.Parameters.FieldByName('usuario').AsString := Login.Item1.Text;
Query.Parameters.FieldByName('pass').AsString := Login.Item2.Text;
Query.Open;
....
__________________
El Fracaso tiene mil explicaciones el Éxito no necsita explicación Última edición por geovany fecha: 25-04-2005 a las 19:43:22. Razón: La carita quere decir :p ":pass" |
|
#3
|
|||
|
|||
|
lo pude solucionar así gracias.
salu2 |
![]() |
|
|
|