|
tengo esto en el Oncreate del Datamodule:
procedure TDataModule1.DataModuleCreate(Sender: TObject);
Var BaseDeDatos, ConStr : String;
IniFile: TIniFile;
begin
IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'Inicio.ini');
BasedeDatos := IniFile.ReadString('BD','Path','');
If BasedeDatos = '' then ShowMessage('Error al cargar Base de Datos');
ConStr := ' Provider = sqloledb; '+
' Data Source = '+BaseDeDatos+';'+
' Initial Catalog = MiBase.mdf ';
AdoConnection1.ConnectionString := ConStr;
AdoConnection1 .Open;
end;
Y esto en el archivo .ini que esta en la misma carpeta donde esta todo el programa, en C:\Clients2010\
[BD]
Path="C:\Clients2010\"
[Logon]
Auto="No"
Login=""
Pass=""
Y la Base de Datos se llama MiBase.mdf
Pero no se quiere conectar mediante el archivo .ini y me da este error:
Última edición por lsedr fecha: 19-08-2011 a las 21:05:28.
|