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.