USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Uma ajudinha na SQL
Knight
GOIÂNIA
GO - BRASIL
Postada em 21/07/2008 12:14 hs         
Tenho aqui uma tabela de um BD no seguinte formato
 
CODIGO         FORMA_PAGAMENTO
1                          D
2                          D
3                          C
4                          A
 
Como eu faço um select que substitua o D por 'Depósito bancário' o C por 'Cheque' e o A por 'A Vista'
 
Obrigado
     
Treze
Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
ENUNCIADA !
Postada em 21/07/2008 12:50 hs            
Você deseja fazer esta alteração na tabela, ou somente para exibição?
 
   
Knight
GOIÂNIA
GO - BRASIL
Postada em 21/07/2008 12:59 hs         
só exibição
     
Treze
Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
Postada em 21/07/2008 13:15 hs            
sql="SELECT * FROM tabela"
set rs=conexao...
 
do while not rs.EOF
 
select Case RS! FORMA_PAGAMENTO
Case "D"
... se for exibido em uma grid , então exiba o nome 'Depósito bancário'
Case "C"
...Cheque
 
eassim por diante
 
não sei se você entendeu, mas é uma explanação breve
 
 
outra forma seria utilizando replace
 
FormaPgto=replace(RS! FORMA_PAGAMENTO,"D","Depósito bancário")
FormaPgto=replace(RS! FORMA_PAGAMENTO,"C","Cheque")
FormaPgto=replace(RS! FORMA_PAGAMENTO,"A","A Vista")
 
e onde você colocava RS!FORMA_PAGAMENTO colocar FormaPgto
 
 
     
Lucas Felix
SÃO PAULO
SP - BRASIL
Postada em 21/07/2008 13:19 hs            
Ou você poderá mudar como os dados são exibidos no próprio select do SQL...select
     case forma_pagamento
          when 'D' then 'Depósito Bancário'
          when 'C' then 'Cheque'
          when 'A' then 'À vista'
          else 'Outro'
     end
from nome_tabela
=]
     
Knight
GOIÂNIA
GO - BRASIL
Postada em 21/07/2008 14:15 hs         
Vlw
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página