Trazer dados de uma tabela para o campo DBEdit.

Delphi

30/04/2003

:?: Caros Senhores.

Como faço para, quando na pesquisa em uma tabela, e achar o registro, atribuir o valor de uma campo desta tabela pesquisada, no campo dbedit do formulário corrente.
[b:993be254ec]Obs.[/b:993be254ec]
Já tentei usar o seguinte comando, mais não deu certo:
Após a pesquisa,
[b:993be254ec]dbeFone.Text:= DMT.tbPesFisicaFone.AsString[/b:993be254ec]
....


Sem mais, aguardo por uma resposta...[/b]


Marcosbd

Marcosbd

Curtidas 0

Respostas

Edmar Zatarin

Edmar Zatarin

30/04/2003

Ola amigo!!

Pra um dbedit receber o dados de uma consulta eu faco o segte:

Por exemplo:

query1.close;
query1.sql.clear;
query1.sql.add(´ Select Nome From tabClientes Where Codigo = ´+edit.text);
query1.open;
if not query1.eof then
dbedit.text := query1.fieldbyname(´Nome´);
query1.close;

No exemplo, quero localizar o nome de um cliente digitando seu codigo em um edit. Se ele achar este codigo, a consulta te retorna o nome do cliente e entao basta vc inserir o valor achado no dbedit como esta feito acima.

oks...

espero ter te ajudado...

abracao... :wink:


GOSTEI 0
Marcosbd

Marcosbd

30/04/2003

[quote:3be8160345=´Marcos B. Dantas´]Caro Edmar Zatarin

Vou fazer um teste, mais desde já agradeço pela dica.

Abraços... :lol: [/quote:3be8160345]

Ola amigo!! Pra um dbedit receber o dados de uma consulta eu faco o segte: Por exemplo: query1.close; query1.sql.clear; query1.sql.add(´ Select Nome From tabClientes Where Codigo = ´+edit.text); query1.open; if not query1.eof then dbedit.text := query1.fieldbyname(´Nome´); query1.close; No exemplo, quero localizar o nome de um cliente digitando seu codigo em um edit. Se ele achar este codigo, a consulta te retorna o nome do cliente e entao basta vc inserir o valor achado no dbedit como esta feito acima. oks... espero ter te ajudado... abracao... :wink:



GOSTEI 0
Socrates Foschera

Socrates Foschera

30/04/2003

Ola amigo!!

Pra um dbedit receber o dados de uma consulta eu faco o segte:

Por exemplo:

query1.close;
query1.sql.clear;
query1.sql.add(´ Select Nome From tabClientes Where Codigo = ´+edit.text);
query1.open;
if not query1.eof then
dbedit.text := query1.fieldbyname(´Nome´);
query1.close;

No exemplo, quero localizar o nome de um cliente digitando seu codigo em um edit. Se ele achar este codigo, a consulta te retorna o nome do cliente e entao basta vc inserir o valor achado no dbedit como esta feito acima.

oks...

espero ter te ajudado...

abracao... :wink:



em qual evento coloco este codigo para poder funcionar pois sou leigo
GOSTEI 0
Andvagner

Andvagner

30/04/2003

Ola amigo!!

Pra um dbedit receber o dados de uma consulta eu faco o segte:

Por exemplo:

query1.close;
query1.sql.clear;
query1.sql.add(´ Select Nome From tabClientes Where Codigo = ´+edit.text);
query1.open;
if not query1.eof then
dbedit.text := query1.fieldbyname(´Nome´);
query1.close;

No exemplo, quero localizar o nome de um cliente digitando seu codigo em um edit. Se ele achar este codigo, a consulta te retorna o nome do cliente e entao basta vc inserir o valor achado no dbedit como esta feito acima.

oks...

espero ter te ajudado...

abracao... :wink:



em qual evento coloco este codigo para poder funcionar pois sou leigo




No evento onchange do dbedit
GOSTEI 0
Marcos Junior

Marcos Junior

30/04/2003

Bom dia, nobre Marcosbd você já tentou lincar seus componentes, coloque na propriedade DataSource do seu DBEdit o DataSource associado que quando você setar o registro que queira todas as informações estarão nos componentes associados ao DataSource.
GOSTEI 0
POSTAR