Fick den här koden av PatrikB för ett bra tag sen, som exempel på hur man hämtar info från en databas i en komponent!
Private mstrConnString as string
Public Property Let ConnectionString(ByVal sConnString as string)
mstrConnString = sConnString
End Property
Private Property Get ConnectionString
ConnectionString = mstrConnString
End Property
Public Function ListProducts() As Variant
Dim objRSlist as recordset
Dim strSQLlist as string
strSQLlist = "SELECT * FROM Products"
Set objRSlist = GetConn.Execute(sSQL)
If Not objRSlist.EOF Then
ListProd = objRSlist.GetRows()
End If
Set objRSlist = Nothing
End Function
Private Function GetConn()
Dim objConn as adodb.connection
Set objConn = CreateObject("ADODB.Connection")
objConn.Open ConnectionString
Set GetConn = objConn
End Function
Den vill inte alls funka :(
Har förstått(tror jag) att en av dom här måste bytas namn på:
Public Property Let ConnectionString
Private Property Get ConnectionString
men när jag gör får jag upp i IE:
Anropet till Server.CreateObject misslyckades när behörigheterna kontrollerades. Ingen åtkomst medges till detta objekt.