Nome da fonte dedados nao encontrado e nenhum driver padrão especificado

Delphi

22/07/2016

Olá, ja várias dúvidas com essa mensagem, mas não achei nenhuma como meu caso. Minha aplicação usa bd Acces, adoconection e ta funfando tudo em todos os forms, mas quando fiz um form para login e o pus como main ta dando esse erro.
O que devo mudar? O que ta faltando?

unit U_login;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls, DB, Grids, DBGrids;

type
  Tf_login = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    editUsuario: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    editSenha: TEdit;
    dsUsuarios: TDataSource;
    DBGrid1: TDBGrid;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure AjudaClick(Sender: TObject);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_login: Tf_login;

implementation

uses U_principal, U_dmdados, U_frmSplash;

{$R *.dfm}

procedure Tf_login.BitBtn1Click(Sender: TObject);
begin
  dmdados.Usuarios.close;
     dmdados.Usuarios.sql.Clear;
     dmdados.Usuarios.sql.Text:='select * from usuarios where login=' + quotedstr(editUsuario.Text); 
               ' and senha=' + quotedstr(editSenha.Text);
     dmdados.usuarios.open;
   
     if dmdados.usuarios.IsEmpty then
      begin
          showmessage('Acesso negado');
      end
      else
      BEGIN
       f_principal.Show;
       f_principal.labelUsuario.Caption:= dmdados.Usuarios.fieldbyname('nome').AsString;
      END;
end;

procedure Tf_login.BitBtn2Click(Sender: TObject);
begin
application.Terminate;
end;

procedure Tf_login.AjudaClick(Sender: TObject);
begin
f_ajuda.Show;
end;



end.
Ivo Nascimento

Ivo Nascimento

Curtidas 0

Respostas

Raimundo Pereira

Raimundo Pereira

22/07/2016

Debug.o Form LOGIN.
Post a mensagem de erro!
GOSTEI 0
Ivo Nascimento

Ivo Nascimento

22/07/2016

Mensagem de erro:

Project Regip.exe raised exception class EOleException with message '[Microsoft][ODBC Drive Manager] Nome da fonte de dados não encontrado e nenhum driver padrão especificado'. Process stopped. Use Step or Run to continue.




Highlighted line: dmdados.usuarios.ExecSQL;
GOSTEI 0
Ivo Nascimento

Ivo Nascimento

22/07/2016

Pessoal, desculpe. Sou um "oreia" mesmo.
Já encontrei o erro. Eu tinha esquecido que a procedure de conectar está no form denominado principal e criei um form login o qual o pus como main. Aí não tava achando o bd.
:D
[]'s
GOSTEI 0
Raimundo Pereira

Raimundo Pereira

22/07/2016

Tranquilo brother, ninguém nasce sabendo de tudo, aprendemos com nossos erros.
Sucesso ai, precisando de ajuda estamos a disposição.
GOSTEI 0
POSTAR