Fórum TDataModule Não se conecta ! #322870

unit UDataModule;

interface

Uses
  SysUtils, Classes, DB, ADODB, Dialogs;

Type
  TDM = Class(TDataModule)
  ADOConection1 : TADOConnection;
  Procedure DataModuleCreate(Sender:TObject);
  Procedure DataModuleDestroy(Sender:TObject);
  Procedure ADOConection1BeforeConnect(Sender:TObject);

Private
  Procedure Desconecta;
  Procedure Conecta;
  Procedure SetStringConexao;

Public

end;

Var
  DataModule : TDM;

implementation

{ TDataModule }

{ TDM }

procedure TDM.Conecta;
begin

  Desconecta;
  ADOConection1.LoginPrompt := False;
  Try
   ADOConection1.Connected := True;
   ShowMessage(´Conectou com Sucesso´);
  Except
    on E: Exception do
      Begin
        MessageDlg(´Erro ao tentar conectar a base de dados. Detalhes:´
        + #1313 + E.Message, mtError, [mbOK], 0);
      end;
  end;

end;

procedure TDM.Desconecta;
begin

  ADOConection1.Connected := False;

end;

procedure TDM.SetStringConexao;
Var
  StringConexao: String;
  NomeServidor, NomeBaseDados, Usuario, Senha : String;
begin

  NomeServidor := ´WXP04´; // Nome do Servidor.
  NomeBaseDados := ´clientes_Data´; // Nome da base de dados.
  Usuario := ´sa´; // Usuario da base de dados.
  Senha := ´´; // Senha da base de dados.

  StringConexao :=
    ´Provider=sqloledb;´ +
    ´Data Source=´ + NomeServidor + ´;´ +
    ´User Id=´ + Usuario + ´;´ +
    ´Password=´ + Senha;

  ADOConection1.ConnectionString := StringConexao;

end;

procedure TDM.DataModuleCreate(Sender: TObject);
begin

  Conecta;

end;

procedure TDM.DataModuleDestroy(Sender: TObject);
begin

  Desconecta;

end;

procedure TDM.ADOConection1BeforeConnect(Sender: TObject);
begin

  SetStringConexao;

end;

end.