4 svar · 236 visningar · startad av mattiasjarnhall
Hej!
Jag har två stycken funktioner på min sida.. en för att öppna en koppling till databasen:
Function openCon()
strCon = "driver={MySQL};Server=localhost;Db=DATABASEN;UID=XX;Pwd=XX;option=16384"
Set objTmp = Server.CreateObject("ADODB.Connection")
objTmp.Open(strCon)
Set openCon = objTmp
End Function
Samt en som stänger en databaskoppling:
Sub closeCon(ByRef objCon)
objCon.Close
Set objCon = Nothing
End Sub
Sedan använder jag dem på min sida genom att anropa dem såhär:
Set objCon = openCon()
' Do my stuf
closeCon(objCon)
NU TILL FRÅGAN..
Ser funktionerna rätt ut? Kommer databaskopplingarna öppnas och stängas korrekt?
Tex: koppling objTmp.. den stänger jag ju inte, för den "returnerar" jag ju.. så det är väl ok?
Och den jag stänger sen. som skickas som ByRef.. det är väl rätt? Eller stänger jag en "kopia"?
/MJ
Varför inte bygga en VB Script Class som handhar alla databas-requests såsom SELECT, INSERT, UPDATE, DELETE etc ....
Annars, så ser det korrekt ut
Det enda man skulle kunna "klaga på" är att funktionen openCon() borde ha connection-string som argument .... blir mer användbar då.
cya,
/PatrikB
Jag skulle ha funktionerna så här:
Sub openCon()
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open "driver={MySQL};Server=localhost;Db=DATABASEN;UID=XX;Pwd=XX;option=16384"
End Sub
Sub closeCon()
objCon.Close
Set objCon = Nothing
End Sub
Sedan för att öppna databasen skriver du bara:
openCon()
och för att stänga
closeCon()
måste man inte skriva call openCon()??
Nej, det behöver man inte. Fast du kan likaväl göra det. ;)
