Não estou entendendo esse erro!

Delphi

17/08/2007

Error creating cursor handle

Segue abaixo o cádigo:

Classe criada
unit Unit2;

interface

uses
  DB, DBTables, IBDatabase;

type
  TLuiz = class
    public
      DBase: TDatabase;
      IDBase: TIBDatabase;
      QrySQL: TQuery;
    constructor Create;
    constructor IBCreate;
    constructor QryCreate;
    end;

var
  Conectado: Boolean;

implementation


Cria o componente DataBase e conecta ao banco

constructor TLuiz.Create;
begin
  DBase := TDatabase.Create(nil);
  DBase.LoginPrompt := False;
  DBase.AliasName := ´Luiz´;
  DBase.DatabaseName := ´Teste´;
  DBase.Params.Append(´user name=SYSDBA´);
  DBase.Params.Append(´password=masterkey´);
  DBase.TransIsolation := tiDirtyRead;
  DBase.Connected := True;
  if DBase.Connected = True then
    Conectado := True;
end;


Cria a query e recebe o nome da database criada
Aqui que dá o erro

constructor TLuiz.QryCreate; begin QrySQL := TQuery.Create(nil); Create; QrySQL.DatabaseName := DBase.DatabaseName; end;



Luiz_aquino

Luiz_aquino

Curtidas 0

Respostas

Marcosrocha

Marcosrocha

17/08/2007

Luiz, você está instanciando a classe corretamente?
procedure TForm1.Button1Click(Sender: TObject);
var
  Marcos: TLuiz;
begin
  Marcos := TLuiz.Create;
  // faz tudo o que tem que fazer
  Marcos.Free;
end;



GOSTEI 0
Martins

Martins

17/08/2007

Em qual parte do seu código é exibida a mensagem de erro, vc já fez a depuração?

A pergunta do colega [b:fb94e50c12]mcblade[/b:fb94e50c12] é pertinente.

Bons códigos.


GOSTEI 0
Luiz_aquino

Luiz_aquino

17/08/2007

Em qual parte do seu código é exibida a mensagem de erro, vc já fez a depuração? A pergunta do colega [b:8df67a8dac]mcblade[/b:8df67a8dac] é pertinente. Bons códigos.


constructor TLuiz.QryCreate; 
begin 
  QrySQL := TQuery.Create(nil); 
  Create; 
  QrySQL.DatabaseName := DBase.DatabaseName; //O erro ocorre aki!
end;



GOSTEI 0
Massuda

Massuda

17/08/2007

Experimente assim...
constructor TLuiz.QryCreate; 
begin 
  Create; 
  QrySQL := TQuery.Create(nil); 
  QrySQL.DatabaseName := DBase.DatabaseName; //O erro ocorre aki!
end;
...apenas para confirmar... sua intenção é executar TLuiz.Create a partir de TLuiz.QryCreate?


GOSTEI 0
POSTAR