ATUALIZAR REGISTRO

ELMO01 22/03/2005 14:23:32
#74307
OI PESSOAL

Estou tentando atualizar um banco de dados de senha na rede, mas não consigo atulizar a senha e nem a data de vencimento desta senha dentro do banco de dados. Como faço para fazer a devida atualização??

Estou usando o Adodc.

Estes são as linhas de programa que estou usando para a atualização

Dim RS As New ADODB.Recordset

RS.Open "Select * from VbSenha", StrConexao, adOpenStatic, adLockOptimistic

TxtNova.Enabled = True
TxtConf.Enabled = True
Usuario = RS.Fields("USUARIO_SEN")
If Usuario = NewUsua Then
RS.EditMode
RS.Fields("SENHAS1_SEN") = TxtNova ' Nova Senha
RS.Fields("DTUSUAR_SEN") = Date ' Data de Cadastramento desta senha
RS.Update
Endif

Obs: Os usuários já estão previamente cadastrados.

Se alguem puder me ajudar, ficarei mt agradecido.

Obrigado ,
USUARIO.EXCLUIDOS 22/03/2005 14:25:21
#74309
Troca o adOpenStatic por adOpenKeyset
ELMO01 22/03/2005 17:38:33
#74357
oi Neo,

Fiz o q vc me sugerir - só que continua dando erro INVALID USE OF PROPERTY, como posso tirar esse erro.

linha do erro

RS.EditMode -> nesta linha, não aceita RS.Edit, então o q devo colocar aqui?

RS.Fields("SENHAS1_SEN") = TxtNova
RS.Fields("DTUSUAR_SEN") = Date
RS.Update

Obrigado,
CLEVERTON 22/03/2005 18:44:07
#74374
ADO não usa Edit

ADO usa somente Update

é tipo usar o comando Execute do SQL
USUARIO.EXCLUIDOS 22/03/2005 18:46:43
#74375 Resposta escolhida
Tenta assim o:

Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim sql As String


'Abre a conexão
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\CAMINHODOBANCO;"

sql = "Select * from VBsenha"

rst.Open sql, cnn, adOpenKeyset, adLockOptimistic, adCmdText
rst.movefirst

TxtNova.Enabled = True 
TxtConf.Enabled = True 
Usuario = rst![USUARIO_SEN] 
If Usuario = NewUsua Then     
rst.Close    
 Set rst = Nothing
sql = "Update Vbsenha Set SENHAS1_SEN = " & TxtNova & ",DTUSUAR_SEN=" & Date 
rst.Open sql, cnn, adOpenKeyset, adLockOptimistic, adCmdText
Msgbox "Registro Atualizado"
Rst.Close
Cnn.Close
Rst = Nothing
Cnn = Nothing
Endif

é apenas uma adaptação ao seu codigo, mas notei alguns pontos estranhos, como o nome que você usa nos campos (SENHAS1_SEN E DTUSUAR_SEN) , tente usar nomes simples... facilita a vida na hora da consulta...
Outra coisa..
Se o usuário for NEWUSUAR.... ele atualiza a senha??
Não seria o contrário...se é novo usuário... ele criar LOGINS... se é antigo ele atualiza.....
é só
Tópico encerrado , respostas não são mais permitidas
Voltar