Fórum Criação de componentes #259517

23/11/2004

0

Como faço para criar um componente e trabalhar com ela ao mesmo tempo, por exemplo eu crio uma query no oncreate de um form gostaria de adicionar uma instrução sql na query a ser criada e mudar seu nome.

:lol:


Douglasf

Douglasf

Responder

Posts

23/11/2004

Paulo_amorim

Olá

Pode-se criar normalmente...

var
  qry: TQuery;
begin
  qry := TQuery.Create(Self);
  qry.SQL.Text := <sua SQL>;
  qry.Name := ´qryMinhaQuery´.
end;


Espero que ajude
AtÉ+


Responder

Gostei + 0

23/11/2004

Douglasf

A criação deu tudo certo.

Mas quando vou fazer a ligação do banco com a qry dá problema olha o meu codigo:

procedure TForm1.FormCreate(Sender: TObject);
var qry : TZQuery;
begin
qry := TZQuery.Create(Self);
with qry do
begin
Connection:=dmCompras.conCompras;
Name := ´qryTipoSuporte´;
SQL.Text:=´select * from tipo_suporte´;
Active:=True;
end;
DataSource1.DataSet := qry;
end;

dá erro na linha : Connection:=dmCompras.conCompras;


o erro é o seguinte:

Debbuger Exception Notification

Project Compras.exe raised exception class EAccessViolation with message ´Access violation at Anddress 00539303 in module ´Compras.exe´. Read of address FFFFFFFF´.


Responder

Gostei + 0

23/11/2004

Bruno Belchior

você já criou o DataModule?


Responder

Gostei + 0

23/11/2004

Douglasf

Sim, e ainda declarei ele no USES.


Responder

Gostei + 0

23/11/2004

Paulo_amorim

Olá

O que o Bruno quis dizer é: quando essa instrução é executada, o dmCompras já está criado?

Ou seja, dmCompras deve ser criado ANTES de seu Form1, já que isso é executado no FormOnCreate.

Ou então mude seu código para OnShow

Espero que ajude
Até+


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar