Boa Galera.....

Eu quero fazer um formulário de pedidos usando um listview para mostrar os itens do pedido, seria mais ou menos assim. Uso um textbox para inserir os itens do pedido e depois incluo no listview, até ai tudo bem, agora quero exportar estes itens para um bd.

Como faço esta rotina?

Obrigado a todos....

Maha

Não fiz nenhum tratamento especial nos dados. Mas Tente isso:

' No procedimento de gravação dos dados do listview no banco de dados

Dim Banco As Database, rsTeste As Recordset
   Set Banco = DBEngine.Workspaces(0).OpenDatabase(App.path & "Banco.mdb")
   Set rsTeste = Banco.OpenRecordset("TbTeste", dbOpenDynaset)
      Dim ItemListParaBD As ListItem ' para obter os itens e subitens para gravar no banco
  
         For Each ItemListParaBD In ListView1.ListItems
            'MsgBox (ItemListParaBD.SubItems(1))
               rsTeste.AddNew
                  rsTeste("Codigo") = ItemListParaBD.Text
                  rsTeste("Nome") = ItemListParaBD.SubItems(1) ' Detalhe importante! para campos adicionais incluídos vc precisa jogar em subitens sempre.
               rsTeste.Update
            DoEvents
         Next
      rsTeste.Close

 

'Fiz isso para configurar o cabeçalho do listview:

   ListView1.ColumnHeaders.Add , , "Codigo", ListView1.Width / 2
   ListView1.ColumnHeaders.Add , , "Nome", ListView1.Width / 2
   ListView1.View = lvwReport

' E fiz isso para preenchê-lo:

   ListView1.View = lvwReport
  ' Aqui eu declaro uma variável que vai apontar para o objeto Listitem
   Dim ItemDoList As ListItem
    ' Inclui um item e seus "Subitens" (Campos acessórios do registro a ser gravado no banco)
    Set ItemDoList = ListView1.ListItems.Add(, , txtCod.Text)
    ItemDoList.SubItems(1) = TxtNome.Text

 

Bem se naum funfar grita dái... Abraços, Sidnei