Ver Mensaje Individual
  #8  
Antiguo 01-12-2005
Avatar de Jesús Pena
Jesús Pena Jesús Pena is offline
Miembro
 
Registrado: nov 2005
Posts: 88
Reputación: 19
Jesús Pena Va por buen camino
Question Eso es lo que intento

Lo que pretendo es precisamente eso hacerlo por código, lo intento con el código descrito a continuacion
Código:
dmClientes := nil; // datamodule
dmClientes := TdmClientes.Create(Self); // creación del datamodule
pDmConectado := dmClientes.fConectado; // si todo ha ido correcto o no
if not pDmConectado then
begin
	MessageDlg('Error de Conexión con la Base de Datos de Clientes',mtError,[mbOk],0);
	Close; // si no muestro mensaje y cierro el formulario
end;
if Not dsPrincipal.dataset.IsLinkedTo(dmClientes.IBTClientes) then
	dsPrincipal.DataSet := dmClientes.IBTClientes; // aquí es donde me dá el access violation (cuando pierde la conexión)
lo que ocurre es que al hacer la asignación del datasource (dsprincipa) da un access violation ¿que estoy haciendo mal?

Gracias por compartir la sabiduría

Última edición por Jesús Pena fecha: 01-12-2005 a las 19:03:17.
Responder Con Cita