Res: [delphi-br] retornar valor funçao que contem banco
Esta tua função está estranha, recebe nome como parâmetro e retorna a mesma
coisa? Não deveria receber um código e retornar a descrição?
Sem entrar em mais detalhes sobre a melhora neste seu processo, basta você
fazer:
QryConsulta.SQL.Text := 'select Nome_antibiotico from tb_antibioticos ' +
'where Cod_antibiotico =
:Cod_antibiotico';
QryConsulta.ParamByName('Cod_antibiotico').AsInteger := Codigo;
QryConsulta.Open;
Result := QryConsulta.FieldByName('Nome_Antibiotico').AsString;
QryConsulta.Close;
Obs.: Tente fazer um join entre as duas tabelas, assim você já busca a
descrição do remédio sem precisar ficar selecionamento na base de dados sempre
que selecionar outro item no combo.
Para que esse with form2 do? Por que você não cria um método independente de
form? Esse negócio de ficar fazendo referência direta entre forms é a maior
furada.
Luciano Calenzani Simões
De: pablo freitas pablojfrei...@yahoo.com.br
Para: delphi-br@yahoogrupos.com.br
Enviadas: Domingo, 1 de Novembro de 2009 11:19:50
Assunto: [delphi-br] retornar valor funçao que contem banco
Olá pessoal, estou com um problema, eu fiz uma query só para buscar dados do
meu banco. Porém não consigo retornar o valor da minha função, o programa trava
quando chega no acesso.Eu quero fazer toda vez, que eu selecionar um item da
combox, o edit ao lado dele, retorne o valor do banco.
function nome_anti(nome: string):string;
begin
{campos tabela tb_antibioticos: Cod_antibiotico| Nome_antibiotico }
with form2 do
begin
QryConsulta. Close;
QryConsulta. Open;
QryConsulta. Active:=true;
QryConsulta. SQL.Clear;
QryConsulta. SQL.append( 'select Nome_antibiotico from tb_antibioticos'
+
'where Cod_antibiotico =' + quotedstr(nome) +';');
qryConsulta. ExecSQL;
end;
// result:=?? (como faço para resultar o valor da minha consulta)
end;
procedure TForm1.CBox1Select( Sender: TObject);
begin
edit1.Text:= nome_anti(CBox1. Text);
end;
procedure TForm1.CBox2Select( Sender: TObject);
begin
edit2.Text:= nome_anti(CBox2. Text);
end;
Espero uma luz !--
#ygrp-mkp{
border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;}
#ygrp-mkp hr{
border:1px solid #d8d8d8;}
#ygrp-mkp #hd{
color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;}
#ygrp-mkp #ads{
margin-bottom:10px;}
#ygrp-mkp .ad{
padding:0 0;}
#ygrp-mkp .ad a{
color:#ff;text-decoration:none;}
-- !--
#ygrp-sponsor #ygrp-lc{
font-family:Arial;}
#ygrp-sponsor #ygrp-lc #hd{
margin:10px 0px;font-weight:bold;font-size:78%;line-height:122%;}
#ygrp-sponsor #ygrp-lc .ad{
margin-bottom:10px;padding:0 0;}
-- !--
#ygrp-mlmsg {font-size:13px;font-family:arial, helvetica, clean, sans-serif;}
#ygrp-mlmsg table {font-size:inherit;font:100%;}
#ygrp-mlmsg select, input, textarea {font:99% arial, helvetica, clean,
sans-serif;}
#ygrp-mlmsg pre, code {font:115% monospace;}
#ygrp-mlmsg * {line-height:1.22em;}
#ygrp-text{
font-family:Georgia;
}
#ygrp-text p{
margin:0 0 1em 0;} dd.last p a {
font-family:Verdana;font-weight:bold;} #ygrp-vitnav{
padding-top:10px;font-family:Verdana;font-size:77%;margin:0;}
#ygrp-vitnav a{
padding:0 1px;}
#ygrp-mlmsg #logo{
padding-bottom:10px;} #ygrp-reco {
margin-bottom:20px;padding:0px;}
#ygrp-reco #reco-head {
font-weight:bold;color:#ff7900;} #reco-category{
font-size:77%;}
#reco-desc{
font-size:77%;} #ygrp-vital a{
text-decoration:none;} #ygrp-vital a:hover{
text-decoration:underline;} #ygrp-sponsor #ov ul{
padding:0 0 0 8px;margin:0;}
#ygrp-sponsor #ov li{
list-style-type:square;padding:6px 0;font-size:77%;}
#ygrp-sponsor #ov li a{
text-decoration:none;font-size:130%;}
#ygrp-sponsor #nc{
background-color:#eee;margin-bottom:20px;padding:0 8px;}
#ygrp-sponsor .ad{
padding:8px 0;}
#ygrp-sponsor .ad #hd1{
font-family:Arial;font-weight:bold;color:#628c2a;font-size:100%;line-height:122%;}
#ygrp-sponsor .ad a{
text-decoration:none;}
#ygrp-sponsor .ad a:hover{
text-decoration:underline;}
#ygrp-sponsor .ad p{
margin:0;font-weight:normal;color:#00;}
o{font-size:0;}
.MsoNormal{
margin:0 0 0 0;}
#ygrp-text tt{
font-size:120%;}
blockquote{margin:0 0 0 4px;}
.replbq{margin:4;} dd.last p span {
margin-right:10px;font-family:Verdana;font-weight:bold;} dd.last p
span.yshortcuts {
margin-right:0;} div.photo-title a,
div.photo-title a:active,
div.photo-title a:hover,
div.photo-title a:visited {
text-decoration:none;} div.file-title a,
div.file-title a:active,
div.file-title a:hover,
div.file-title a:visited {
text-decoration:none;} #ygrp-msg p#attach-count {
clear:both;padding:15px 0 3px 0;overflow:hidden;} #ygrp-msg p#attach-count span
{
color:#1E66AE;font-weight:bold;} div#ygrp-mlmsg #ygrp-msg p a span.yshortcuts {
font-family:Verdana;font-size:10px;font-weight:normal;} #ygrp-msg p a {
font-family:Verdana;} #ygrp-mlmsg a {
color:#1E66AE;} div.attach-table div div a {
text-decoration:none;}
[delphi-br] Como Instalar o JEDI
Caros compaheiros do grupo, alguem tem um artigo ensinando a instalar o JEDI. jé tentei de tudo para instalar no delphi6 ou no 2009, e não consegui. josé ferreira Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com [As partes desta mensagem que não continham texto foram removidas]
Re: Res: [delphi-br] retornar valor funçao que c ontem banco
Olá Luciano, muito obrigado mesmo pela ajuda Começou a iluminar o meu
programa,só que agora, está dando erro de QryConsulta: Field 'Cod_antibiotico'
is of an unknown type.
Eu acho que o tipo de parametro passado não está bantendo com o tipo do banco:
Lembrando: estou usando o banco Paradox do delphi mesmo {campos tabela
tb_antibioticos: Cod_antibiotico (tipo Alpha - Chave)| Nome_antibiotico (tipo
Alpha) }
e o codigo:
function nome_anti(codigo: string):string;//boolean;
begin
with form2 do
begin
QryConsulta.Close;
QryConsulta.SQL.Clear;
QryConsulta.SQL.text:='select Nome_antibiotico from tb_antibioticos Where
Cod_antibiotico = :Cod_antibiotico';
qryConsulta.Open;
QryConsulta.ParamByName('Cod_antibiotico').AsString := codigo;
Result:= QryConsulta.FieldByName('Nome_Antibiotico').AsString;
QryConsulta.Close;
end;
end;
procedure TForm1.CBox1Select( Sender: TObject);
begin
edit1.Text:= nome_anti(CBox1. Text);
end;
Obrigado
--- Em seg, 2/11/09, Luciano Calenzani Simões simoesluci...@yahoo.com.br
escreveu:
De: Luciano Calenzani Simões simoesluci...@yahoo.com.br
Assunto: Res: [delphi-br] retornar valor funçao que contem banco
Para: delphi-br@yahoogrupos.com.br
Data: Segunda-feira, 2 de Novembro de 2009, 7:35
Esta tua função está estranha, recebe nome como parâmetro e
retorna a mesma coisa? Não deveria receber um código e retornar a descrição?
Sem entrar em mais detalhes sobre a melhora neste seu processo, basta você
fazer:
QryConsulta. SQL.Text := 'select Nome_antibiotico from tb_antibioticos ' +
'where Cod_antibiotico =
:Cod_antibiotico' ;
QryConsulta. ParamByName( 'Cod_antibiotico ').AsInteger := Codigo;
QryConsulta. Open;
Result := QryConsulta. FieldByName( 'Nome_Antibiotic o').AsString;
QryConsulta. Close;
Obs.: Tente fazer um join entre as duas tabelas, assim você já busca a
descrição do remédio sem precisar ficar selecionamento na base de dados sempre
que selecionar outro item no combo.
Para que esse with form2 do? Por que você não cria um método independente de
form? Esse negócio de ficar fazendo referência direta entre forms é a maior
furada.
Luciano Calenzani Simões
_ _ __
De: pablo freitas pablojfreitas@ yahoo.com. br
Para: delphi...@yahoogrup os.com.br
Enviadas: Domingo, 1 de Novembro de 2009 11:19:50
Assunto: [delphi-br] retornar valor funçao que contem banco
Olá pessoal, estou com um problema, eu fiz uma query só para buscar dados do
meu banco. Porém não consigo retornar o valor da minha função, o programa trava
quando chega no acesso.Eu quero fazer toda vez, que eu selecionar um item da
combox, o edit ao lado dele, retorne o valor do banco.
function nome_anti(nome: string):string;
begin
{campos tabela tb_antibioticos: Cod_antibiotico| Nome_antibiotico }
with form2 do
begin
QryConsulta. Close;
QryConsulta. Open;
QryConsulta. Active:=true;
QryConsulta. SQL.Clear;
QryConsulta. SQL.append( 'select Nome_antibiotico from tb_antibioticos'
+
'where Cod_antibiotico =' + quotedstr(nome) +';');
qryConsulta. ExecSQL;
end;
// result:=?? (como faço para resultar o valor da minha consulta)
end;
procedure TForm1.CBox1Select( Sender: TObject);
begin
edit1.Text:= nome_anti(CBox1. Text);
end;
procedure TForm1.CBox2Select( Sender: TObject);
begin
edit2.Text:= nome_anti(CBox2. Text);
end;
Espero uma luz !--
_ _ _ _ _ _
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbusca dos.yahoo. com
[As partes desta mensagem que não continham texto foram removidas]
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Como Instalar o JEDI
Suponho eu q vc quer instalar a JVCL (JEDI Visual Component Library). A título de ratificação, a JVCL é uma super coleção de componentes mantida pela comunidade de desenvolvedores intitulada JEDI - Joint Endeavor of Delphi Innovators (http://www.delphi-jedi.org/). Portanto, vc quer instalar a JVCL, e não a JEDI! No endereço http://jvcl.delphi-jedi.org/ vc poderá conferir informações e novidades sobre esta super coleção de componentes. Mas, de antemão, saiba que quando vc baixa e descompacta o pacote da JVCL, existe uma pasta que possui um instalador que, via linha de comando, é compilado e executado para efetuar a instalação da JVCL, não necssitando ter que fazer instalação braçal dos pacotes. Se vc já fez isso e não teve sucesso, verifique no endereço que mencionei no parágrafo anterior se existe alguma informação importante que possa lhe ajudar na instalação. Boa sorte. Sds. To: delphi-br@yahoogrupos.com.br From: joseffi...@yahoo.com.br Date: Mon, 2 Nov 2009 06:45:58 -0800 Subject: [delphi-br] Como Instalar o JEDI Caros compaheiros do grupo, alguem tem um artigo ensinando a instalar o JEDI. jé tentei de tudo para instalar no delphi6 ou no 2009, e não consegui. josé ferreira . _ Você sabia que pode acessar o Messenger direto do seu Hotmail? Descubra como! http://www.microsoft.com/brasil/windows/windowslive/products/tutoriais.aspx [As partes desta mensagem que não continham texto foram removidas]
RE: [delphi-br] Como Instalar o JEDI
Mais uma coisa: no endereço principal da comunidade JEDI, existe um link para a JCL - Jedi Class Library. Sugere-se instalar primeiro esta coleção antes de instalar a JVCL. Boa sorte. Sds. To: delphi-br@yahoogrupos.com.br From: djpardalro...@hotmail.com Date: Mon, 2 Nov 2009 16:19:17 + Subject: RE: [delphi-br] Como Instalar o JEDI Suponho eu q vc quer instalar a JVCL (JEDI Visual Component Library). A título de ratificação, a JVCL é uma super coleção de componentes mantida pela comunidade de desenvolvedores intitulada JEDI - Joint Endeavor of Delphi Innovators (http://www.delphi-jedi.org/). Portanto, vc quer instalar a JVCL, e não a JEDI! No endereço http://jvcl.delphi-jedi.org/ vc poderá conferir informações e novidades sobre esta super coleção de componentes. Mas, de antemão, saiba que quando vc baixa e descompacta o pacote da JVCL, existe uma pasta que possui um instalador que, via linha de comando, é compilado e executado para efetuar a instalação da JVCL, não necssitando ter que fazer instalação braçal dos pacotes. Se vc já fez isso e não teve sucesso, verifique no endereço que mencionei no parágrafo anterior se existe alguma informação importante que possa lhe ajudar na instalação. Boa sorte. Sds. To: delphi-br@yahoogrupos.com.br From: joseffi...@yahoo.com.br Date: Mon, 2 Nov 2009 06:45:58 -0800 Subject: [delphi-br] Como Instalar o JEDI Caros compaheiros do grupo, alguem tem um artigo ensinando a instalar o JEDI. jé tentei de tudo para instalar no delphi6 ou no 2009, e não consegui. josé ferreira . _ Você sabia que com o Hotmail você tem espaço ilimitado para guardar seus e-mails? Começe a usar já! http://www.microsoft.com/brasil/windows/windowslive/products/hotmail.aspx [As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Jv TimeframeWork
Alguém já usou o componente Jv TimeframeWork da JVCL ? Sabe como inserir eventos? Criar alarmes? Ou pode indicar um componente parecido para gerenciamento de agenda, que seja Free? Obrigado! J. Godoi Email: joseneigo...@yahoo.com.br Msn: joseneigo...@msn.com Skype: joseneigodoi Blog: http://eng.linesys.com.br Cel.: 12 8154-9909 ___ P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO AMBIENTE Esta mensagem é para uso exclusivo de seu destinatário e pode conter informações privilegiadas e confidenciais. Todas as informações aqui contidas devem ser tratadas como confidenciais e não devem ser divulgadas a terceiros sem o prévio consentimento por escrito da Embraer. Se você não é o destinatário não deve distribuir, copiar ou arquivar a mensagem. Neste caso, por favor, notifique o remetente da mesma e destrua imediatamente a mensagem [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Jv TimeframeWork
Você pode estudar o exemplo que acompanha a jvcl, segue caminho abaixo: ..\jvcl\examples\JvTimeFrameWork\PhotoOp Um forte abraço, Odail São Pedro-SP 2009/11/2 J. Godoi joseneigo...@yahoo.com.br Alguém já usou o componente Jv TimeframeWork da JVCL ? Sabe como inserir eventos? Criar alarmes? Ou pode indicar um componente parecido para gerenciamento de agenda, que seja Free? Obrigado! J. Godoi Email: joseneigo...@yahoo.com.br joseneigodoi%40yahoo.com.br Msn: joseneigo...@msn.com joseneigodoi%40msn.com Skype: joseneigodoi Blog: http://eng.linesys.com.br Cel.: 12 8154-9909 ___ P Antes de imprimir, pense em sua responsabilidade e compromisso com o MEIO AMBIENTE Esta mensagem é para uso exclusivo de seu destinatário e pode conter informações privilegiadas e confidenciais. Todas as informações aqui contidas devem ser tratadas como confidenciais e não devem ser divulgadas a terceiros sem o prévio consentimento por escrito da Embraer. Se você não é o destinatário não deve distribuir, copiar ou arquivar a mensagem. Neste caso, por favor, notifique o remetente da mesma e destrua imediatamente a mensagem [As partes desta mensagem que não continham texto foram removidas] -- Odail Della Niesi Junior São Pedro - São Paulo - Brasil MSN: dellani...@hotmail.com Skype: dellaniesi Paltalk: dellaniesi [As partes desta mensagem que não continham texto foram removidas] -- FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM * Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages * Para falar com o moderador, envie um e-mail para: delphi-br-ow...@yahoogrupos.com.br Links do Yahoo! Grupos * Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ * Para sair deste grupo, envie um e-mail para: delphi-br-unsubscr...@yahoogrupos.com.br * O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
