Parametros SQLDataSet em tempo de execu��o

Question

Caros amigos, sou novo por aqui e tenho um pequeno problema e acredito que algum filho de Deus nesse forum possa me ajudar.O problema � o seguinte: Estou utilizando o componente TSQLDataSet da paleta ...

Emerson Nascimento · Answer

vc est� usando clientdataset?...

Brener Le�o · Answer

Bem, estou utilizando Firebird + Delphi 2006 e o componente em quest�o � um SQLDataSet conforme mencionado anteriormente, que em run time n�o consigo fazer com que ele reconhe�a os par�metros mencionados em sua propriedade CommandText, como ocorre em Design Time.

Emerson Nascimento · Answer

eu trabalho com sqldatasets e nunca me deparei com tal problema.
fa�o assim:

with sqldataset1 do
begin
  close;
  commandtext := �select * from cliente where cnpj = :cnpj�;
  parambyname(�cnpj�).asstring := strCNPJ;
  open;
end;

Brener Le�o · Answer

�... seria o ideal, mas como esse c�digo tem que ser din�mico eu n�o sei quem ser� o parametro, ent�o ficaria mais ou menos assim:


cLinhaCMD:= �Select * From � + cNomeTabela + � where � +  cCampo + � = :� + cCampo;
With SQLDataSet1 do
begin
  commandText:= cLinhaCMD;
  Params[0].AsInteger:= cVariavelQualquer
end

Params[0].AsInteger:= cVariavelQualquer --> essa linha � que da o erro �list index out bounds(0)�

Ent�o � isso, eu n�o sei qual ser� a tabela e nem o nome do par�metro, por esse motivo achei mais f�cil referencia-lo pelo �ndice.
Sei que eu poderia referencia-lo pelo �parambyname� usando uma vari�vell, mas de teimoso que sou, gostaria de descobrir uma maneira de fazer o SQLDataSet �enxergar� em �run time� que existe um par�metro no �ndice (0).

Emerson Nascimento · Answer

[code:1:3d8323b7a5]cLinhaCMD:= �Select * From � + cNomeTabela + � where � +  cCampo + � = :� + cCampo;With SQLDataSet1 dobegin  close;  commandText := cLinhaCMD;  parambyname(cCampo).value := cVariavelQualquer;  open;end[/code:1:3d8323b7a5]isso deveria funcionar......

Martins · Answer

[quote:3022cadc7e=�emerson.en�][code:1:3022cadc7e]cLinhaCMD:= �Select * From � + cNomeTabela + � where � +  cCampo + � = :� + cCampo;With SQLDataSet1 dobegin  close;  commandText := cLinhaCMD;  parambyname(cCampo).value := cVariavelQualquer;  open;end[/code:1:3022cadc7e]isso deveria funcionar...[/quote:3022cadc7e]Tamb�m penso q agora deve funcionar, infelizmente n�o posso testar, mas acredito q agora vai dar certo....

Brener Le�o · Answer

Caros amigos, muito obrigado pela ajuda, gra�as a colabora��o de voc�s, o caso foi encerrado com sucesso.
Baseado nas dicas que me forneceram descobri que eu estava me esquecendo de ligar o SQLDataSet a um SQLConnection. Parece estranho se esquecer de algo assim, mas acontece que eu estou desenvolvendo um componente de busca auxiliar, e portanto n�o rola nada visual, somente texto, ent�o acabei me esquecendo de criar uma propriedade SQLConnection para o componente que � derivado de um TEdit e serve para fazer buscas auxiliares a um banco de dados via DBXpress.
Caso tenham interesse neste componente, posso fornecer o c�digo fonte a voc�s para que possam analiza-lo, e tamb�m estarei receptivo a cr�ticas e sugest�es que colaborem com o enriquecimento do c�digo.

Mais uma vez, muito obrigado a voces. Vlw!

Martins · Answer

[quote:88c344bb0c=�Brener Bento Le�o�]Caros amigos, muito obrigado pela ajuda, gra�as a colabora��o de voc�s, o caso foi encerrado com sucesso.
Baseado nas dicas que me forneceram descobri que eu estava me esquecendo de ligar o SQLDataSet a um SQLConnection. Parece estranho se esquecer de algo assim, mas acontece que eu estou desenvolvendo um componente de busca auxiliar, e portanto n�o rola nada visual, somente texto, ent�o acabei me esquecendo de criar uma propriedade SQLConnection para o componente que � derivado de um TEdit e serve para fazer buscas auxiliares a um banco de dados via DBXpress.
Caso tenham interesse neste componente, posso fornecer o c�digo fonte a voc�s para que possam analiza-lo, e tamb�m estarei receptivo a cr�ticas e sugest�es que colaborem com o enriquecimento do c�digo.

Mais uma vez, muito obrigado a voces. Vlw![/quote:88c344bb0c]

Ok! Um boa iniciativa, e disponha para trocarmos id�ias aqui no f�rum mesmo ou MP.

bons c�digos
martinsbios@gmail.com

Adriano Santos · Answer

[quote:b2f33437fe=�Brener Bento Le�o�]Caros amigos, muito obrigado pela ajuda, gra�as a colabora��o de voc�s, o caso foi encerrado com sucesso.
Baseado nas dicas que me forneceram descobri que eu estava me esquecendo de ligar o SQLDataSet a um SQLConnection. Parece estranho se esquecer de algo assim, mas acontece que eu estou desenvolvendo um componente de busca auxiliar, e portanto n�o rola nada visual, somente texto, ent�o acabei me esquecendo de criar uma propriedade SQLConnection para o componente que � derivado de um TEdit e serve para fazer buscas auxiliares a um banco de dados via DBXpress.
Caso tenham interesse neste componente, posso fornecer o c�digos fonte a voc�s para que possam analiza-lo, e tamb�m estarei receptivo a cr�ticas e sugest�es que colaborem com o enriquecimento do c�digo.

Mais uma vez, muito obrigado a voces. Vlw![/quote:b2f33437fe]
Brener, muito boa iniciativa mesmo. Se precisar de um servidor para hospedar o componente pode me dar um toque. Criei um blog pra exportar esse tipo de iniciativa e divulgar todo e qualquer tipo de conte�do pra comunidade. Se quiser eu coloco no ar, com os devidos cr�ditos claro.

Abs

Brener Le�o · Answer

Muito obrigado, e parab�ns pro ter criado esse Blog, acredito que ser� de grande utilidade para nossa comunidade. A respeito do componente que estou desenvolvendo, e gostaria sim de estar disponibilizando a quem se interessar por ele. Estou em finalizando algumas imlpementa��es nele e crei que em breve j� poderei disponibiliza-lo.
Um pouco sobre meu componete:
Trata-se de um edit que faz consultas SQL a bancos conectados via DBXPress. Caso o c�digo digitado pelo usu�rio seja encontrado no banco de dados ele preenche um Edit normal, indicado anteriormente nas propriedades de nosso componente, com o detalhe do registro. Por exemplo, em um cadastro de Cidades, o usu�rio digita �4� e tecla enter, caso seja encontrada alguma ocorr�ncia, o componente preenche um outro edit com o nome da cidade. Caso n�o seja encontrado nenhum registro ele retorna �c�digo n�o encontrado� e ainda, caso o usu�rio tecle enter sem preencher o campo, � aberto um form para que seja feita uma busca atrav�z de um outro campo como o nome da cidade ou CEP.

Adriano Santos · Answer

[quote:f587623a70=�Brener Bento Le�o�]Muito obrigado, e parab�ns pro ter criado esse Blog, acredito que ser� de grande utilidade para nossa comunidade. A respeito do componente que estou desenvolvendo, e gostaria sim de estar disponibilizando a quem se interessar por ele. Estou em finalizando algumas imlpementa��es nele e crei que em breve j� poderei disponibiliza-lo.
Um pouco sobre meu componete:
Trata-se de um edit que faz consultas SQL a bancos conectados via DBXPress. Caso o c�digo digitado pelo usu�rio seja encontrado no banco de dados ele preenche um Edit normal, indicado anteriormente nas propriedades de nosso componente, com o detalhe do registro. Por exemplo, em um cadastro de Cidades, o usu�rio digita �4� e tecla enter, caso seja encontrada alguma ocorr�ncia, o componente preenche um outro edit com o nome da cidade. Caso n�o seja encontrado nenhum registro ele retorna �c�digo n�o encontrado� e ainda, caso o usu�rio tecle enter sem preencher o campo, � aberto um form para que seja feita uma busca atrav�z de um outro campo como o nome da cidade ou CEP.[/quote:f587623a70]
Parab�n velho, muito bom. A hora que quiser me contacte em particular ou meu email que disponibilizo pra galera o arquivo do componente.
Abs

F�rum Parametros SQLDataSet em tempo de execu��o #343453