vb6 salvando vários itens em um campo

[dyuu]

Boa noite a todos!

Estou fazendo um programa de locação e queria saber como se faz para salvar diversos itens de um list view em apenas um campo de código, ex: campo código: 1 | campo filme: filme 1; filme 2, filme 3; etc

 

[Alyson Ronnan Martins]

Bom dia.

teria como fazer uma foto mostrando o que você está pesando fazer?

ficamos no aguardo. 

[dyuu]

Tipo, tá salvando a locação com o cliente, alterando o status do bd do filme e o list view, mas quando abro o cadastro o status continua disponível lá... enfim,  e não consigo salvar mais de um filme em uma mesma locação :x  Está ai a foto e o código

 

Private Sub cmdfinalizar_Click()
Dim vsql, vsqlf, vsqlc, vsql1 As String
Dim csaldo, fsaldo As Integer
Dim f As Integer

If rsfilmes.State = 1 Then
    rsfilmes.Close
End If
If rslocaçao.State = 1 Then
    rslocaçao.Close
End If
If rsclientes.State = 1 Then
    rsclientes.Close
End If

If rslocaçaofilmes.State = 1 Then
    rslocaçaofilmes.Close
End If

vsql = "select * from locaçao where cod_loc = " & txtcod_loc.Text
rslocaçao.Open vsql, cnbase, adOpenKeyset, adLockOptimistic, adCmdText

If rslocaçao.RecordCount = 0 Then
        rslocaçao.AddNew
       
        'SALVANDO DADOS BÁSICOS NA LOCAÇÃO
        rslocaçao.Fields("cod_loc") = txtcod_loc.Text
        rslocaçao.Fields("loc_data") = Date
        rslocaçao.Fields("loc_hora") = Time
        rslocaçao.Fields("loc_dev") = txtloc_dev.Text
        rslocaçao.Fields("loc_subtotal") = Format(frmlocar.txtloc_subtotal.Text, "###,##,0.00")
        rslocaçao.Fields("loc_desc") = Format(frmlocar.txtloc_desc.Text, "###,##,0.00")
        rslocaçao.Fields("loc_total") = Format(frmlocar.txtloc_total.Text, "###,##,0.00")
        rslocaçao.Fields("cod_cli") = frmlocar.txtcod_cli.Text
        rslocaçao.Fields("cli_nome") = frmlocar.txtcli_nome.Text
        rslocaçao.Fields("cli_cpf") = frmlocar.txtcli_cpf.Text
        'rslocaçao.Fields("loc_vista") = frmlocar.optvista.Value
        'rslocaçao.Fields("loc_nadev") = frmlocar.optdev.Value
        
        f = lvwlocaçao.ListItems.Count
        Do Until f = 0
            'rslocaçao.Fields("cod_film") = lvwlocaçao.ListItems.Item(f)
            rslocaçao.Fields("film_cod") = frmlocar.lvwlocaçao.ListItems.Item(f).SubItems(1)
            rslocaçao.Update

            vsqlf = "select * from filmes where cod_film = " & lvwlocaçao.ListItems.Item(f)
            rsfilmes.Open vsqlf, cnbase, adOpenKeyset, adLockOptimistic, adCmdText
            
            If rsfilmes.RecordCount > 0 Then
                rsfilmes.Fields("film_status") = "LOCADO"
                fsaldo = rsfilmes.Fields("film_saldo")
                rsfilmes.Fields("film_saldo") = CCur(fsaldo) + CCur(lvwlocaçao.ListItems.Item(f).SubItems(5))
                rsfilmes.Update
                rsfilmes.Close
             
            Else
                MsgBox "Não foi possível atualizar o status do filme!!", vbCritical, "Atenção:"
                rsfilmes.Close
            End If
            f = f - 1
        Loop
        rslocaçao.Close
        
End If
      vsqlc = "select * from clientes where cod_cli = " & frmlocar.txtcod_cli.Text
        rsclientes.Open vsqlc, cnbase, adOpenKeyset, adLockOptimistic, adCmdText
        
        If rsclientes.RecordCount > 0 Then
            rsclientes.Fields("cli_status") = "COM LOCAÇÃO"
            csaldo = rsclientes.Fields("cli_saldo")
            rsclientes.Fields("cli_saldo") = CCur(csaldo) + CCur(txtloc_total.Text)
            rsclientes.Update
            rsclientes.Close
        Else
            MsgBox "Cliente não foi atualizado !!!", vbCritical, "Atenção:"
            rsclientes.Close
        End If

End Sub