ERRO NO ADDNEW

USUARIO.EXCLUIDOS 25/05/2007 11:05:08
#218237
Galera estou migrando um projeto de access com código vba para vb no acces eu usava dao e no vb estou usando ado

existem algumas diferenças entre vba e vb

alguém pode me ajudar estou começando agora no vb!!!

esta rotina abaixo esta dando um erro

O conjunto de registros atual não oferece suporte para atualização isso pode ser uma limitação do provedor ou do tipo de bloqueio selecionado

desde ja agradeço

Public Sub Sair()
Dim db As ADODB.Connection
Dim rs As ADODB.Recordset
Set db = New ADODB.Connection
Set rs = New ADODB.Recordset

db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Saca.mdb"
rs.Open "Select * from tbl_Current", db, adOpenDynamic

    If MsgBox("Deseja realmente sair do sistema", vbYesNo, "Atenção") = vbYes Then
        rs.AddNew
        rs.Fields("saida") = Now
        rs.Update
        Unload Me
        rs.Close
        Set rs = Nothing
    End If
End Sub
USUARIO.EXCLUIDOS 25/05/2007 11:12:48
#218240
'na verdade com ado nunca usei esse addnew, acho que vc deve usar assim:

Dim db As ADODB.Connection
Set db = New ADODB.Connection

db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path
db.execute "insert into tabela(saida) values (" & Now & ")"
End Sub
USUARIO.EXCLUIDOS 25/05/2007 11:15:18
#218242
Galera valeu fuçando aqui eu concegui fica assim

Dim db As ADODB.Connection
Dim rs As ADODB.Recordset
Set db = New ADODB.Connection
Set rs = New ADODB.Recordset

db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Saca.mdb"
rs.Open "Select * from tbl_Current", db, adOpenDynamic, [txt-color=#ffff00]adLockOptimistic[/txt-color]
Tópico encerrado , respostas não são mais permitidas
Voltar