Ver Mensaje Individual
  #2  
Antiguo 20-11-2010
Avatar de microbiano
microbiano microbiano is offline
Miembro
 
Registrado: sep 2008
Ubicación: Mexico D.F
Posts: 349
Reputación: 16
microbiano Va por buen camino
respuesta

hola buenas noches, a que base de datos te quieres conectar?
un ejemplo simple de conexion es este
Código Delphi [-]
procedure TFmodulo.DataModuleCreate(Sender: TObject);
Var BaseDeDatos, ConStr : String;
    IniFile: TIniFile;
begin
  try
   Fmodulo.con1.ConnectionString:='';
   IniFile := TIniFile.Create(ExtractFilePath(Application.ExeName)+'produccion.ini');
   BasedeDatos := IniFile.ReadString('BD','Path','');
   If BasedeDatos = '' then ShowMessage('Error al cargar Base de Datos');
   ConStr := 'Provider=Microsoft.Jet.OLEDB.4.0;'+
             'Data Source='+BaseDeDatos+';'+
             'Persist Security Info=False;'+
             'Jet OLEDB : Database';
   con1.ConnectionString := ConStr; 
   con1.Open;

   //Provider=MSDASQL.1;Persist Security Info=False;Data Source=PDV;Initial Catalog=C:\Users\horacio.xochitemol\Desktop\PDV\bd\PDV
 except
     on E:EOleException do
      begin
      MessageDlg(Format('Error: %s    Codigo: %d', [E.Message, E.ErrorCode]), mtError, [mbOK], 0);
      end;
 end;
 end;

esto es una conexion a base de datos de acces

Última edición por microbiano fecha: 20-11-2010 a las 03:27:23. Razón: jaja error es una base
Responder Con Cita