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;
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