VENDIDOS

GESSINGER 01/03/2010 11:54:56
#335645
Preciso gravar os protdutos vendidos na tabela [Ô]Vendidos[Ô]

Usando Adodc1

Obrigagdo

Alguem pode olhar o arquivo.zip q eu postei ai ?
SINKERTEC 01/03/2010 12:11:03
#335647

Em qual tela é isso aí meu amigo? Qual botão?
GESSINGER 01/03/2010 12:34:16
#335653
to quase la ....:)

ta gravando 1 produto, so q quando vou gravar o segundo aparece q o Objeto esta aberto
Onde eu fecho ?
olha como ta meu codigo


Dim conex As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub cmdCalcular_Click()

Dim Pago As Currency
Dim Total As Currency
If txtPago = [Ô][Ô] Then
MsgBox [Ô]Você deve digitar o valor recebido[Ô], vbInformation, [Ô]Atenção[Ô]
Exit Sub
End If
Pago = txtPago [ô] declarando variavel
Total = txtTotal [ô] declarando variavel
txtTroco.Text = Pago - Total

If Pago < Total Then
MsgBox [Ô]Valor insuficiente para efetuar a compra![Ô], vbCritical, [Ô]Aviso[Ô]

Else
MsgBox [Ô]Compra efetuada com sucesso![Ô], vbInformation, [Ô]Aviso[Ô]
cmdTrasacao.Default = True
End If

End Sub
Private Sub cmdComprar_Click()
Dim Quantidade As String

Produto = [Ô]Select * From Produtos where Codigo like [ô][Ô] & txtCodigo.Text & [Ô][ô][Ô]
If txtCodigo.Text = [Ô][Ô] Then
MsgBox [Ô]Coloque o codigo Produto.[Ô], vbInformation, [Ô]Compra...[Ô]
Else
Ado.RecordSource = Produto
Ado.Refresh
If Ado.Recordset.BOF And True Then
MsgBox [Ô]Este Produto Não Existe![Ô], vbInformation, [Ô]Busca...[Ô]
txtCodigo.Text = [Ô][Ô] [ô]Limpando a txtCodigo caso apareca a mensagem,[Ô]Este Produto Não Existe[Ô]

Else
txtCodigo.Text = Ado.Recordset.Fields([Ô]Codigo[Ô])
txtProduto.Text = Ado.Recordset.Fields([Ô]Produto[Ô])
txtPreco.Text = Ado.Recordset.Fields([Ô]Preco[Ô])
txtFornecedor.Text = Ado.Recordset.Fields([Ô]Fornecedor[Ô])
txtVal_Vendido.Text = Ado.Recordset.Fields([Ô]Val_Vendido[Ô])


txtCodigo.Text = [Ô][Ô]
Nome = txtProduto.Text
Preco = txtPreco.Text
If Ado.Recordset.Fields([Ô]Quantidade[Ô]) <= 0 Then
MsgBox [Ô]Este produto está em falta[Ô], vbCritical, [Ô]Atenção...[Ô]
Exit Sub
End If
If Ado.Recordset.Fields([Ô]Quantidade[Ô]) <> 0 Then
txtQuantidade.Text = Ado.Recordset.Fields([Ô]Quantidade[Ô])
[ô]Ado.Recordset.Edit
Quantidade = txtQuantidade.Text + 1 - 1
Ado.Recordset.Fields([Ô]Quantidade[Ô]) = Quantidade
Ado.Recordset.Update

Dim Item As ListItem
Set Item = ListView1.ListItems.Add()
Item.Text = txtCodigo.Text
Item.SubItems(1) = txtQuantidade.Text
Item.SubItems(2) = txtProduto.Text
Item.SubItems(3) = Format(txtPreco.Text, [Ô]Currency[Ô]) [ô]Formatando o campo Preço moeda
Item.SubItems(4) = txtFornecedor.Text


conex.Open [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Wilton\Desktop\Pega\Banco.mdb;Persist Security Info=False[Ô]

rs.Open [Ô]Select * from Vendidos order by Produto[Ô], conex, adOpenKeyset, adLockOptimistic

rs.AddNew >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>aqui começa a gravar
rs!Produto = txtProduto.Text
rs!Preço = txtPreco.Text
rs!Fornecedor = txtFornecedor.Text
rs.Update

MsgBox [Ô]Registro incluido com sucesso...[Ô], vbInformation, [Ô]Aviso[Ô]







Dim Soma As Double
For Each Item In ListView1.ListItems
Soma = Soma + CDbl(Item.SubItems(3))
Next
txtTotal.Text = Format(Soma, [Ô]#,##0.00[Ô])

txtCodigo.Text = Ado.Recordset.Fields([Ô]Codigo[Ô])
txtProduto.Text = Ado.Recordset.Fields([Ô]Produto[Ô])
txtPreco.Text = Ado.Recordset.Fields([Ô]Preco[Ô])
txtFornecedor.Text = Ado.Recordset.Fields([Ô]Fornecedor[Ô])
txtCodigo.Text = [Ô][Ô]
Nome = txtProduto.Text
Preco = txtPreco.Text
If Ado.Recordset.Fields([Ô]Quantidade[Ô]) <> 0 Then
txtQuantidade.Text = Ado.Recordset.Fields([Ô]Quantidade[Ô])
[ô]Ado.Recordset.Edit
Quantidade = txtQuantidade.Text + 1 - 2 [ô]diminui 1 a cada quatidade comprada
Ado.Recordset.Fields([Ô]Quantidade[Ô]) = Quantidade
Ado.Recordset.Update
End If

If Ado.Recordset.Fields([Ô]Quantidade[Ô]) <= 9 And Ado.Recordset.Fields([Ô]Quantidade[Ô]) <> 0 Then
MsgBox [Ô]Pouco produto no estoque. Repor mas deste produto no estoque![Ô], vbInformation
End If
If Ado.Recordset.Fields([Ô]Quantidade[Ô]) = 0 Then
txtQuantidade.Text = Ado.Recordset.Fields([Ô]Quantidade[Ô])
MsgBox [Ô]Este produto está em falta[Ô], vbCritical, [Ô]Atenção...[Ô]

End If

End If
End If
End If
End Sub
SINKERTEC 01/03/2010 12:42:17
#335655


coloca depois do Update

rs.Close

Set Rs = Notthing

e testa
GESSINGER 01/03/2010 12:48:46
#335659
coloquei
rs.Close

Set Rs = Notthing
depois de rs.update e apareceu isso
DAVERSON 01/03/2010 12:50:29
#335660
Citação:

:
conex.Open [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Wilton\Desktop\Pega\Banco.mdb;Persist Security Info=False[Ô] [ô][ô][ô][ô][ô][ô]aqui esta abrindo

rs.Open [Ô]Select * from Vendidos order by Produto[Ô], conex, adOpenKeyset, adLockOptimistic

rs.AddNew >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>aqui começa a gravar
rs!Produto = txtProduto.Text
rs!Preço = txtPreco.Text
rs!Fornecedor = txtFornecedor.Text
rs.Update

MsgBox [Ô]Registro incluido com sucesso...[Ô], vbInformation, [Ô]Aviso[Ô]
[ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô][ô] aqui vc tem que fechar
rs.Close

Set Rs = Notthing
GESSINGER 01/03/2010 12:54:43
#335661
olha o Nothing acima ata escrito com 2 t, mas mesmo corrigindo ainda ta dando erro, o mesmo erro:
O Objeto esta abereto
PH1959 01/03/2010 13:10:16
#335667 Resposta escolhida
vc não fechou a primeira tabela...
Quantidade = txtQuantidade.Text + 1 - 1
Ado.Recordset.Fields([Ô]Quantidade[Ô]) = Quantidade
Ado.Recordset.Update
Ado.Recordset.close

vc tem q ir fechando as tabelas a medida em q vai terminando de usá-las...

OBS NOTHING é com um t só
GESSINGER 01/03/2010 13:32:02
#335670
Eu fechei a 1 tabela assim:

Quantidade = txtQuantidade.Text + 1 - 1
Ado.Recordset.Fields([Ô]Quantidade[Ô]) = Quantidade
Ado.Recordset.Update
Ado.Recordset.close
ta dizendo q o Objeto esta fechado...........olha so onde ta o erro:
MARCELO.TREZE 01/03/2010 13:34:39
#335673
primeiro colega entes de fazer a alteração sugerida pelo colega SINKERTEC mostre a linha onde o erro ocorre.
PH1959 01/03/2010 13:44:59
#335675
mas não existe mesmo...
vc não abriu este recordset aí
Página 1 de 2 [18 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar