Har en databaskoppling som ser ut så här:
Option Explicit
Public objConn As Object
'Connectionstring to the db
'----------------------------------------------------------------------------------
Private Property Get ConnectionString()
ConnectionString = "Driver={Mysql};Server=10.0.0.1;Database=aShop;UID=;PWD="
End Property
'Destroy the object
'----------------------------------------------------------------------------------
Public Sub DestroyObject(ByRef obConnAs ADODB.Connection)
If IsObject(obConn) Then
obConn.Close
Set obConn= Nothing
End If
End Sub
'Open the DB
'----------------------------------------------------------------------------------
Public Function GetConn() As ADODB.Connection
Dim ojConnAs ADODB.Connection
Set ojConn= CreateObject("ADODB.Connection")
ojConn.Open ConnectionString
Set GetConn = ojConn
End Function
När jag sen ska koppla upp mig mot DB:n skriver jag i t ex en function:
SQL="..."
Set objConn = GetConn()
Set RS = objConn.Execute(SQL)
...
DestroyObject (objConn)
Men jag får bara "Object required" när jag kallar på funktionen med SQL-satsen, vad gör jag fel???