SALVAR AUTOMATICAMENTE

USUARIO.EXCLUIDOS 26/03/2004 07:49:32
#17104
E ae galera !!

Tenho o seguinte problema:

Estou desenvolvendo um projeto ....... ai quando o usuario abrir o formulario, (vou simplificar aki), se a label1 = "VBMANIA", o sistema irá pegar o valor de duas listas e irá salvar os valores no banco de dados. Assim: O banco onde irá salvar tem 4 campos: 1 é a data do dia, o outro é o valor da lista (list1.text), o outro é o valor da outra lista (list2.text) e o outro e o texto "PRESENTE".
Ex: O usuario abre o formulario hoje e o sistema salva:
25/03 - [Texto da Lista1] - [Texto da lista2] - Presente
Isso até acabar os valores da lista.
Para isso usei:
sub lista1
while not rs.EOF then
          list1.addItem rs(0)
          rs.MoveNext
Wend
End Sub

e
sub lista2
while not rs.EOF then
          list2.addItem rs(1)
          rs.MoveNext
Wend
End Sub

Ai eu nao sei como fazer o sistema salvar automaticamente os campos .....
é mais ou menos isso
USUARIO.EXCLUIDOS 26/03/2004 09:03:19
#17125 Resposta escolhida
Do jeito que vc colocou vc está carregando os lists e não o BD...

Mas para salvar no bd vc pode dar um update assim:


sub nome_rotina
for a =0 to list1.listcount
          rs.addnew 
          rs(Data) = Date
          rs(List1) = list1.item(a)
          rs(List2) =  list2.item(a)
          rs(Presente) = "Presente"
          rs.update
next
end sub


acho que isso irá funcionar
Tópico encerrado , respostas não são mais permitidas
Voltar