GRAVAR DADOS DO LISTBOX
Pessoal, estou quebrando cabeça a dias com manutenção entre lists, e no momento estou chegando perto do que estou querendo. Já consigo carregar os ListBoxes e passar os dados de um para outro. O que me falta agora é salvar os dados do listbox de destino (listbox da direita) no banco (ACCESS). O trecho abaixo é como carrega os dados do list1 para o list2....Como GRAVAR esses dados???
Do While Not rs1.EOF
List1.AddItem rs1!codContrato & vbTab & rs1!Nome & vbTab & rs1!Setor
rs1.MoveNext
Loop
Uploaded with ImageShack.us
Do While Not rs1.EOF
List1.AddItem rs1!codContrato & vbTab & rs1!Nome & vbTab & rs1!Setor
rs1.MoveNext
Loop
Uploaded with ImageShack.us
Opa, o trecho acima carrega o list1, e então os buttons atiram os dados para o list2 e vice-versa. Aproveitando, acho que seria melhor que fosse feito um UPDATE na tabela apos alocar os dados...Concordam???
faça um for no list2(da direita) e va dando insert ex:
Dim i as integer
For i=0 to list1.ListCount -1
[ô]aqui vai insert
insert into TABELA(campo1,Campo2) Values( list1.List(i),1)
Next
deu para entender?
Dim i as integer
For i=0 to list1.ListCount -1
[ô]aqui vai insert
insert into TABELA(campo1,Campo2) Values( list1.List(i),1)
Next
deu para entender?
LUIZCOMINO, como ficaria com UPDATE ao invés de INSERT INTO ?????
O que significa o numero 1 depois de (i), na parte VALUES . Se for para uma coluna só não dá, pois nos lists tem 3 colunas ...??
Tópico encerrado , respostas não são mais permitidas