• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Alcantara

Erro ao Gravar, VB 6

2 mensagens neste tópico

tenho um pequeno problema e o meu programa (tá a ser desenvolvido em VB6) nao grava como deve ser.

rsMyRS.MoveFirst
Dim X As Integer
X = 1

Do While Not X = rsMyRS.RecordCount
If MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - X, 6) = "þ" Then
rsMyRS.Edit
rsMyRS!conferido = True
rsMyRS.Update
Else
rsMyRS.Edit
rsMyRS!conferido = False
rsMyRS.Update
End If
rsMyRS.MoveNext
X = X + 1
Loop

X = 1
rsMyRS.MoveFirst
Do While Not X = rsMyRS.RecordCount
If MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - X, 7) = "þ" Then
rsMyRS.Edit
rsMyRS!pago = True
rsMyRS.Update
Else
rsMyRS.Edit
rsMyRS!pago = False
rsMyRS.Update
End If
rsMyRS.MoveNext
X = X + 1
Loop
rsMyRS.MoveFirst
MsgBox ("Guardado")

é este o código. o problema que tenho é que mando gravar o 1º registo que está na flex grid e ele grava-me o ultimo..  :wallbash:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

bem, assim por alto presumo que o problema esta na identificação do campo para resolver isso basta um if ou um select case. Na minha opiniao devias guardar os campos em ficheiros ficava-te muito mais rapido e mais facil.....claro que depende da finalidade do programa.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora