Ver Mensaje Individual
  #3  
Antiguo 19-08-2011
lsedr lsedr is offline
Miembro
 
Registrado: ago 2010
Posts: 39
Reputación: 0
lsedr Va por buen camino
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:
Imágenes Adjuntas
Tipo de Archivo: jpg 11.JPG (18,3 KB, 9 visitas)

Última edición por lsedr fecha: 19-08-2011 a las 21:05:28.
Responder Con Cita