isPrimary not found

28/10/2013

Ol� pessoal,
estou tenando utilizar o cloneConnection de um TSQLConnection, por�m estou tendo o seguinte problema.
Ao realizar o open o seguinte erro � exibido:
Field IsPrimary not found

Segue o codigo que estou usando para teste

var
  vaDs : TSQLDataSet;
begin
  vaDs := TSQLDataSet.Create(nil);
  vaDs.SQLConnection := con.CloneConnection;
  vaDs.CommandText := 'select * from aluno';
  vaDs.Open;

a variavel con � um TSQLConnection do meu DataModule que j� esta configurado a conexao com um banco Firebird 2.5.
Se eu retiro o cloneConnection tudo funciona.
Outra coisa que percebi � que caso a tabela que esteja sendo aberta n�o possua PK o erro n�o ocorre. (Obviamente n�o vou fazer isso no meu banco)

Desde j� Obrigado.

Rafael Costa

Curtir t�pico + 0

Responder

Posts

17/04/2014

Rafael Costa

Ent�o, j� faz um temp�o desde postei a d�vida, somente para ficar registrado, eu resolvi o problema criando meu pr�prio CloneConnection.

Segue o c�digo:

function fpuCloneConnection(ipConn: TSQLConnection): TSQLConnection;
begin
  Result := TSQLConnection.Create(nil);
  Result.LoadParamsOnConnect := ipConn.LoadParamsOnConnect;
  Result.LoginPrompt := ipConn.LoginPrompt;
  Result.DriverName := ipConn.DriverName;
  Result.ConnectionName := ipConn.ConnectionName;
  Result.Name := ipConn.Name + 'Clone1';//caso necessite clonar a conexao varias vezes implemente uma l�gica melhor aqui.
  Result.Params.AddStrings(ipConn.Params);
  Result.GetDriverFunc := ipConn.GetDriverFunc;
  Result.LibraryName := ipConn.LibraryName;
  Result.VendorLib := ipConn.VendorLib;
end;

Responder

Gostei + 0