(Resolvido) EDatabaseErro (conexão banco de dados)

[Alex Ferreira]

Olá Galera,

Eu estou aprendendo delphi e estou com um problema, bom.... eu tentei fazer uma consulta no banco de dados MySQL 5.0 para fazer autenticação de Login e senha, porem apareceu um erro que eu não conseguir indentificar, abaixo eu vou colocar o codigo que eu fiz e logo apos o erro que deu.

procedure TFrmLogin.BtnOkClick(Sender: TObject);
begin
UDM2.ConexaoADO.ADO_Usuarios.Open;
FrmMenuPrin.StatusBar1.Panels[2].Text := ' Usuário:' +
FrmLogin.EdtApelido.Text  + ' - '+  UDM2.ConexaoADO.ADO_UsuariosUsuDepto.AsSTring;

If not (UDM2.ConexaoADO.ADO_Usuarios.Locate('UsuApelido', FrmLogin.EdtApelido.Text,
[loPartialKey ])) or  (UDM2.ConexaoADO.ADO_UsuariosUsuSenha.Text <> FrmLogin.EdtSenha.Text) then
begin
      MessageDlg('Nome ou senha do usuário inválidos.'+#13+#13
      + 'Se você esqueceu sua senha, consulte '+ #13
      + 'o administrador do sistema', mtError, [mbOK], 0);
      EdtSenha.Clear; // limpa o objeto EdtSenha
      EdtSenha.SetFocus; //Ajusta o foco para o objeto EdtSenha
end
else
begin
    FrmLogin.Hide; //Esconde a tela
    FrmMenuPrin.ShowModal; //chama a tela FrmMenuPrin no modo modal
    FrmLogin.Release; //Remove a tela da memória
       FrmLogin := Nil; //Atribui conteúdo nulo para a variável de tela FrmLogin
end;

ERRO : Project Sistema.exe raised exception class EDatabaseErro with message "ADO_Usuarios: Type mismatch for field ´UsuSenha´, expecting : Integer actual:String´, Process stopped. Use Step or Run to Continue

No UsuSenha do banco de dados esta com o tipo varChar.

Abraço a todos, fico aguardando ajuda

Editado Janeiro 25, 2008 por Micheus
Adicionado o delimitador de código [code] [/code]. Lembre-se de utilizá-lo para melhor visualização

[Jhonas]

ERRO : Project Sistema.exe raised exception class EDatabaseErro with message "ADO_Usuarios: Type mismatch for field ´UsuSenha´, expecting : Integer actual:String´, Process stopped. Use Step or Run to Continue

tradução

ERRO: Projeto Sistema.exe elevou classe de exceção EDatabaseErro com mensagem " ADO_Usuarios: Tipo incompativel para campo ´UsuSenha´, esperando,: Inteiro Atual :String, Processo parou. Use Step ou Run para Continuar

siginifica que o seu campo UsuSenha esta esperando um numero inteiro, mas atualmente esta definido como uma string

Erro:

or (UDM2.ConexaoADO.ADO_UsuariosUsuSenha.Text <> FrmLogin.EdtSenha.Text) then

Correção:

or (UDM2.ConexaoADO.ADO_UsuariosUsuSenha.Value <> strtoint(FrmLogin.EdtSenha.Text)) then

abraço

[Micheus]

ERRO : Project Sistema.exe raised exception class EDatabaseErro with message "ADO_Usuarios: Type mismatch for field ´UsuSenha´, expecting : Integer actual:String´, Process stopped. Use Step or Run to Continue

No UsuSenha do banco de dados esta com o tipo varChar.

Alex, como o Jhonas já traduziu para você, a mensagem indica: "Tipo incorreto para o Field ´UsuSenha´, experado: Integer atual:String"

Se quando ocorre este erro, o programa pára na linha (ou na seguinte): UDM2.ConexaoADO.ADO_Usuarios.Open;

então, dê um duplo-click no seu dataset ADO_Usuarios, exclua o Field UsuSenha e adicione o campo novamente (Add all fields). Isto poderia ser em função de você inicialmente ter declarado, no banco, o campo como Integer e posteriormente mudado para varchar, sendo que os Fields já estavam no dataset.

Na seqüência proceda com a correção que o Jhonas citou.

eu observei que você está usando um "caminho" bem longo para uso do componentes: UDM2.ConexaoADO.ADO_Usuarios.Open;

ao que parece este UDM2 é o nome da Unit, onde o datamodule ConexaoADO armazena o dataset ADO_Usuarios. Isto é certo? Se for, então, fica a dica de que você não precisa referenciar a unit deste modo - basta que ela esteja incluída na cláusula uses (e já deve estar). Assim, você usaria apenas: ConexaoADO.ADO_Usuarios.Open;

ou ainda pode fazer uso da instrução with ... do:

with ConexaoADO do
begin
  ADO_Usuarios.Open;
  FrmMenuPrin.StatusBar1.Panels[2].Text := ' Usuário:' +
  FrmLogin.EdtApelido.Text  + ' - '+  ADO_UsuariosUsuDepto.AsSTring;
  ...
end;

Abraços

[Guest Alex Ferreira]

Valeu velho, muito Obrigado mesmo :P