Sub TEST1()
Dim Rs As DAO.Recordset, db2 As DAO.Database, sConnect As String
'Set ws = CreateWorkspace("ODBCWorkspace", "", "", dbUseODBC)
sConnect = "PROVIDER = MSDASQL;driver={SQL Server};Server=12.34.567.8;Database=keystore2;UID=sa;PWD=tttttttttt;OPTION=3;"
Set db2 = OpenDatabase("", False, False, sConnect)
' Rs.Close
Set Rs = db2.OpenRecordset("SELECT * FROM CLIENTI", dbOpenDynaset)
'Rs.MoveFirst
'Rs.MoveLast
Rs.FindFirst "CODICE ='100'"
Rs.Edit
Rs("RAG_SOC") = "PIPPO"
Rs.Update '->>>>>>>> ERROR
End Sub
OLD DAO project
-
- PlatinumLounger
- Posts: 4364
- Joined: 26 Apr 2010, 17:36
OLD DAO project
You do not have the required permissions to view the files attached to this post.