de conexao ao bd e de listview

[mestre fyoda 1]

Sobre o banco de dados , eu ja vi alguns codigos assim rs.update .... alguem poderia me dar um exemplo completo de conexao do tipo rs.update usando Module ( Variavel Global ) ? gostaria de programar usando variaveis globais .Qual o componente(referencia) necessito usar para o bd ?E como faço para acrescentar todos os dados de um bd no listview ?

[mestre fyoda 1]

no meu modulo fiz isso :

Sub ConexaoProdutos()    Dim cn As New ADODB.Connection    Dim rs As New ADODB.Recordset        cn.CursorLocation = adUseClient 'Define o cursor como local        cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\estoque.mdb" 'Abre o BD        rs.Open "SELECT * FROM Produtos ", cn, adOpenDynamic, adLockOptimistic 'Abre a tabela no objeto "rs"End Sub

e no meu form fiz isso

Private Sub Form_Load()ConexaoProdutosListView.ListItems.Add , , rs.cod_produtoListView.ListItems.Add , , rs.produtoListView.ListItems.Add , , rs.quantidadeListView.ListItems.Add , , rs.preco_custoListView.ListItems.Add , , rs.preco_vendaEnd Sub

E deu esse error : Run-Timer error '424'Object requiredo que to fazendo de errado ?

[mestre fyoda 1]

nao deu certo . mudeio o Lista para ListView e nao deu certo .

[mestre fyoda 1]

sub or function not defined esse foi o erro .

[mestre fyoda 1]

object requiredso que nessa linha

Set Produtos = db.OpenRecordset(AuxSql)

o codigo ficou assim

Private Sub Command1_Click()ConexaoProdutosSet Produtos = db.OpenRecordset(AuxSql)      Me.ListView.ListItems.Clear      While Not Produtos.EOF And Not Produtos.EOF       Set itmX = ListView.ListItems.Add(, , CStr(Produtos!Produto))       If Not IsNull(Produtos!ContarDeProduto) Then               If Len(Produtos!ContarDeProduto) = 1 Then                   CodP = "0000" & Produtos!ContarDeProduto               ElseIf Len(Produtos!ContarDeProduto) = 2 Then                   CodP = "000" & Produtos!ContarDeProduto               ElseIf Len(Produtos!ContarDeProduto) = 3 Then                   CodP = "00" & Produtos!ContarDeProduto               ElseIf Len(Produtos!ContarDeProduto) = 4 Then                   CodP = "0" & Produtos!ContarDeProduto               End If           itmX.SubItems(1) = CStr(CodP)       End If       'If Not IsNull(Tabela1!Vendedor) Then          'itmX.SubItems(3) = CStr(Tabela1!Vendedor)       'End If       Produtos.MoveNext   Wend      Me.Command1.SetFocus      Produtos.CloseEnd SubNa Modal Sub ConexaoProdutos()    Dim cn As New ADODB.Connection    Dim rs As New Recordset        cn.CursorLocation = adUseClient 'Define o cursor como local        cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\estoque.mdb" 'Abre o BD        rs.Open "SELECT * FROM Produtos ", cn, adOpenDynamic, adLockOptimistic 'Abre a tabela no objeto "rs"End Sub

[Luizgrs 0]

Faz assim:

No módulo:

public cn as new adodb.connectionPublic Sub abre_conexaoif cn.status = 0 then        cn.CursorLocation = adUseClient 'Define o cursor como local        cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\estoque.mdb" 'Abre o BDend ifEnd Sub

No form:

Private Sub Form_Load()    abre_conexao    dim rs as adodb.recordset    set rs = cn.executE("SELECT * FROM Produtos ")    dim item as listitem    while not rsProduto.eof            set item = ListView.ListItems.Add( , , rs("cod_produto"))            item.listsubitems.add (, , rs("produto"))            item.listsubitems.add (, , rs("quantidade"))            item.listsubitems.add (, , rs("preco_custo"))            item.listsubitems.add ( , , rs("preco_venda"))            rsProduto.movenext    wendEnd Sub

[mestre fyoda 1]

item.listsubitems.add (, , rs("produto"))           item.listsubitems.add (, , rs("quantidade"))           item.listsubitems.add (, , rs("preco_custo"))           item.listsubitems.add ( , , rs("preco_venda"))

esses 3 tao com sintaxe erroreu nao entendi esses item e subitens . me ajude a fazer passo a passo a configuração.

[Luizgrs 0]

item.listsubitems.add , , rs("produto")

[mestre fyoda 1]

funcionar funcionou so na parte do Set item = ListView.ListItems.Add(, , rs("cod_produto")) , ele so pegou a parte do codigo , o que esta de errado .E como faço para colocar Nome e em baixo os dados do banco de dados ?

[Luizgrs 0]

Ah tah eu passei como se você estive usando ele com a propriedade View = lvwReport. Se funcionar como você quiser deixa todos os outros subitems.add igual ao primeiro.

[mestre fyoda 1]

aproveitando o gancho , teria como colocar os dados do banco de dados no centro ?Exemplo , num campo text é obrigatorio deixar o R$ e quando o usuario deixar o campo automaticamente coloca R$ numero_digitado_pelo_usuario,00 , como faço ?

[Luizgrs 0]

Dentro do listview?

FAz assim:

set item = listivew.listitems.add(, , "R$ " & formatnumber(valor,2))

[mestre fyoda 1]

teria como fazer isso num campo text ? e como eu faço o ,00 ?

[mestre fyoda 1]

eu fiz dentro do evento do campo Text1teste = ("R$" & formatNumber (Text1.Text,2))so que ele atualiza quando eu digito um ou dois numero , eu queria que atualizasse quando fosse para outro campo mas assim tb no esta dando .como poderia fazer num campo text ?

[Luizgrs 0]

coloca no lostfocus dele:

text1.text = "R$ " & formatnumber(text1.text,2)

[mestre fyoda 1]

eu nao achei o lostfocus .

[luiz humberto 0]

Evento LostFocus do seu objeto Text.

[mestre fyoda 1]

disfarça eu tinha acordado na quele instante .hehehe .o metodo Text1.Text = FormatCurrency(Text1.Text, 2 ) é a mesma coisa ?

[luiz humberto 0]

Irá formatar seu número e deixara duas casas após a virgula.

[mestre fyoda 1]

quando eu clico na listview ela so pega o cod_produto . teria como poder pegar todos os campos ?