OLD DAO project

User avatar
sal21
PlatinumLounger
Posts: 4402
Joined: 26 Apr 2010, 17:36

OLD DAO project

Post by sal21 »

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
You do not have the required permissions to view the files attached to this post.