Almarante

Maio 14, 2017

Bom pessoal preciso de ajuda para uma consulta.

Tenho uma tabela "Pessoas" nela cadastro Clientes, fornecedores, Transportadoras e outros.

Tem um campo chamado "Tipo" onde numericamente diferencia o tipo de cadastro, quando abro o form com o código abaixo ele me traz apenas o tipo desejado.

No caso o form abre com txtTipo.text = 1

rs.open "SELECT * FROM Pessoas WHERE Tipo=" & txtTipo.text & "", db, 3, 3

Com o form já aberto eu vou pesquisar por nome com o código abaixo, digito uma letra dai retorna todos cadastros da tabela com a letra digitada sem filtrar por tipo.

rs. Open "SELECT * FROM Pessoas WHERE " & cboPesquisa.text & " LIKE '" & txtPesquisa.text & "%' AND " & txtTipo.text & " order by " & cboOrdenar.text & "", db, 3, 3

alguém pode me diser com deva fazer?

Obrigado.

Janeiro 5, 2012

Olá Pessoal Preciso de uma ajudinha.

Estou usando o codigo abaixo para pesquisar registros no DataGrid, está funcionado perfeitamente, porem eu preciso que o cursor do DataGrid aponte o registro encontrado ou selecione a primeira linha, para que o registro selecionado seja mostrado nas texbox do form, como faço isso?

Private Sub txtPesquisa_Change()
X = Len(txtPesquisa.text)
AdoPagar.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & stCaminhoBD
 Filtro = txtPesquisa.text & "%"
AdoPagar.RecordSource = "select * from ContasPagar WHERE  " & cboPesquisa.text & "  Like  '" & Filtro & "'"
AdoPagar.Refresh

Do While AdoPagar.Recordset.EOF = False

AdoPagar.Recordset.MoveNext
Loop
End Sub

Dezembro 27, 2011

Olá pessoal estou eu novamente aqui pedindo ajuda

desta vez eu estou precisando de uma rotina para gerar parcelas e vencimentos.

Exp.

uma venda realizada hoje 27/12/2011 no valor de R$ 1.000,00 para ser paga em 3 vezes com vencimentos a cada 30 dias

para ficar desta forma, Titulo/A R$ 333,34 vencimento 26/01/2012

Titulo/B R$ 333,33 vencimento 25/02/2012

Titulo/C R$ 333,33 vencimento 26/03/2012, onde Titulo seria o número de um documento.

Se alguém poder me ajudar desde já Agradeço.

Dezembro 27, 2011

Só explica uma coisa...os ítens ficam salvo em outro campo do Banco de Dados ?
Assim: o número do pedido ta salvo no campo "NPedido"... e os ítens ???
Pois assim bastava configurar seu SELECT informando o número do pedido "e" número (ou nome, seja lá o que for...) do ítem...
ficaria mais ou menos assim:
AdoItensPedido.RecordSource = "SELECT * FROM ItensPedido WHERE NPedido='" & Numero_do_Item & "' AND NItem='" & vItem & "'"
Sem falar que realmente você esqueceu dois operadores nessa mesma linha...o "=" (igual) e o " ' " (apóstrofo). corrigido:
AdoItensPedido.RecordSource = "SELECT * FROM ItensPedido WHERE NPedido=" + busca + " AND '" + txtItem.text + "'"
Estou julgando que "busca" é um valor do tipo numérico e o conteúdo do "txtItem.Text" do tipo texto.
Danleonhart primeiro obrigado pela ajuda.
Respondendo a sua primeira pergunta, NPedido é um campo e Item é outro campo da tabela ItensPedido, e os dois campos são do tipo texto.
testei o segundo exemplo e deu "TIPO DE DADOS INCOPATIVEL COM A EXPRESSÃO DE CRITERIO"

Olá, Danleonhart

esta eu consegui acharonde eu estava errando, e já resolvi obrigado pela força

Novembro 20, 2011

Valeu danleonhart, Não da mais o erro, mas ainda não altera os dados dos outro itens que não seja o primeiro, vou colocar abaixo todo código do botão editar.

No form Pedidos de compras tem botão editar itens, ao clicar nele abre um form editar itens de pedido com todos os campos previamente selecionados no listview, então

eu altero o dado que for nescessário, mas na hora de salvar na tabela nada acontece, o código do botão editar segue abaixo.

Private Sub cmdEditar_Click()
 Dim TotalPed As Single
 Dim ali As Integer
 Dim Base As Single
 Dim Valicms As Single
 Dim indice As Single
 Dim qtd As Single
 Dim valunit As Single
 Dim valitem As Single
 Dim totindice As Single
 Dim aliIPI As Single
 Dim valipi As Single
 Dim base1 As String
 Dim busca As String
 Dim valindice As Single
                TotalPed = frmPedidosCompras.txtTotaldoPedido.text
                ali = frmPedidosCompras.txtICMS.text
                Base = frmPedidosCompras.txtBaseICMS.text
                Valicms = frmPedidosCompras.txtValorICMS.text
                indice = txtIndice.text
                qtd = txtQuantidade.text
                valunit = txtValUnitario.text
                valitem = txtTotalItem.text
                totindice = frmPedidosCompras.txtTotalIndice.text
                base1 = frmPedidosCompras.cboBase1.text
                valindice = txtValIndice.text
       
       Let busca = frmPedidosCompras.txtNumerodoPedido.text
       AdoPedido.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & stCaminhoBD
       AdoPedido.RecordSource = "SELECT * FROM Pedido WHERE NPedido LIKE '" + busca + "'"
       AdoPedido.Refresh
       AdoPedido.Recordset.Filter = "Tipo = " & 2
       If frmPedidosCompras.txtNumerodoPedido.text = busca Then
       
          TotalPed = TotalPed - valitem
          valindice = qtd * indice
          totindice = totindice - (valindice * qtd)
          AdoPedido.Recordset("TotalPedido") = TotalPed
          AdoPedido.Recordset("TotalIndice") = totindice
          AdoPedido.Recordset.Update
          AdoPedido.Recordset.MoveNext
          AdoPedido.Recordset.MovePrevious
       End If
       
       
       
       Let busca = frmPedidosCompras.txtNumerodoPedido.text
       AdoItensPedido.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & stCaminhoBD
       AdoItensPedido.RecordSource = "SELECT * FROM ItensPedido WHERE NPedido='" + busca + "' AND '" & txtItem.text & "'"
       AdoItensPedido.Refresh
       AdoItensPedido.Recordset.Filter = "Tipo = " & 2

       If frmPedidosCompras.txtNumerodoPedido.text = busca Then
                
                valitem = qtd * valunit
                txtTotalItem.text = valitem
                AdoItensPedido.Recordset("ValTotal") = valitem
                AdoItensPedido.Recordset("CodProd") = txtCodProd.text
                AdoItensPedido.Recordset("Descricao") = txtDescricao.text
                AdoItensPedido.Recordset("Unidade") = txtUnidade.text
                AdoItensPedido.Recordset("Indice") = indice
                AdoItensPedido.Recordset("Comissao") = txtComissao.text
                AdoItensPedido.Recordset("Quantidade") = qtd
                valunit = Format(Format(valunit), "R$ ##,##0.00")
                AdoItensPedido.Recordset("ValUnitario") = valunit
                AdoItensPedido.Recordset.Update
                AdoItensPedido.Recordset.MoveNext
                AdoItensPedido.Recordset.MovePrevious
       
       End If
           
       Let busca = frmPedidosCompras.txtNumerodoPedido.text
       AdoPedido.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & stCaminhoBD
       AdoPedido.RecordSource = "SELECT * FROM Pedido WHERE NPedido LIKE '" + busca + "'"
       AdoPedido.Refresh
       AdoPedido.Recordset.Filter = "Tipo = " & 2

       If frmPedidosCompras.txtNumerodoPedido.text = busca Then
       
       TotalPed = TotalPed + valitem
       'valindice = indice * qtd
       'txtValIndice.text = valindice
       'totindice = totindice + valindice '(indice * qtd)
      frmPedidosCompras.txtTotaldoPedido.text = TotalPed
      frmPedidosCompras.txtTotalIndice.text = totindice
       
           If base1 = "Reduzida" Then
              Base = (TotalPed / 3) * 2
        '
              Valicms = Base / 100 * ali
         '
           Else
              Valicms = TotalPed / 100 * ali
          '    frmPedidosCompras.txtValorICMS.text = Valicms
           End If
       AdoPedido.Recordset("ValBase") = Base
       AdoPedido.Recordset("ValICMS") = Valicms
       TotalPed = Format(Format(TotalPed), "R$ ##,##0.00")
       AdoPedido.Recordset("TotalPedido") = TotalPed
       totindice = Format(Format(totindice), "R$ ##,##0.00")
       'AdoPedido.Recordset("TotalIndice") = totindice
       AdoPedido.Recordset.Update
       AdoPedido.Recordset.MoveNext
       AdoPedido.Recordset.MovePrevious
    End If
               
          
     
   Unload frmPedidosCompras
   Unload frmEditarItensPedidoCompras
   'Preenche_Lista
   frmPedidosCompras.Show
   frmPedidosCompras.sstabPedidoCompra.Tab = 1
   frmPedidosCompras.Move (Screen.Width - frmPedidosCompras.Width) / 2, (Screen.Height - frmPedidosCompras.Height) / 2
   frmPedidosCompras.Top = 200
End Sub

Novembro 20, 2011

Só explica uma coisa...os ítens ficam salvo em outro campo do Banco de Dados ?
Assim: o número do pedido ta salvo no campo "NPedido"... e os ítens ???
Pois assim bastava configurar seu SELECT informando o número do pedido "e" número (ou nome, seja lá o que for...) do ítem...
ficaria mais ou menos assim:
AdoItensPedido.RecordSource = "SELECT * FROM ItensPedido WHERE NPedido='" & Numero_do_Item & "' AND NItem='" & vItem & "'"
Sem falar que realmente você esqueceu dois operadores nessa mesma linha...o "=" (igual) e o " ' " (apóstrofo). corrigido:
AdoItensPedido.RecordSource = "SELECT * FROM ItensPedido WHERE NPedido=" + busca + " AND '" + txtItem.text + "'"
Estou julgando que "busca" é um valor do tipo numérico e o conteúdo do "txtItem.Text" do tipo texto.

Danleonhart primeiro obrigado pela ajuda.

Respondendo a sua primeira pergunta, NPedido é um campo e Item é outro campo da tabela ItensPedido, e os dois campos são do tipo texto.

testei o segundo exemplo e deu "TIPO DE DADOS INCOPATIVEL COM A EXPRESSÃO DE CRITERIO"

Novembro 19, 2011

Olá pessoal

Estou criando um form que me traz os campos de uma tabela "ItensPedido" selecionado em um listvew.

Depois no botão editar faço uma cosulta pelo número do pedido, porem cada pedido possuem vários itens. só altera do primeiro item, então acredito que a cosulta deva ser o número do pedido mais item.

estou fazendo desta forma baixo e dá erro de operador faltando.

Let busca = frmPedidosCompras.txtNumerodoPedido.text
       AdoItensPedido.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & stCaminhoBD
       AdoItensPedido.RecordSource = "SELECT * FROM ItensPedido WHERE NPedido '" + busca + "AND" + txtItem.text + "'"
       AdoItensPedido.Refresh
       AdoItensPedido.Recordset.Filter = "Tipo = " & 2

       If frmPedidosCompras.txtNumerodoPedido.text = busca Then
                
                valitem = qtd * valunit
                txtTotalItem.text = valitem
                AdoItensPedido.Recordset("ValTotal") = valitem
                AdoItensPedido.Recordset("CodProd") = txtCodprod.text
                AdoItensPedido.Recordset("Descricao") = txtDescricao.text
                AdoItensPedido.Recordset("Unidade") = txtUnidade.text
                AdoItensPedido.Recordset("Indice") = indice
                AdoItensPedido.Recordset("Comissao") = txtComissao.text
                AdoItensPedido.Recordset("Quantidade") = qtd
                valunit = Format(Format(valunit), "R$ ##,##0.00")
                AdoItensPedido.Recordset("ValUnitario") = valunit
                AdoItensPedido.Recordset.Update
                AdoItensPedido.Recordset.MoveNext
                AdoItensPedido.Recordset.MovePrevious
       
       End If

Apoveitando o tópico, depois de salva as alterações deverar atualizar o listvew, como faço pra chamar a sub Preenche_Lista que está em outro Form?

Desde já Agradeço

Outubro 4, 2011

Olá, Pessoal estou aqui novamente precisando de ajuda.

Tenho um form para emitir pedidos, no form tem um listview onde eu coloco os itens desde pedido,porem se alguém digitar algo errado precisa ser corrigido, tentei fazer da maneira abaixo mas só carrega o numero do item.

Private Sub Command1_Click()
If lstItensdoPedido.ListItems.Count = 0 Then Exit Sub
frmEditarItensPedidoCompras.txtItem = lstItensdoPedido.SelectedItem.text

Set list = lstItensdoPedido.ListItems.Add(, , txtItem.text)
list.Tag = txtItem.text
 frmEditarItensPedidoCompras.txtCodProd.text = list.SubItems(1)
 frmEditarItensPedidoCompras.txtDescricao.text = list.SubItems(2)
 frmEditarItensPedidoCompras.txtUnidade.text = list.SubItems(3)
 frmEditarItensPedidoCompras.txtQuantidade.text = list.SubItems(6)
 frmEditarItensPedidoCompras.txtIndice.text = list.SubItems(4)
 frmEditarItensPedidoCompras.txtComissao.text = list.SubItems(5)
 frmEditarItensPedidoCompras.txtValUnitario.text = list.SubItems(7)
 frmEditarItensPedidoCompras.txtTotalItem.text = list.SubItems(8)

frmEditarItensPedidoCompras.Show

Tentei copiar deste exemplo abaixo.

Private Sub CmdEditar_Click()

If ListaAlunos.ListItems.Count = 0 Then Exit Sub
Aluno_edicao.data(0) = ListaAlunos.SelectedItem.Text

For i = 1 To 4
   Aluno_edicao.data(i).Text = ListaAlunos.SelectedItem.ListSubItems(i).Text
Next i

Aluno_edicao.cmbSexo = ListaAlunos.SelectedItem.ListSubItems(5).Text
Aluno_edicao.chave = ListaAlunos.SelectedItem.Text
Aluno_edicao.data(0).Enabled = False
Aluno_edicao.mode = "editar"

Load Aluno_edicao
Aluno_edicao.Show 1

End Sub

Desde já Agradeço.

Agosto 20, 2011

Olá Pessoal estou novamente precisando de ajuda.

Há alguns dias eu pediajuda para pesquisar no DataGrid, tive ajuda e tá tudo funcionando bem

mas eu quero atraves de um DataCombo escolher por qual coluna pesquisar.

fiz da maneira abaixoe deu erro de sintaxe ( operador faltando)

Private Sub txtpesquisa1_Change()
X = Len(txtpesquisa1.text)
AdoClientes.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & stCaminhoBD
 Filtro = txtpesquisa1.text & "%"
AdoClientes.RecordSource = "select * from Clientes WHERE  & cboPesquisa &  Like  '" & Filtro & "'"
AdoClientes.Refresh
AdoClientes.Recordset.Filter = "Tipo = " & 1
Do While AdoClientes.Recordset.EOF = False

AdoClientes.Recordset.MoveNext
Loop

End Sub

De que forma devo fazer?

Agosto 3, 2011

Valeu, Kuroi encotrei o erro e funcionou.

Julho 17, 2011

Coloquei o codigo no form e o outro no modulo mas dá o seguinte erro

Metodo ou base de dados não encontrado na linha abaixo.

SetStyle SSTab1.hWnd, cSolidColor

Julho 17, 2011

Olá Pessoal, Estou usando o controle sstab e quero mudar a cor, na propriedade BACKCOLOR, eu mudo para branco só que ele continua com a cor padrão do windows, alquem pode me dizer porque?

e tambem quero mudar a cor do DATAGRID.

Desde já agradeço

Abril 10, 2011

O Código são esses Abaixo

AdoPedido.Recordset.Update
  AdoPedido.Recordset.MoveNext
  AdoPedido.Recordset.MovePrevious

AdoItensPedido.Recordset.AddNew
AdoItensPedido.Recordset("Item") = txtItem.text
AdoItensPedido.Recordset("CodProd") = txtCodprod.text
AdoItensPedido.Recordset("Descricao") = txtDescricao.text
AdoItensPedido.Recordset("Unidade") = txtUnidade.text
AdoItensPedido.Recordset("Quantidade") = txtQuantidade.text
AdoItensPedido.Recordset("Indice") = txtIndice.text
AdoItensPedido.Recordset("Comissao") = txtComissao.text
AdoItensPedido.Recordset("ValUnitario") = txtValUnit.text
AdoItensPedido.Recordset("ValTotal") = txtValTotal.text
AdoItensPedido.Recordset("NPedido") = txtNumerodoPedido.text
AdoItensPedido.Recordset.Update
AdoItensPedido.Recordset.MoveNext
AdoItensPedido.Recordset.MovePrevious

no primeiro exemplo as caixas de texto estão linkadas aos campos da tabela e para iniciar eu abro um novo registro,

nosegudo caso eu gravo item a item.

Abril 10, 2011

Oi,Pessoal estou outra vez precisando de ajuda

Tenho duas tabelas, uma Pedidos e a outa ItensDoPedido, ambas tem o Campo NPedido

Formatei o textbox do numero do pedido para colocar zeros a esquerda "000001"

O compo da tabela ItensDoPedido grava desta forma o campo da tabela Pedido só grava sem os "0" ou seja grava "1"

Nas duas tabelas os campos estão como texto e com tamanho 6.

alguém pode me dizer porque isso acontece?

Março 31, 2011

Olá, Danleonhart

Deu certo era isso mesmo que eu queria, digitar uma letra e listar todos regitros que inicie com esta letra e assim pordiante.

Olá KUROI, o BD é acsses, mas funcionou com "%" e não com "*".

Valeu, Obrigado

Março 30, 2011

Descupe, KUROI mas não Entendi onde colocar esta linha na rotina.

O Post que copiei é do DALEONHART de 11/03/2011 as 22:28.

Março 29, 2011

Oi Pessoal Dando uma olhada no forum, vi um tópico " Selecionar no BD com aplicativo VB6 usando letras iniciais"

Então tentei fazer conforme Codigo Abaixo, mas eu só sei programar da forma que está ai. Bom deu erro na linha do data grid

no addItem"METODO OU MEMBRO DE DADOS NÃO ENCONTRADO"

Não sei se dá certo com o data grid, se der me ajudem!

Private Sub txtpesquisa_Change()
X = Len(txtpesquisa.text)
AdoClientes.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & stCaminhoBD
AdoClientes.RecordSource = "select * from Clientes WHERE MID(Nome,0,x)='" & Mid(txtpesquisa.text, 0, X) & "'"
AdoClientes.Refresh
AdoClientes.Recordset.Filter = "Tipo = " & 1
Do While AdoClientes.Recordset.EOF = False
DataGrid1.AddItem
AdoClientes.Recordset = cbopesquisa.text
AdoClientes.Recordset.MoveNext
Loop
End Sub

txtpesquisa é onde digita o nome a serpesquisado

cbopesquisa éonde escolhe a coluna que quer pesquisar.

Janeiro 18, 2011

Kuroi, Na linha

"frmCadNotas.AdoItensdoProduto.Recordset.MoveFirst"

e tambem está dando ERRO DE SINTAXE NA CLÁUSULA FROM, na linha abaxo.

"frmCadNotas.AdoItensdoProduto.Refresh"

Janeiro 15, 2011

Oi pessoal, Bom Dia

aqui estou eu novamente precisando de ajuda.

tenho um formulario onde eu lanço os itens de uma nota fiscal "Produtos" esses Produtos são compostos por sub produtos "ItensdoProduto"

eu quero que a cada lançamento seja baixado do estoque a quantidade de cada item do produto referente ao Produto lançado.

No codigo abaixo estou primeiro tentando salvar o resultado na Tabela ItensDeSaida, para depois subtrair o resultado de cada item da Tabela Estque.

Mas me deparei com o seguinte erro.

"Variavel do Objeto ou Variavel do Bloco WITH não foi definida"

Private Sub BaixaEstoque1()
  Dim QTD_SAIDA As Single
  Dim QTD_ITEMPRODUTO As Single
  Dim QTD_NOTA As Single
  
  
frmCadNotas.AdoItensdoProduto.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & stCaminhoBD
frmCadNotas.AdoItensdoProduto.RecordSource = "SELECT * FROM ItensdoProduto CodigodoProduto LIKE'" + frmCadNotas.txtCodProd.text + "'"
frmCadNotas.AdoItensdoProduto.Refresh

frmCadNotas.AdoItensdoProduto.Recordset.MoveFirst
Do While Not frmCadNotas.AdoItensdoProduto.Recordset.EOF


QTD_ITEMPRODUTO = frmCadNotas.AdoItensdoProduto.Recordset("Quantidade")
QTD_NOTA = frmCadNotas.txtQuantidade.text

 QTD_SAIDA = QTD_ITEMPRODUTO * QTD_NOTA

 frmCadNotas.AdoItens_Saida.Recordset.AddNew
 frmCadNotas.AdoItens_Saida.Recordset("Data") = frmCadNotas.txtdataemissao.text
 frmCadNotas.AdoItens_Saida.Recordset("Numero_Da_Nota") = frmCadNotas.txtnumeronota.text
 frmCadNotas.AdoItens_Saida.Recordset("Item") = frmCadNotas.txtItem.text
 frmCadNotas.AdoItens_Saida.Recordset("Codigo_Do_Item") = frmCadNotas.AdoItensdoProduto.Recordset("CodigodoItem")
 frmCadNotas.AdoItens_Saida.Recordset("Descricao") = frmCadNotas.AdoItensdoProduto.Recordset("DescricaodoItem")
 frmCadNotas.AdoItens_Saida.Recordset("Quantidade") = QTD_SAIDA

 frmCadNotas.AdoItens_Saida.Recordset.Update
 frmCadNotas.AdoItens_Saida.Recordset.MoveNext
 frmCadNotas.AdoItens_Saida.Recordset.MovePrevious
   
   frmCadNotas.AdoItensdoProduto.Recordset.MoveNext

Loop
End Sub

Depois Tentei o seguinte,

Private Sub BaixaEstoque1()
  Dim QTD_SAIDA As Single
  Dim QTD_ITEMPRODUTO As Single
  Dim QTD_NOTA As Single
  Dim ADO As ADODB.Recordset
  
frmCadNotas.AdoItensdoProduto.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & stCaminhoBD
frmCadNotas.AdoItensdoProduto.RecordSource = "SELECT * FROM ItensdoProduto CodigodoProduto LIKE'" + frmCadNotas.txtCodProd.text + "'"
frmCadNotas.AdoItensdoProduto.Refresh

ADO = frmCadNotas.AdoItensdoProduto.Recordset

ADO.MoveFirst
Do While Not ADO.EOF


QTD_ITEMPRODUTO = frmCadNotas.AdoItensdoProduto.Recordset("Quantidade")
QTD_NOTA = frmCadNotas.txtQuantidade.text

 QTD_SAIDA = QTD_ITEMPRODUTO * QTD_NOTA

 frmCadNotas.AdoItens_Saida.Recordset.AddNew
 frmCadNotas.AdoItens_Saida.Recordset("Data") = frmCadNotas.txtDataEmissao.text
 frmCadNotas.AdoItens_Saida.Recordset("Numero_Da_Nota") = frmCadNotas.txtnumeronota.text
 frmCadNotas.AdoItens_Saida.Recordset("Item") = frmCadNotas.txtItem.text
 frmCadNotas.AdoItens_Saida.Recordset("Codigo_Do_Item") = frmCadNotas.AdoItensdoProduto.Recordset("CodigodoItem")
 frmCadNotas.AdoItens_Saida.Recordset("Descricao") = frmCadNotas.AdoItensdoProduto.Recordset("DescricaodoItem")
 frmCadNotas.AdoItens_Saida.Recordset("Quantidade") = QTD_SAIDA

 frmCadNotas.AdoItens_Saida.Recordset.Update
 frmCadNotas.AdoItens_Saida.Recordset.MoveNext
 frmCadNotas.AdoItens_Saida.Recordset.MovePrevious
   
   frmCadNotas.AdoItensdoProduto.Recordset.MoveNext

Loop
End Sub

Deu "Uso Invalido da Propriedade"

Dezembro 29, 2010

Kuroi eu Consegui desta forma abaixo, acrescentado a linha AdoitensNf.recordset.MoveNext, ainda trava.

Public Sub ListaCheia()
Dim list As ListItem

adoItensNF.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & stCaminhoBD
adoItensNF.RecordSource = "SELECT * FROM ItensdaNotaII  WHERE Documento LIKE'" + txtnumeronota.text + "'ORDER BY Item"  '", stCaminhoBD
adoItensNF.Refresh
lstItensNf.ListItems.Clear
 While Not adoItensNF.Recordset.EOF
Set list = lstItensNf.ListItems.Add(, , txtItem.text)
list.Tag = txtItem.text
list.SubItems(1) = txtCodProd.text
list.SubItems(2) = txtDescricao.text
list.SubItems(3) = txtUnidade.text
list.SubItems(4) = txtQuantidade.text
list.SubItems(5) = txtIndice.text
list.SubItems(6) = txtValUnitario.text
list.SubItems(6) = Format(CCur(txtValUnitario.text), "R$ #,##0.0000;(R$ #,##0.0000")
list.SubItems(7) = txtValItem.text
list.SubItems(7) = Format(CCur(txtValItem.text), "R$ #,##0.0000;(R$ #,##0.00")
adoItensNF.Recordset.MoveNext
Wend

adoItensNF.Recordset.Close
lstItensNf.Refresh


End Sub

Dezembro 26, 2010

Kuroi, fiz do jeito que você falou mas quando abro o form trava tudo como se entrace num loop infinito.

Dezembro 22, 2010

Kuroi tentei as duas forma mas não deu certo ocorre um erro na segunda linha,

"METODO OU MEMBRO DE DADOS NÃO ENCOMTRADOS"

Set Lista = lstItensNf.ListItems.Add(, , CStr(adoItensNF.Recordset("Item")))
        Lista[color="#FF0000"].Add.[/color]SubItems(1) = adoItensNF.Recordset("CodigodoProduto")

Dezembro 20, 2010

não entendi, almarante. se você já tem o codigo pra preencher a listview, e esta funcionando, porque você simplesmente não copia esse mesmo codigo pra hora q o formulario for aberto??

Kuroi Não Consegui Fazer com o mesmo código, porem tentei esses dois codigos e os dois dão a mesma menssagem de erro,

Erro em tempo de Execussão

Tipos incompativeis.

O erro está na linha sublinhada

Private Sub Preenche_Lista()
Dim Lista As ListItems
'On Error Resume Next
    adoItensNF.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & stCaminhoBD
    adoItensNF.RecordSource = "SELECT * FROM ItensdaNotaII WHERE Documento LIKE'" + txtListView.text + "'ORDER BY Item" '", stCaminhoBD
    adoItensNF.Refresh
    lstItensNf.ListItems.Clear
Do While Not adoItensNF.Recordset.EOF
    [u]Set Lista = lstItensNf.ListItems.Add(, , adoItensNF.Recordset("Item"))[/u]
        Lista.Add.SubItems(1) = adoItensNF.Recordset("CodigodoProduto")
        Lista.Add.SubItems(2) = adoItensNF.Recordset("DescricaodoProduto")
        Lista.Add.SubItems(3) = adoItensNF.Recordset("Unidade")
        Lista.Add.SubItems(4) = adoItensNF.Recordset("Quantidade")
        Lista.Add.SubItems(5) = adoItensNF.Recordset("Parametro")
        Lista.Add.SubItems(6) = adoItensNF.Recordset("ValorUnitario")
        Lista.Add.SubItems(7) = adoItensNF.Recordset("ValordoItem")
        Lista.Add.SubItems(8) = adoItensNF.Recordset("Documento")
        Lista.Add.SubItems(9) = adoItensNF.Recordset("Data")
        Lista.Add.SubItems(10) = adoItensNF.Recordset("Codigo")
Loop
Exit Sub
''Trataerro:
       'MsgBox Err.Description, vbCritical, "Erro de Sistema"
       
End Sub

Public Sub PreencheLista()
Dim Lista As ListItems
Dim i As Integer


lstItensNf.ListItems.Clear
If adoItensNF.Recordset.RecordCount = 0 Then Exit Sub


   While Not adoItensNF.Recordset.EOF
             [u]Set Lista = lstItensNf.ListItems.Add(, , adoItensNF.Recordset(0))[/u]
                 For i = 1 To 10
                    Lista.Add.SubItems(i) = adoItensNF.Recordset(i)
                    
                 Next i
                 rs.MoveNext
  Wend
End Sub

Dezembro 20, 2010

Kuroi, esta questão eu decobri o erro, no código abaixo eu estava esquecendo de trocar o nome da tabela.

AdoItensEntrada.ConnectionString = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & stCaminhoBD

AdoItensEntrada.RecordSource = "SELECT * FROM ItensDeEntrada"

AdoItensEntrada.Refresh

Dezembro 11, 2010

Olá Pessoal Boa Noite,

Estava indo tudo bem, inseri um novo form no projeto, alguns text box, fiz a conexão dos mesmos com a base de dados, via ado mas quando digito qualquer coisa em qualquer caixa de texto aparece a seguinte mensagem:

BINDING COLLECTION ERROR

Field Not Updatable, Bound property Name: text, Field Name: Data2.

Data2 é o nome do Campo, e estou usando Acsses 2003.

alguém pode me ajudar?

Desde já Agradeço.

Entrar

Almarante

Total de itens

Registro em

Última visita

Tipo de Conteúdo

Perfis

Fóruns

Posts postados por Almarante

Pesquisa filtrando 2 campos da mesma tabela

Pesquisar no DataGrid e Selecionar a linha

Rotina para gerar parcelas com Vencimentos

Consultar dois campos na mesma tabela

Consultar dois campos na mesma tabela

Consultar dois campos na mesma tabela

Consultar dois campos na mesma tabela

ListView

Pesquisar no DataGrid

Mudar cor do SSTab

Mudar cor do SSTab

SSTAB

Formato do Campo no Acsses

Formato do Campo no Acsses

Pesquisar no Data Grid

Pesquisar no Data Grid

Pesquisar no Data Grid

ERROR "91"

ERROR "91"

Listview

Listview

Listview

Listview

Binding collection error

Binding collection error

Navegação

Atividades