Foros Club Delphi - Interbase Remota

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Firebird e Interbase (https://www.clubdelphi.com/foros/forumdisplay.php?f=19)

- - Interbase Remota (https://www.clubdelphi.com/foros/showthread.php?t=19191)

Interbase Remota

Saludos

Realice una aplicacion con base de datos Interbase (D7):
Ubicacion: c:\mvt\empleado.gdb (usando IBExpress)

usando los componentes para abrir la tabla: IBdatabase, IBtransaction, ibtable, datasource. En el editor de IBdatabse pongo que tipo de coneccion local, la ubicacion del GDB, usuario, pass y todo lo demas.

Todo funciona bien en la maquina local.

Para conectar una pc remota creo que el IBdatabase debe ser cambiado: tipo de coneccion remota(0.0.0.0) protocolo(TCP), usuario, pass y todo lo demas, pero en Ubicacion es que me pierdo, no se si poner la ubicacion c:\mvt..... o hay que mappiar y poner \\0.0.0.0:c:\.... :confused: ??

solo debes poner la ubicación ....
Unidad :\ Directorio\Base.gdb

ej.
d:\sistemas\base.gdb

Cita:

Empezado por BlueSteel

solo debes poner la ubicación ....
Unidad :\ Directorio\Base.gdb

ej.
d:\sistemas\base.gdb

Ok, pero esa unidad a la que te refieres, es la unidad del servidor (sin mappear), o la unidad cliente?

No le veo la gracia C/S de Interbase, si hay que mappiar el directorio o Compartir el mismo del servidor para poder acceder a la base de datos,

Seria bien qeu publicaran un ejemplo de esto, ya que veo que es frecuente este tipo de preg. Normalmente uno compara el tipo de conectividad Cliente/Servidor de Interbase con SQL Server, ya que en este ultimo no hay que especificarle directorio, sino solo el Servidor y de ahi te da una lista de las bases de datos que contiene(mediante ADO).

Hola.
No creo que haga falta volver a publicar como conectar una BD remota
Es un tema ampliamente tratado en los foros. A poco que busques encontrarás multitud de hilos donde se explica el tema.

Saludos.

Resulta que se me hace extraño el hecho de que para ubicar la base de datos en un Pc Cliente, no se tenga que mappiar el servidor.

Porque tengo una aplicacion con IB Ej:

Servidor (10.0.0.1)
Ip:Local
Ubicacion: c:\mvt\datos.gdb

Cliente (10.0.0.2)

IP: 10.0.0.1
Ubicacion:c:\mvt\datos.gdb (da un error referente a que no se puede conectar)
ó
mapiar directorio ..\mvt\ para asignarte una unidad g:\datos.gdb y asi
==> Ubicacion: g\datos.gdb

Eso es lo que no entiendo!!!

Disculpenme si por la poca experiencia que tengo en esto, pero preguntando y puyando es que se aprende.

mapenado la unidad funciona perfectamente, y la sintaxis de conexion seria: 10.0.0.1:c:\mvt\datos.gdb ahora bien tambien puede usar los aliases. fijate en el archivo aliases.conf y en lugar de utilizar el map puedes usar un aliases para conectarte desde los clientes.

Busca en el foro que esta bien explicado.

Suerte

Gracias a todos por su valioso tiempo.

ya resolvi mi problema de coneccion que era causado por un FireWall :D.

Bueno. yo lo hago así y funciona a las mil maravillas en redes punto a punto o estructuradas, sin necesidad de compartir directorios ni archivos...

en un datamodule tengo:

Código:

unit DM_Ppal1;



interface



uses

  SysUtils, Classes, DB,dialogs, jpeg, DBTables,dateutils,

  registry,forms,inifiles, types, IBTable,

  IBDatabase,Windows, IBStoredProc, IBCustomDataSet, IBQuery;

type

  TdmPpal1 = class(TDataModule)

    fbArgos: TIBDatabase;

    fbtraArgos: TIBTransaction;

    fbtblArea: TIBTable;

    fbtblVisitas: TIBTable;

    fbtblVisitante: TIBTable;

    fbtblUsuario: TIBTable;

    fbtblEmpleado: TIBTable;

    dsArea: TDataSource;

    dsEmpleado: TDataSource;

    dsUsuario: TDataSource;

    dsVisitante: TDataSource;

    dsVisitas: TDataSource;

    procedure DataModuleCreate(Sender: TObject);

   private

    { Private declarations }

  public

    { Public declarations }

  published

  end;



var

  dmppal1: Tdmppal1;

  rutadatos,rutadatosred,rutareportes,rutareportesred,rutatempletes:string;

  rutatempletesred,rutafotos,rutafotosred,ruta,rutared,empresa:string;

  red:integer;



implementation



{$R *.dfm}

//------------------------------------------------------------------------------

procedure TdmPpal1.DataModuleCreate(Sender: TObject);

var

  registro:TIniFile;

  conexionL,conexionR:widestring;



begin

   registro:=TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Registro.reg');

  red:=StrToInt(registro.ReadString('RED','EstaEnRed',''));

  conexionL:=registro.ReadString('BASEDATOS','local','');

  ruta:=registro.ReadString('DDIRBASE','dirbaseLocal','');

  conexionR:=registro.ReadString('BASEDATOS','red','');

  rutared:=registro.ReadString('DDIRBASE','dirbaseRed','');

  rutadatos:=ruta+registro.ReadString('DDATOS','datos','');

  rutadatosred:=rutared+registro.ReadString('DDATOS','datos','');

  rutareportes:=ruta+registro.ReadString('DREPORTES','reportes','');

  rutatempletes:=ruta+registro.ReadString('DTEMPLETES','templetes','');

  rutafotos:=ruta+registro.ReadString('DFOTOS','fotos','');

  rutareportesred:=rutared+registro.ReadString('DREPORTES','reportes','');

  rutatempletesred:=rutared+registro.ReadString('DTEMPLETES','templetes','');

  rutafotosred:=rutared+registro.ReadString('DFOTOS','fotos','');

        case red of

    0:fbArgos.databasename:=conexionL;

    1:fbArgos.databasename:=conexionR;

  end;

        try

          fbArgos.Connected:=true;

    except

            application.Terminate;

  end;

  fbtraArgos.Active:=true;

  fbtblArea.Active:=true;

  fbtblEmpleado.Active:=true;

  fbtblUsuario.Active:=true;

  fbtblVisitante.Active:=true;

  fbtblVisitas.Active:=true;

  fbviwVisNotas.Active:=true;



end;

end.

el archivo registro.reg esta así:

--------------------------------------
[RED]
EstaEnRed=0
[DDIRBASE]
dirbaseLocal=C:\Archivos de programa\IDC\ARGOS\
dirbaseRed=\\Idcppal\Argos\
[BASEDATOS]
local=C:\Archivos de programa\IDC\ARGOS\data\ARGOSFB1502.FDB
red=IDCPPAL:c:\archivos de programa\IDC\Argos\data\ARGOSFB1502.FDB
[DDATOS]
datos=data\
[DREPORTES]
reportes=reportes\
[DTEMPLETES]
templetes=data\templetes\
[DFOTOS]
fotos=data\fotos\
-----------------------------------------

el servidor tiene nombre: IDCPPAL, aunque puede ser 192.168.1.1 o cualquier dirección IP.

Saludos