Bom dia a todos

Alguem que possa me ajudar????

 

Quero saber como faço para gravar os dados de um Listview em um banco de dados ACCESS:

Os dados sao os seguintes:

 

Banco de dados: Empresa.MDB

Tabela: Vendas.....  "Campos"   Nome, Codigo Parcela etc...

Uso DAO com VB6

 

O que eu quero fazer é gravar os dados do Listview nesse tabela, Nome do Listviwe "lstparcelas", considerando que este List e de vendas a prazo a nãosabemos qtas linhas tera para ser gravado. depende da qtde de parcela

 

Alguem pode me ajudar

Hm1020;Cabra eu vou fazer algumas tarefas aki em casa,caso ninguem mande um exemplo

para tu vou enviar para seu email um exemplo bem prático.Valeu.

Omar

ADO ou DAO

- OK Omar Grato pela atenção

 

- Treze Grato tambem, é "DAO"

 

Caso alguem de voce possa me ajudar ficarei muito grato

 

é algo simples é mais ou menos assim, talvez apenas alguns ajustes

 

veja

 

With ListView1

For F = 1 To .ListItems.ListCount

RS.AddNew

RS.Field("campo1") = .ListItems(F).SubItens(0)

Hm1020;Vai ai um didferente do Treze.

Olhe.

Private Sub Command2_Click()
 Dim ssql As String
 Dim lstItens As ListItem
   
 If MsgBox("Deseja realmente Gravar Vendas?", vbYesNo + vbQuestion) = vbYes Then
      For Each lstItens In lstparcelas.ListItems
      ssql = "Insert Into Vendas (CODIGO,NOME,PARCELA) Values ('" & lstItens.Text & "','" & lstItens.SubItems(1) & "','" & lstItens.SubItems(2) & "' )"
      BancoDeDados.Execute (ssql)
      Next
       MsgBox "Gravado"
   End If
End Sub

Tente este tb.

Omar