Fala Treze beleza?
Eu achei o erro quando eu queria carregar a tela de cadastro dando um duplo click em algum registro no listview.O problema não era o componente Dtpicker.
Analisando código que você me enviou eu estava colocando o select em iddespesas como se fosse uma string(codigo em vermelho)Estava errado, pois no banco, iddespesas está como um inteiro.
Private Sub lstvwDespesas_DblClick()
Dim PESQUISA As String
PESQUISA = lstvwDespesas.SelectedItem.Text
rec.Open "select * from tbdespesas Where iddespesas = '" & PESQUISA & "'", conn
While Not rec.EOF
Então alterei e deixei assim, sem as duplas:
rec.Open "select * from tbdespesas Where iddespesas = " & pesquisa, conn
funcionou certinho.
______________________________________
Agora estou com outro problema aqui.Nao consigo realizar um Update.Fiz assim
Private Sub cmdAlterar_Click()
cmd.CommandText = " update tbdespesas set data= '" & DTPicker.Value & "',Energia= '" & txtenergia.Text & "',agua= '" & txtagua.Text & "',gas= '" & txtgas.Text & "',supermercado= '" & txtmercado.Text & "',condominio= '" & txtcondominio.Text & "',aluquel= '" & txtaluguel.Text & "',telefonefixo= '" & txttelefonefixo.Text & "',celular= '" & txtcelular.Text & "',Alimentacao= '" & txtalimentacao.Text & "',planosaude= '" & txtplanosaude.Text & "',faculdadeescola= '" & txtmensalidadeescolar.Text & "',tvdigital= '" & txttvdigital.Text & "',onibus= '" & txtonibus.Text & "',internet= '" & txtinternet.Text & "',entreterimento= '" & txtEntreterimento.Text & "',cartao= '" & txtCartao.Text & "',roupa= '" & txtRoupa.Text & "',curso= '" & txtCurso.Text & "',farmacia= '" & txtFarmacia.Text & "',iptu= '" & txtIPTU.Text & "',eletrodomestico= '" & txtEletrodomestico.Text & "',viagem= '" & txtViagem.Text & "',despesaextra= '" & txtDespesaExtra.Text & "' &" _
& " impostorenda= '" & txtImpostoRenda.Text & "',prestacaoveiculo= '" & txtPrestacaoVeiculo.Text & "',combustivel= '" & txtCombustivel.Text & "',seguroobrigatorio= '" & txtSeguroObrigatorio.Text & "',seguro= '" & txtSeguro.Text & "',ipva= '" & txtIPVA.Text & "',manutencao= '" & txtManutencao.Text & "',renda1= '" & txtRendaUm.Text & "',renda2= '" & txtRendaDois.Text & "',renda3= '" & txtRendaTres.Text & "',renda4= '" & txtRendaQuatro.Text & "',renda5= '" & txtRendaCinco.Text & "',rendaTotal= '" & txtRendaTotal.Text & "',mensalFixa= '" & txtTotalMensal.Text & "',mensalNaoFixa= '" & txtTotalNaoFixa.Text & "',despesaVeiculo= '" & txtTotalVeiculo.Text & "',despesaTotal= '" & txtTotais.Text & "',Saldo= '" & txtSaldo.Text & "' where idDespesas= '" & Text1.Text & "'"
cmd.Execute
MsgBox "Alteração realizada com sucesso.", vbInformation, "Contas - Atualizacao"
End Sub
Quando clico no botao alterar aparece esta mensagem:
No value given for one or more required parameters
Depois resolvi fazer de outro jeito (abaixo)e tambem não consequi.
Private Sub cmdAlterar_Click()
cmd.CommandText = "UpDate tbdespesas set data=?, Energia=?, agua=?, gas=?, supermercado=?, condominio=?, aluquel=?, telefonefixo=?, celular=?, Alimentacao=?, planosaude=?, faculdadeescola=?, tvdigital=?, onibus=?, internet=?, entreterimento=?, cartao=?, roupa=?, curso=?, farmacia=?, iptu=?, eletrodomestico=?, viagem=?, despesaextra=?, impostorenda=?, prestacaoveiculo=?, combustivel=?, seguroobrigatorio=?, seguro=?, ipva=?, manutencao=?, renda1=?, renda2=?, renda3=?, renda4=?, renda5=?, rendaTotal=?, mensalFixa=?, mensalNaoFixa=?, despesaVeiculo=?, despesaTotal=?, Saldo=?, where idDespesas= '" & Text1.Text & "'"
cmd.Parameters(0) = DTPicker.Value
cmd.Parameters(1) = txtenergia.Text
cmd.Parameters(2) = txtagua.Text
cmd.Parameters(3) = txtgas.Text
cmd.Parameters(4) = txtmercado.Text
cmd.Parameters(5) = txtcondominio.Text
cmd.Parameters(6) = txtaluguel.Text
cmd.Parameters(7) = txttelefonefixo.Text
cmd.Parameters(8) = txtcelular.Text
cmd.Parameters(9) = txtalimentacao.Text
cmd.Parameters(10) = txtplanosaude.Text
cmd.Parameters(11) = txtmensalidadeescolar.Text
cmd.Parameters(12) = txttvdigital.Text
cmd.Parameters(13) = txtonibus.Text
cmd.Parameters(14) = txtinternet.Text
cmd.Parameters(15) = txtEntreterimento.Text
cmd.Parameters(16) = txtCartao.Text
cmd.Parameters(17) = txtRoupa.Text
cmd.Parameters(18) = txtCurso.Text
cmd.Parameters(19) = txtFarmacia.Text
cmd.Parameters(20) = txtIPTU.Text
cmd.Parameters(21) = txtEletrodomestico.Text
cmd.Parameters(22) = txtViagem.Text
cmd.Parameters(23) = txtDespesaExtra.Text
cmd.Parameters(24) = txtImpostoRenda.Text
cmd.Parameters(25) = txtPrestacaoVeiculo.Text
cmd.Parameters(26) = txtCombustivel.Text
cmd.Parameters(27) = txtSeguroObrigatorio.Text
cmd.Parameters(28) = txtSeguro.Text
cmd.Parameters(29) = txtIPVA.Text
cmd.Parameters(30) = txtManutencao.Text
cmd.Parameters(31) = txtRendaUm.Text
cmd.Parameters(32) = txtRendaDois.Text
cmd.Parameters(33) = txtRendaTres.Text
cmd.Parameters(34) = txtRendaQuatro.Text
cmd.Parameters(35) = txtRendaCinco.Text
cmd.Parameters(36) = txtRendaTotal.Text
cmd.Parameters(37) = txtTotalMensal.Text
cmd.Parameters(38) = txtTotalNaoFixa.Text
cmd.Parameters(39) = txtTotalVeiculo.Text
cmd.Parameters(40) = txtTotais.Text
cmd.Parameters(41) = txtSaldo.Text
cmd.Execute
MsgBox "Alteração realizada com sucesso.", vbInformation, "Contas - Atualizacao"
End Sub
Aparece a mensagem:
Syntax error in Update statement
Como faço um update com vários campos corretamente?
