Error No existe columna 'cod'

[magnu9]

Gracias ya logré resolver cierta parte de pasar el parametro con los =: puntos agregados antes de Cod en el String del EQL.

El problema radica ahora en que no me reconoce la clave de entrada. Pero si en vez de ponerlo IGUAL =.. lo coloco <> accede al sistema. En la parte que coloque las dos caritas.

Código Delphi [-]
procedure TFLogin.BtnOkClick(Sender: TObject);
begin
LoginOK :=False;
 // ADOQuery1.SQL.Add('Where codusu = '''+txtUsuario.Text+'''');
   AdoQuery1.Parameters.ParamByName('cod').Value:= txtUsuario.Text;
   AdoQuery1.Active:= True;
   If AdoQuery1.RecordCount < 1 then
    Begin
       Cuenta := Cuenta + 1;
       MessageDlg('Usuario no encontrado',mtError, [mbOK], 0);
       txtUsuario.Text := '';
       txtContra.Text := '';
       AdoQuery1.Active := False;
    If Cuenta = 3 then  Application.Terminate;
    end
   else
     If AdoQuery1pasusu.AsString = txtContra.Text then
        Begin
        LoginOk := True;
         Usuario := AdoQuery1codusu.AsString;
          Nombre := AdoQuery1pasusu.AsString;
          AdoQuery1.Active := false;
          Close; 
        end
     else
         Begin
           Cuenta := Cuenta + 1;
           MessageDlg('Clave Inválida',mtError, [mbOK], 0);
           txtContra.Text := '';
           AdoQuery1.Active := False;
      If Cuenta = 3 then Application.Terminate;
         end;

[mamaro]

Puede ser que se trate de un problema con las mayúsculas y minusculas.

prueba esto:

SELECT codusu, nomusu, pasusu FROM Usuario where UPPERCASE(codusu)= UPPERCASE(:cod)

PD: No estoy seguro si UPPERCASE es reconocido en SQL Server (yo utilizo Firebird).

[magnu9]

Saludos a todos, Mamaro, Caral y Onti. Lo he intentado de muchas maneras, y encontre la siguiente manera... pero tienes ciertas fallas.. por ejemplo si no logras entrar en la primera oportunidad la segunda y la tercera no importan ya que sale el mismo error como cuando te equivoca la primera vez... creo que al que afinarla un poquito más... a ver si se animan apoyarme. Gracias de antemanos.

Código Delphi [-]
  LoginOK :=False;
   AdoQuery1.Parameters.ParamByName('Cod').Value:= Edit1.Text;
   ADOQuery1.SQL.Add('and pasusu = '''+edit2.Text+'''');
   AdoQuery1.Active:= True;
   IF (Edit1.Text= '') OR (EDIT2.Text = '') THEN  BEGIN
    MessageDlg('DIGITE LOS ESPACIO EN BLANCO', mtInformation,[mbCancel], 0,);
    Edit1.Text := '';
    Edit2.Text := '';
    END
   ELSE If AdoQuery1.RecordCount < 1 then
    Begin
       Cuenta := Cuenta + 1;
       MessageDlg('Usuario no encontrado',mtError, [mbOK], 0);
       Edit1.Text := '';
       Edit2.Text := '';
    If Cuenta = 3 then  Application.Terminate;
    END
    else close;

[Onti]

Algunos cambios sugeridos:

1.- Cambia tu Sql inicial por

Código SQL [-]
SELECT codusu, nomusu, pasusu FROM Usuario where codusu=:cod and PasUsu = :PasUsu"

2.- Valida si los "edits" están vacíos antes de realizar la consulta y mejor si utilizas la función "length"

3. Utiliza ParamByName para el pass
4. Utiliza la funcion Inc para incrementar tu contador

Código Delphi [-]
  // Verificar edit vacios
    If (Length(Edit1.text)+Length(Edit2.text))=0 then
      Begin
        MessageDlg('DIGITE LOS ESPACIO EN BLANCO',mtInformation,[mbCancel], 0,);
        Exit;
      End;

  // Inicializar variables
    LoginOK :=False;

  // Realizar consulta
    AdoQuery1.Close;
    AdoQuery1.Parameters.ParamByName('Cod').Value    := Edit1.Text;
    AdoQuery1.Parameters.ParamByName('PasUsu').Value := Edit2.Text;
    AdoQuery1.Open;
    If AdoQuery1.RecordCount =0 then
      Begin
        Inc(Cuenta);
        MessageDlg('Usuario no encontrado',mtError, [mbOK], 0);
        Edit1.Text := '';
        Edit2.Text := '';
      End
    Else
      LoginOk:=True;
    AdoQuery1.Close;
    If Cuenta = 3 then  
      Application.Terminate;

[magnu9]

Gracias Onti y a los demas... tu última respuesta termino siendo lo que queria hasta el momento todo funciona a la perfeccion asi que Mil Gracias. Y no se preocupen mis siguientes dudas estan a la deriba de mi sistema.