Fórum Criando SQLQuery Dinamicamente #296852
23/09/2005
0
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
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
Curtir tópico
+ 0
Responder
Posts
24/09/2005
Carlosrm
userba,
veja se te auxilia:
Essa função eu coloquei numa unit de rotinas diversas.
carlosrm
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
Responder
Gostei + 0
24/09/2005
Userba
qry.SQLConnection := f_dm.SQLConnection1;
Resolvido.
Eu estava parado neste ponto -> query_tal.SQLConnection := form_tal.SQLConnection; :)
Obrigado pela dica.
User-BA
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)