Criando SQLQuery Dinamicamente

Delphi

23/09/2005

Olá!

Tenho um form
-> frm_principal
e nele um TSQLConnection
-> TSQLC_conexao

Tenho uma unit -> u_funcoes
sem form onde disponibilizo algumas funções.

Estou tentando criar na unit -> u_funcoes
um componente SQLQuery dinamicamente
e conecta-lo ao -> TSQLC_conexao
que esta no -> frm_principal

pensei em algo do tipo...

function pesquisa_chave(s_chave : string) : string;
var
TSQLQ_pesquisa : TSQLQuery;
begin
TSQLQ_pesquisa.Create(nil);
// aqui é que tá pegando...
// não sei como conecta-lo ao TSQLC_conexao
TSQLQ_pesquisa.SQLConnection ???
...
end;

É isto gente...
Como é que faõ para criar um SQLQuery e preencher a propriedade SQLConnection dele?

Utilizo delphi 7 + dbexpress + firebird.

* as unit: dbxpress, db, sqlexpr já estão na uses da unit u_funcoes
* inclusive a referencia a uniti u_principal (frm_principal)

Obrigado desde já.
User-BA


Userba

Userba

Curtidas 0

Respostas

Carlosrm

Carlosrm

23/09/2005

userba,

veja se te auxilia:

function ProxPed(): integer;
var
  qry : TSQLQuery;
  texto : string;
begin
  qry := TSQLQuery.Create(nil);

  texto := ´SELECT MAX(PEDPEDI) FROM PEDIDOS´;
  Try
    qry.SQLConnection := f_dm.SQLConnection1;
    qry.Sql.Add(texto);
    qry.open;
    if (qry.fields[0].IsNull) then
       result := 1
    else
       result := qry.fields[0].AsInteger + 1;
  Finally
    FreeAndNil(qry);  
  End;
end;


Essa função eu coloquei numa unit de rotinas diversas.

carlosrm


GOSTEI 0
Userba

Userba

23/09/2005

  qry.SQLConnection := f_dm.SQLConnection1;
carlosrm


Resolvido.
Eu estava parado neste ponto -> query_tal.SQLConnection := form_tal.SQLConnection; :)
Obrigado pela dica.

User-BA


GOSTEI 0
POSTAR