Function Item_Open()
Dim ObjConn
Dim ObjRec
Set ObjConn = CreateObject("ADODB.Connection")
With ObjConn
.Open("test")
end with
Set ObjRec = CreateObject("ADODB.Recordset")
With ObjRec
.ActivateConnection = ObjConn
.Open("Select * From RFC")
End with
If ObjRec.Recordcount > 0 then
end if
ObjRec.Close
ObjConn.Close
Exit Function
End Function
Function Item_Close()
Dim ObjConn
Dim ObjRec
Set ObjConn = CreateObject("ADODB.Connection")
With ObjConn
.Open("test")
end with
Set ObjRec = CreateObject("ADODB.Recordset")
With ObjRec
.Activation = ObjConn
.Open("Select * From RFC Where ")
.AddNew
.Update
End with
ObjRec.Close
ObjConn.Close
Exit Function
End Function
ik krijg de volgende errors:
Object doesn't support this property or method:
'ActivateConnection' Line 14
Object doesn't support this property or method:
'Activation' Line 38
Kan iemand mij vertellen wat er fout is en hoe ik dat kan oplossen?
Dim ObjConn
Dim ObjRec
Set ObjConn = CreateObject("ADODB.Connection")
With ObjConn
.Open("test")
end with
Set ObjRec = CreateObject("ADODB.Recordset")
With ObjRec
.ActivateConnection = ObjConn
.Open("Select * From RFC")
End with
If ObjRec.Recordcount > 0 then
end if
ObjRec.Close
ObjConn.Close
Exit Function
End Function
Function Item_Close()
Dim ObjConn
Dim ObjRec
Set ObjConn = CreateObject("ADODB.Connection")
With ObjConn
.Open("test")
end with
Set ObjRec = CreateObject("ADODB.Recordset")
With ObjRec
.Activation = ObjConn
.Open("Select * From RFC Where ")
.AddNew
.Update
End with
ObjRec.Close
ObjConn.Close
Exit Function
End Function
ik krijg de volgende errors:
Object doesn't support this property or method:
'ActivateConnection' Line 14
Object doesn't support this property or method:
'Activation' Line 38
Kan iemand mij vertellen wat er fout is en hoe ik dat kan oplossen?