duvidar como pegar dados no banco


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: duvidar como pegar dados no banco

sk888
não registrado

Postada em 19/11/2008 01:30 hs

Private Sub txtquantidade_LostFocus()
On erro GoTo Erro_SemDados
vquantidade = (txtquantidade.Text)
vprecounit = dataprodutos.Recordset.Fields("precounitario") 'acho que o erro esta aki 'em cima eu pego do componente dataprodutos o campo "precounitario" só que não 'ta dando ajudem ai vlw
vtotal = vquantidade * vprecounit
lblvalortotal.Caption = Format(vtotal, "R$ #,##0.00")       'formato exato

Erro_SemDados:
If Err.Number = 13 Then
    MsgBox "Dados inválidos verifique o produto  e a quantidade"
    If (txtquantidade.Text = "") Then
        txtquantidade.SetFocus
        Else
        dbcodproduto.SetFocus
     lblvalortotal.Caption = ""
     End If
End If
End Sub

AI PESSOAL mais uma dúvida olha só preciso pegar do banco na tabela produtos o valor do produto e multiplicar pela quantidade só que em outro form
como faço isso ::????

Alexandre Patos

PATOS DE MINAS
MG - BRASIL

Postada em 19/11/2008 07:58 hs

bem primeiro, acho que o jeito que vc esta fazendo esta correto, mas existe outras maneiras

tente colocar o values da maneira abaixo, mas do jeito que vc esta fazendo era pra dar certo

qual é o erro que esta acontcendo ?

vprecounit = dataprodutos.Recordset.Fields("precounitario").values

agora a questao do outro form é so fazer

frmOutro.txtValorTotal.text = vprecounit * vquantidade

frmOutro.show

sk888
não registrado

Postada em 19/11/2008 16:06 hs

assim ó
c não tiver nada cadastrado ,
ai eu vou e cadastro o produto i tudo mais tudo blz!!!
dpois d cadastrar o produto salvar tdo blz
vou vender o produto com o codigo que coloquei ai em cima ele da o erro

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR