Ayuda con Interbase via remota

[[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.