[Paulao]

Este es mi codigo para el banco de datos

Código Delphi [-]
.....
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['SchemaOverride']         := arq_conexao.ReadString('SqlServer','SchemaOverride','');
    SqlConnection1.Params.Values['DriverUnit']             := arq_conexao.ReadString('SqlServer','DriverUnit','');
    SqlConnection1.Params.Values['DiverPackageLoader']     := arq_conexao.ReadString('SqlServer','DiverPackageLoader','');
    SqlConnection1.Params.Values['DriverAssemblyLoader']   := arq_conexao.ReadString('SqlServer','DriverAssemblyLoader','');
    SqlConnection1.Params.Values['MetaDataPackageLoader']  := arq_conexao.ReadString('SqlServer','MetaDataPackageLoader','');
    SqlConnection1.Params.Values['MetaDataAssemblyLoader'] := arq_conexao.ReadString('SqlServer','MetaDataAssemblyLoader','');
    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;

Y este es mi archivo INI

Código Delphi [-]
[SqlServer]
DriverName=MsSql
SchemaOverride=%.dbo
DriverUnit=DBXDynalink
DiverPackageLoader=TDBXDynalinkDriverLoader,DBXDynalinkDriver100.bpl
DriverAssemblyLoader=Borland.Data.TDBXDynalinkDriverLoader,Borland.Data.DbxDynalinkDriver,Version=11  .0.5000.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b
MetaDataPackageLoader=TDBXMsSqlMetaDataCommandFactory,DbxReadOnlyMetaData100.bpl
MetaDataAssemblyLoader=Borland.Data.TDBXMsSqlMetaDataCommandFactory,Borland.Data.DbxReadOnlyMetaData  ,Version=11.0.5000.0,Culture=neutral,PublicKeyToken=91d62ebb5b0d1b1b
HostName=INETSOFTWARE-PC\SQLExpress
DataBase=Global_Cosmeticos
User_Name=sa
Password=simbad
BlobSize=-1
ErrorResourceFile=
LocaleCode=0000
MSSQL TransIsolation=ReadCommited
OS Authentication=False

Yo tengo un cliente que el Sql Server es Windows Authentication y por esto no estas funcionando, o sea, no abre el programa porque no encuentra el banco de datos. No se como configurar mi INI para funcionar. En OS Authentication yo pongo True. En HostName del cliente estas un .(punto) y no tiene password y tambien el user_name es ADVPC\Administrador, pero no se mas el que hacer para funcionar. Las Dll's: Midas.dll y dbxmss30.dll estan en la carpeta del ejecutable, pero no es esto, el error es: Connection() open or Server inexistente.