3 svar · 509 visningar · startad av voigtann1
Jag försöker skapa klasser som ska göra "mina" koder lite lättare... jag tänkte mig att göra en databas klass med Getrows funktion och även db källor mm... men om jag har en klass med medlem "data" info dvs jag måste in i en databas för att få reda på klassen "members" ... hur skulle ni göra då?
Hmmm, fattar inte frågan helt men vi provar i alla fall.
Dim oClass
Set oClass = New MyClass
oClass.SetData
Response.Write oClass.nValue
Set oClass = Nothing
Class MyClass
Dim nValue
Sub SetData ()
'Kod för att hämta från db
nValue = RS("nValue")
'Kod för att hämta från db
End Sub
End Class
Hoppas detta kan hjälpa /PG
Tror du missuppfattade mig... ska vi se:
set cDB = new DBinfo
cDB.dbPath = "databasen.mdb"
set cUser = new User
cUser = 1
men i User classen så finns det "krav" att den ska hitta någon databas och det är just det cDB.dbPath gör...
Klasser är inte så särskilt kraftfulla i VBScript, men visst kan man ha nytta av dem. En tänkbar lösning skulle vara så här:
set cDB = new DBinfo
cDB.dbPath = "databasen.mdb"
set cUser = new User
set cUser.DBInfo=cDB