Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   DBX no conecta (https://www.clubdelphi.com/foros/showthread.php?t=70344)

Paulao 15-10-2010 13:54:07

DBX no conecta
 
Mi aplicacion trabaja con dos bancos de datos: MySql y SqlServer 2008. El SqlServer funciona bien, pero con MySql no. Abajo mi archivo INI de conecion:
Código Delphi [-]
if banco = 'MySql' then
  begin
    SqlConnection1.ConnectionName                        := 'MySQLConnection50';
    SqlConnection1.DriverName                            := 'MySQL50';
    SqlConnection1.GetDriverFunc                         := 'getSQLDriverMYSQL50';
    SqlConnection1.LibraryName                           := 'dbxopenmysql50.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','');
    SqlConnection1.Params.Values['BlobSize']             :=  arq_conexao.ReadString('MySql','BlobSize','');
    SqlConnection1.Params.Values['LocaleCode']           :=  arq_conexao.ReadString('MySql','LocaleCode','');
    SqlConnection1.Params.Values['ErrorResourceFile']    :=  arq_conexao.ReadString('MySql','ErrorResourceFile','');

  end
  else
  if banco = 'SqlServer' then
  begin
    SqlConnection1.ConnectionName                        := 'MSSQLConnection';
    SqlConnection1.DriverName                            := 'MSSQL';
    SqlConnection1.GetDriverFunc                         := 'getSQLDriverMSSQL';
    SqlConnection1.LibraryName                           := 'dbexpmss.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['BlobSize']             :=  arq_conexao.ReadString('SqlServer','BlobSize','');
    SqlConnection1.Params.Values['LocaleCode']           :=  arq_conexao.ReadString('SqlServer','LocaleCode','');
    SqlConnection1.Params.Values['ErrorResourceFile']    :=  arq_conexao.ReadString('SqlServer','ErrorResourceFile','');
    SqlConnection1.Params.Values['MSSQL TransIsolation'] :=  arq_conexao.ReadString('SqlServer','MSSQL TransIsolation','');
    SqlConnection1.Params.Values['OS Authentication']    :=  arq_conexao.ReadString('SqlServer','OS Authentication','');
  end;
El error es un AccessViolation en dbxopenmysql50.dll, pero si hago la conecion directa en el componente SqlConnection, con los mismos parametros yo consigo conectar al banco.

Paulao 15-10-2010 14:13:12

Hizo un teste directo y el SqlConnection ele abre(Open), pero quando me voy a abrir una tabla, entonces el erro aparece. Creo que no es nada con el Archivo .INI pero si con la conecion mismo.

Paulao 17-10-2010 22:40:16

No consigo abrir una tabla con MySql y DBExpress, pero con SqlServer yo consigo.


La franja horaria es GMT +2. Ahora son las 01:22:29.

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