Ayuda con Interbase via remota

[jordan23]

Ok, ya puedo ver el servidor desde una maquina cliente en la cual NO se haya el servidor, la puedo ver desde el BDE, pero a la hora de accesar la aplicación en el cliente me dice algo como "su login no esta dado de alta en la base de datos contacte al administrador", no se si dentro del servidor tengo que dar de alta la dirección IP como en MySQL, o que tengo que hacer??? cabe señalar que este error no se da si corro la aplicación en la maquina donde se haya el servidor.

[[maeyanes]]

Primero, para Interbase, te recomiendo que uses los componentes IBX, que ya vienen incluidos en Delphi.

Segúndo, cuando te conectas a un servidor de Interbase, tienes que proporcionar un usuario y contraseña, Interbase tiene a SYSDBA como administrador y la contraseña predeterminada es masterkey (la cual te recomiendo cambiar).

Espero que esto te ayude en algo...


Saludos...

[AGAG4]

Si tienes algún Router, tienes que direccionar el Puerto 3050 de Interbase a la PC que esta como Servidor....

Saludos.

[jordan23]

Antes que nada gracias por sus comentarios.
Para AGAG4 lo ultimo que me dices, como lo hago??? perdon pero soy novato.

Para Maeyanes los componentes IBX no vienen en Delphi 4, ya instale los FreeIB que creo que son los antecesores de IBX y ya pude acceder, a esta hora mi problema es que no puedo hacer inserts, tengo el siguiente código

		with FIBQuery1 do
		begin
			Close;
			SQL.Clear;
			SQL.Add('INSERT INTO Insumos (cod_insumo, desc_insumo)');
		    SQL.Add('VALUES ('''+edCodigo.Text+''','''+edDescrip.Text+''') ');
			ExecQuery;
		end;

No me marca ningun error, y pareciera que si lo hace, pero acceso a la base y no esta el registro, que podrá ser???

[[maeyanes]]

El problema puede estar en la transacción...

Me imagino que pusiste un componente FIBDatabase y un FIBTransaction, entonces, puedes intentar algo como:

Código Delphi [-]
FIBTransaction.StartTransaction; // Inicias la transacción
try
  with FIBQuery1 do
    begin
      Close;
      SQL.Clear;
      SQL.Add('INSERT INTO Insumos (cod_insumo, desc_insumo)');
      SQL.Add('VALUES (' + QuotedStr(edCodigo.Text) + ',' + QuotedStr(edDescrip.Text) + ') ');
      ExecQuery;
      FIBTransaction.Commit // Luego de insertar el registro, haces commit
    end
except
  FIBTransaction.Rollback;  // Si hay algún error, deshechas la transacción
  raise
end;

[jordan23]

Perfecto Maeyanes, funciono, te agradezco mucho.