General database klasse - i VB

Noget i stil med?:

function dbopen()
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("FILENAME.mdb") ' ret filnavnet til
Conn.Open DSN
end function

function dbclose()
Conn.Close
set rs = nothing
Set Conn = Nothing
end function

function SqlNonQuery(strSQL)
Conn.execute(strSQL)
end function

' Eksempel på brug:
dbopen()
SqlNonQuery("update tabelnavn set kolonne = 'værdi' wheren noget = andet"
dbclose()

PS: jeg har lige tilføjet funktionen "SqlNonQuery", så den er ikke testet.
Funktionerne "dbopen" og "dbclose" er testet, og virker fint.

/theSurfer

En "komprimeret" "SqlNonQuery":

function SqlNonQuery(strSQL)
dbopen()
Conn.execute(strSQL)
dbclose()
end function

Eksempel:
SqlNonQuery("update tabelnavn set kolonne = 'værdi' where noget = andet")

PS: der manglede en slut-parentes i tidligere indlæg, ved funktionen "SqlNonQuery"..

/theSurfer

Stærkt det vil jeg lige prøve når jeg kommer hjem. Hvad med et recordset - findes der en smart måde at gøre det på?

På forhånd tak

Hey, havde du evt et eksempel på hvordan man kunne lave lave det med recordset? Så smider jeg lige nogle flere point i puljen..... ;-)

Hvad/hvordan mener?

/theSurfer

Jeg fandt ud af det. Jeg lavede bare en funktion som retunerede et recordset ;-)

....Men tak for din hjælp, det var en god hjælp på vejen....

Ligger du lige et svar....

:-)

/theSurfer