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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Salvando combox db
CT
SÃO CARLOS
SP - BRASIL
Postada em 01/12/2008 10:19 hs         
olá gostaria de uma ajuda.
estou fazendo um sistema de vendas.
eu possuo um banco de dados com a tabela vendas.
eu queria salvar em campos diferentes com tipo se a combox estiver selecionado dinheiro então grava na tabela vendas no campo dinheiro e se a combox estiver selecionado prazo ele grava na mesma tabela no campo prazo.
 
grato..
     
Treze
Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
ENUNCIADA !
Postada em 01/12/2008 11:50 hs            
SERIA MAIS OU MENOS ISTO
 
no botão salvar
 
sql = "insert into tabela " & combo1.text & "='" & txtresult.txt & "'"
 
   
PH1959
Pontos: 2843
SÃO JOSÉ DOS CAMPOS
SP - BRASIL
ENUNCIADA !
Postada em 01/12/2008 12:08 hs            
CT...
não é bem assim q se faz...
experimenta fazer algo assim...
 
tabela vendas...
campos
cod, data,VALOR  ...  etc... adiciona um campo TIPO ( número ( depois vá em propriedades ( onde tem inteiro inteiro longo etc)e escolhe  BYTE) no campo descrição, coloca 0= dinheiro 1= prazo.
 
agora o combo...
carrega o seu combo com as palavras Dinheiro e Prazo ...o indice 0 é Dinheiro ok?
 
cria uma variavel tipo_venda...
no evento click do combo...
 
 
private sub combo_tipo_venda_click()
tipo_venda= combo_tipo_venda.listindex ' se for dinheiro será 0 ...se for a prazo - 1
end sub
 
 
ao gravar a tabela é só adicionar a variavel para o campo...
 
 
 
 
 
 
   
Perci
MATÃO
SP - BRASIL
Postada em 02/12/2008 10:30 hs            
Ou você poderia utilizar o if, se eu entendi bem:
 
If Combo1.text = "Dinheiro" then
    'grava no campo da tabela correspondente
ElseIf Combo1.text = "Prazo"
    ' grava no campo da tabela correspondente
Endif
 
Até mais.
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

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

HTML DESLIGADO

     
 VOLTAR

  



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