AONDE ESTA O ERRO?

DREAMSOFT 11/04/2007 09:59:13
#211164
Bom dia!

Alguém saberia me dizer aonde estou errando no código abaixo?

 
Dim sql47 As String
    Conexao
    ReabreRst Rst
    sql47 = "SELECT * FROM TabVisitantes ORDER BY DataCont, NumeCont desc"
    Rst.Open sql47, Cnn, adOpenKeyset, adLockOptimistic

Do While Not Rst.EOF
If Rst!cracha = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 0) And MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, 0) <> "" Then
Rst!sdata = Format(Date, "dd-mm-yy")
Rst!shora = Format(time, "hh:mm:ss")
Exit Sub
Else
Rst.MoveNext
End If
Loop


Vlw!
USUARIO.EXCLUIDOS 11/04/2007 10:02:56
#211166
está dando algum erro ???

Qual o banco de dados que vc utiliza ?
DREAMSOFT 11/04/2007 10:05:53
#211168
Utilizo BD Access

Acontece o seguinte... errr... ou melhor dizendo, não acontece nada!
Simplesmente não dá erro algum, porém o registro não é gravado no BD.

O pior que uso o mesmo código em outro campo e dá tudo certo.
RICATOM 11/04/2007 11:02:16
#211178
Voce esta tentando inserir um novo registro??

rst.AddNew

Rst!sdata = Format(Date, "dd-mm-yy")
Rst!shora = Format(time, "hh:mm:ss")

rst.Update
DREAMSOFT 11/04/2007 11:14:53
#211184
Ainda não.
DREAMSOFT 11/04/2007 12:13:24
#211214
Ningúem?
USUARIO.EXCLUIDOS 11/04/2007 12:35:28
#211220 Resposta escolhida
Qual o tipo do campo que você está salvando é tipo texto (string)?
CLINS 11/04/2007 12:41:47
#211223
Esplique um pouco melhor o que está contecendo de errado e os passo que fazem que aconteça errado se possível. Ficará mais fácil de podermos ajudar se soubermos o que você pretende.
DREAMSOFT 11/04/2007 12:41:50
#211224
CHESKYS, o campo é tipo texto!
DREAMSOFT 11/04/2007 12:45:23
#211226
CLINS infelizmente não tenho muito o que explicar! Simplesmente ele faz "tudo certo", fiz tudo passo-a-passo (F8) e não ocorre erro.

Porém, os dados não são gravados no banco de dados!


Tabela: TabVisitantes
campos: sdata e shora
USUARIO.EXCLUIDOS 11/04/2007 12:48:03
#211227
experimenta colocar antes do 



   
Rst!sdata = Format(Date, "dd-mm-yy")
Rst!shora = Format(time, "hh:mm:ss")
[txt-color=#ff0000]Rst.Update[/txt-color]
exit sub
Página 1 de 2 [17 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar