Perfil de usuario

[einarcito]

hola tengo un problema, aca les dejo una porcion de codigo

Código Delphi [-]

with dm.query1.do begin
      Active := False;
      sql.Add('select * from cuentasusuarios where nombre = nombre and contrasena=contrasena');
      {Asignamos un valor a cada parametro}
        ParamByName('pnombre').Value := editusuario.Text;
        ParamByname('pcontrasena').Value:=editcontrasena.Text;
        Active := true;
      if (recordcount > 0)
         then
           begin
                  showmessage('Usuario y contrasena valido');
                  editusuario.Clear;
                  editcontrasena.Clear;
                  editusuario.SetFocus;
                  end else begin
                  showmessage('invalidos');
                  editusuario.Clear;
                  editcontrasena.Clear;
                  editusuario.SetFocus;
                  end;
          end;     
    
      dm.usuarios.Close;
      dm.usuarios.Open;

es para hacer un login, al principo cunado me logueo me muestra el mensaje pero cuando quiero hacer un segundo login me da error la aplicacion. me podrian decir donde ta el error???

[*Caro*]

Hola einarcito, cual es el error que te sale .

Saluditos

[einarcito]

un error q me traba el programa. me da el error en la sentencia sql con los nuevos datos cargados. y el compilador me deja con el cursor en el if(recordCount >0) yo creo que es porque necesito lleva el puntero a la 1ra posicion de la tabla nuevamente, algo como un recorCount:=0 pero no me deja, nose si me hago entender???
la 1ra vez accedo perfecto pero cuando quiero ingresar de nuevo me sale el error, q puede ser???? CAROO:=

[*Caro*]

Hola de nuevo, así a simple vista te falta hacer Clear de lo que tienes en tu propiedda Sql.

Código Delphi [-]
with dm.query1.do begin
      Active := False;
      sql.Clear;
      sql.Add('select * from cuentasusuarios where nombre = nombre and contrasena=contrasena');
      {Asignamos un valor a cada parametro}
        ParamByName('pnombre').Value := editusuario.Text;
        ParamByname('pcontrasena').Value:=editcontrasena.Text;
        Active := true;

Saluditos

[einarcito]

Soy un pavo no me di cuenta:S gracia por hacerme abrir la cabeza fuinciono.. ADios CARUUUUUU