Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Bases de datos > Firebird e Interbase
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 20-01-2011
Paulao Paulao is offline
Miembro
 
Registrado: sep 2003
Ubicación: Rua D 31 Casa 1 - Inhoaíba - Rio de Janeiro - RJ - Brasil
Posts: 637
Poder: 21
Paulao Va por buen camino
Problemas con Firebird

En mi casa, funciona mi programa, pero en mi cliente no. El error es:
Missing DataBase Property
Pero mi archivo .ini es lo mismo que el de mi casa. Abajo mi archivo y mi fuente del DataModulo de conexion.
Código Delphi [-]
[conexao_atual]
banco_atual=Firebird

[MySql]
DriverName=MySql50
HostName=127.0.0.1
DataBase=global_forseq
User_Name=root
password=simbad
BlobSize=-1
ErrorResourceFile=
LocaleCode=0000


[SqlServer]
DriverName=MsSql
HostName=SRVMAIRIBEL      
DataBase=Global_Mairibel
User_Name=
Password=
OS Authentication=True

[FireBird]
DriverName=InterBase
DataBase=F:\Inet\Servidor\Global_Cosmeticos.gdb
User_Name=sysdba
Password=masterkey
SQLDialect=3
Y mi fuente
Código Delphi [-]
procedure TDM_Principal.SQLConnection1BeforeConnect(Sender: TObject);
var
 arq_conexao: TiniFile;
 path,
 banco,
 arquivo,
 p_banco: String;
begin
  conexao := Sqlconnection1;
  path := ExtractFilePath(Application.ExeName);
  arquivo := path + ExtractFileName('Conexao_Global.ini');
  arq_conexao := TIniFile.Create(arquivo);

  banco   := arq_conexao.ReadString('conexao_atual','banco_atual','');
  p_banco := arq_conexao.ReadString('conexao_atual','path_banco','');
  if banco = 'SqlServer' then
  begin
    SqlConnection1.ConnectionName                          := 'Mairibel';
    SqlConnection1.DriverName                              := 'MSSQL';
    SqlConnection1.GetDriverFunc                           := 'getSQLDriverMSSQL';
    SqlConnection1.LibraryName                             := 'dbxmss30.dll';
    SqlConnection1.LoginPrompt                             := False;
    SqlConnection1.VendorLib                               := 'OleDb';
    SqlConnection1.Params.Values['DriverName']             := arq_conexao.ReadString('SqlServer','DriverName','');
    SqlConnection1.Params.Values['HostName']               := arq_conexao.ReadString('SqlServer','HostName','');
    SqlConnection1.Params.Values['DataBase']               := arq_conexao.ReadString('SqlServer','DataBase','');
    SqlConnection1.Params.Values['User_Name']              := arq_conexao.ReadString('SqlServer','User_Name','');
    SqlConnection1.Params.Values['Password']               := arq_conexao.ReadString('SqlServer','password','');
    SqlConnection1.Params.Values['OS Authentication']      := arq_conexao.ReadString('SqlServer','OS Authentication','');
  end
  else
  if banco = 'MySql' then
  begin
    SqlConnection1.ConnectionName                          := 'MYSQLCONNECTION';
    SqlConnection1.DriverName                              := 'MySQL';
    SqlConnection1.GetDriverFunc                           := 'getSQLDriverMYSQL';
    SqlConnection1.LibraryName                             := 'dbxmys30.dll';
    SqlConnection1.LoginPrompt                             := False;
    SqlConnection1.VendorLib                               := 'LIBMYSQL.dll';
    SqlConnection1.Params.Values['DriverName']             := arq_conexao.ReadString('MySql','DriverName','');
    SqlConnection1.Params.Values['HostName']               := arq_conexao.ReadString('MySql','HostName','');
    SqlConnection1.Params.Values['DataBase']               := arq_conexao.ReadString('MySql','DataBase','');
    SqlConnection1.Params.Values['User_Name']              := arq_conexao.ReadString('MySql','User_Name','');
    SqlConnection1.Params.Values['Password']               := arq_conexao.ReadString('MySql','password','');
  end
  else
  if banco = 'FireBird' then
  begin
    SqlConnection1.ConnectionName                          := 'Mairibel_FB';
    SqlConnection1.DriverName                              := 'Interbase';
    SqlConnection1.GetDriverFunc                           := 'getSQLDriverINTERBASE';
    SqlConnection1.LibraryName                             := 'dbxint30.dll';
    SqlConnection1.LoginPrompt                             := False;
    SqlConnection1.VendorLib                               := 'GDS32.DLL';
    SqlConnection1.Params.Values['DriverName']             := arq_conexao.ReadString('FireBird','DriverName','');
    SqlConnection1.Params.Values['HostName']               := arq_conexao.ReadString('FireBird','HostName','');
    SqlConnection1.Params.Values['DataBase']               := arq_conexao.ReadString('FireBird','DataBase','');
    SqlConnection1.Params.Values['User_Name']              := arq_conexao.ReadString('FireBird','User_Name','');
    SqlConnection1.Params.Values['Password']               := arq_conexao.ReadString('FireBird','password','');
  end;
end;

end.
Responder Con Cita
  #2  
Antiguo 20-01-2011
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.048
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Por favor, recuerda usar títulos descriptivos cuando hagas preguntas.
No olvides nuestra guía de estilo, gracias.


DataBase=F:\Inet\Servidor\Global_Cosmeticos.gdb

F: ¿es una unidad física, o una unidad "mapeada" de red?

Recuerda que debes usar rutas completas y físicas, ejemplo:

192.168.0.100:c:\datos\cosmeticos.fdb
Responder Con Cita
  #3  
Antiguo 20-01-2011
Paulao Paulao is offline
Miembro
 
Registrado: sep 2003
Ubicación: Rua D 31 Casa 1 - Inhoaíba - Rio de Janeiro - RJ - Brasil
Posts: 637
Poder: 21
Paulao Va por buen camino
F es una unidad fisica
Responder Con Cita
  #4  
Antiguo 20-01-2011
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.048
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
¿Puede ser que tengas instaladas distintas versiones de firebird?
Responder Con Cita
  #5  
Antiguo 20-01-2011
Paulao Paulao is offline
Miembro
 
Registrado: sep 2003
Ubicación: Rua D 31 Casa 1 - Inhoaíba - Rio de Janeiro - RJ - Brasil
Posts: 637
Poder: 21
Paulao Va por buen camino
No, solo una. Yo baje y instale en el servidor de la empresa. No hay otra.
Responder Con Cita
  #6  
Antiguo 20-01-2011
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.048
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Lo que no entiendo, entre otras cosas, es que pones algo sobre mysql, mssql, interbase, firebird, etc. ¿eso qué es?
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
problemas con firebird 2.1.0 ciacsl Firebird e Interbase 1 27-06-2008 13:39:28
problemas con firebird 1.5 STONECOLD Conexión con bases de datos 17 31-10-2007 23:11:07
Problemas con Firebird en red seara2005 Firebird e Interbase 5 01-12-2006 21:03:53
Problemas Firebird Super Server 1.5 con RFunc Firebird v 1.0 Prophoenix Firebird e Interbase 1 09-03-2004 11:40:48
Problemas con Firebird ander Firebird e Interbase 3 15-10-2003 13:16:26


La franja horaria es GMT +2. Ahora son las 21:05:18.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi