LISTVIEW - COMO ENVIAR PARA O BD TODO O CONTEUDO??

USUARIO.EXCLUIDOS 02/06/2005 21:31:01
#86700
OLà!
BOA NOITE PESSOAL!

ESTOU DESESPERADO. PRECISO ENVIAR TODOS OS DADOS DE UM LISTVIEW PAR UM
ÃÅ¡NICO CAMPO DENTRO DO BD. COMO FAÇO! ELE ESTà GRAVANDO TANTOS REGISTROS
QUANTO OS CONTEÃÅ¡DOS(NOMES) QUE APARECEM NO LIST VIEW. GOSTARIA QUE TODOS OS NOMES FOSSEM ARQUIVADOS SOMENTE EM UM CAMPO (PARTICIPANTES).
ALGUéM PODE ME AJUDAR. O MEU LISTVIEW .

GRATO DANIEL/POA-RS.
USUARIO.EXCLUIDOS 03/06/2005 12:11:39
#86817
BOM DIA!

PESSOAL, PRECISO DA AJUDA DE VOCÃÅ S.

ALGUéM PODE ME AJUDAR POR FAVOR??

CONTO COM A COLABORAÇÃO DE VOCÃÅ S.

OBRIGADO,

DANIEL.
MARIOZNETO 03/06/2005 12:20:34
#86821

dim i as integer

for i = 0 as listview.listitens
data.recordset.addnew
data.recodset.fields("campo_do_bd") = listview.text & "" & listview.subitens(1)
data.recorset.update
next

espero ter ajudado...

duvida:
mario.gardenal@ig.com.br
USUARIO.EXCLUIDOS 03/06/2005 19:00:15
#86900
BOA NOITE!

PESSOAL, POR FAVOR ME AJUDEM.

NÃO CONSEGUI RESOLVER COM O CÓ“DIGO ACIMA. ESTOU USANDO O CÓ“DIGO ABAIXO QUE COPIEI DA INTERNET. MAS é CRIADO UM REGISTRO NA TABELA PARA CADA NOME. GOSTARIA QUE SOMENTE OS NOMES SELECIONADOS (Checked) SEJAM ENVIADOS PARA O BANCO DE DADOS EM UM MESMO CAMPO DA TABELA.

dataCon.DatabaseName = CAMINHO
SQL = "SELECT * FROM ATIVIDADES"
Set tbATIVIDADES = BANCO.OpenRecordset(SQL, dbOpenDynaset)

[i]For ITC = 1 To ListView1.ListItems.Count
If ListView1.ListItems(ITC).Checked = True Then
tbATIVIDADES.AddNew
tbATIVIDADES!Data = txtData
tbATIVIDADES!ATIVIDADES = txtAtividades
tbATIVIDADES!OBSERVACOES = txtObservacoes
tbATIVIDADES!PARTICIPANTES = ListView1.ListItems.Item(1) & " " & ListView1.ListItems.Item(ITC).SubItems(1)
tbATIVIDADES.Update
End If
Next ITC

POR FAVOR PRECISO URGENTE DE AJUDA.

UM ABRAÇO A TODOS,

DANIEL.
Tópico encerrado , respostas não são mais permitidas
Voltar