[firebase-br] Erro dbExpress

[Pedro Leonardo]

Desculpe pessoal, faltava a Dll dbExpress no diretorio do executavel..
Valeu
[]s
Pedro Leonardo




----- Original Message -----
From: "Pedro Leonardo" <pleonardomv em bol.com.br>
To: "FireBase" <lista em firebase.com.br>
Sent: Friday, March 11, 2005 9:42 AM
Subject: [firebase-br] Erro dbExpress


Quando tento conectar em um banco FB usando dbExpress aparece o erro
unknown error code "65535"
Delphi 7,   FB 1.5.2,   Win XP

Faço assim para carregar:

Procedure CarregaBancodeDados;
Var  Diretorio : String;
       Path : String;
       Arq : TextFile;
Begin
  Diretorio := ExtractFilePath(Application.ExeName)+'Banco.txt';
  AssignFile(Arq,Diretorio);
  If(Not FileExists(Diretorio))Then
  Begin
    Rewrite(Arq);
    Write(Arq,ExtractFilePath(Application.ExeName)+'DataBase\Dados.FDB');
  End;
  Reset(Arq);
  Readln(Arq, Path); // Lê a primeira linha do arquivo na variável Path
  CloseFile(Arq);
  Try
    If(DtModConexao.SQLConexao.Connected)Then
   TSqlConnection
     DtModConexao.SQLConexao.Connected := False;
    DtModConexao.SQLConexao.Params.Values['database'] := Path;
    DtModConexao.SQLConexao.Connected := True;
  Except
    On EDatabaseError do
    Begin
      ShowMessage('Erro ao conectar com o Banco de dados') ;
    End;
  End;

Obrigado...
Pedro Leonardo

______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
Para editar sua configuração na lista, use o endereço
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br