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

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