DUVIDAS LISTBOX

SACOFRITO 19/04/2011 10:26:20
#371828

Como assim?
Voce quer salvar o conteudo do listbox em um só campo do bd?

MARCELO.TREZE 19/04/2011 10:30:25
#371831 Resposta escolhida

assim

Dim Linha As String
For F = 0 To List1.ListCount - 1
Linha = Linha & List1.List(F) & [Ô];[Ô]
Next F

depois basta salvar a string linha no banco e pronto

RS.AddNew
RS.Fields([Ô]seucampo[Ô]) = Linha
RS.Update

JONATHANSTECKER 19/04/2011 10:32:06
#371832

Adicione um Delimitador para cada item do ListBox.
Assim quando retornar do banco basta usar a função Split para separá-los.

Exemplo.:
item01|Item02|Item03

ADEMIRJOAO 19/04/2011 11:14:48
#371842

vlw galera... Deu certo, obrigado pela a ajuda.

JONATHANSTECKER 19/04/2011 11:21:49
#371845

Poste como ficou seu método para futuras dúvidas e curiosidades.
E não se esqueça de encerrar o tópico ok?

ADEMIRJOAO 19/04/2011 15:49:07
#371888

Caros,

Fiz algumas adaptações e ficou assim:
---------------------------------------------------------------------------------------------------------------------------------------------------------------

Private Sub Command1_Click()

List1.Clear
ped = numped [ô] numero do pedio a ser linkado
Set RS = DB.OpenRecordset([Ô]select * from financeiro where cod_con like [Ô] & ped & [Ô][Ô])

Do Until RS.EOF
List1.AddItem RS([Ô]des[Ô]) & [Ô] - [Ô] & RS([Ô]Par[Ô]) & [Ô] - [Ô] & Format$(RS![val], [Ô]#,##0.00[Ô])
RS.MoveNext

Loop

num = 1
Dim Linha As String
For f = 0 To List1.ListCount - 1
Linha = Linha & num & [Ô] º [Ô] & List1.List(f) & [Ô] | [Ô]
num = num + 1

Next f

Label1.Caption = Linha

Set DB = OpenDatabase(App.path & [Ô]\dados.mdb[Ô], False, False, [Ô]MS Access;PWD=projeto[Ô]) [ô]abre o banco de dados com senha
DB.Execute [Ô]UPDATE ped_sai set pag = [ô][Ô] & Label1.Caption & [Ô][ô] where numped = [Ô] & ped


Resultado:

1° A vista - 1/1 400,00 | 2° Boleto - 1/2 400,00 | 3° Boleto - 2/2 400,00 .

Desta forma, salvo o respectivo dado no BD

vlw...