Löjligt enkel effektivisering men jag ser den inte...

2 svar · 157 visningar · startad av Lukaspojken 23 juli 2001

LukaspojkenMedlem sedan maj 20011 312 inlägg

Frågan23 juli 2001 14:48#1

Så här ser koden ut:

IF RecSet.EOF THEN

		RecSet.Close
		Set RecSet = nothing
		Connect.Close
		Set Connect = nothing
	ELSE
		arrRecords = RecSet.GetRows()

		RecSet.Close
		Set RecSet = nothing
		Connect.Close
		Set Connect = nothing

		citatText = arrRecords(0, 0)
		citatNamn = arrRecords(1, 0)

	End if

Jag vill att databasen ska stängas så fort som möjligt och undvika att skriva samma stängning av objekt på två ställen...nån?

------------------
Alltid lär man sig något nytt varje dag...

emissionMedlem sedan dec. 19996 721 inlägg

23 juli 2001 14:52#2

IF not RecSet.EOF THEN
arrRecords = RecSet.GetRows()

citatText = arrRecords(0, 0)
citatNamn = arrRecords(1, 0)

End if
RecSet.Close
Set RecSet = nothing
Connect.Close
Set Connect = nothing

LarsGMedlem sedan dec. 200012 464 inlägg

23 juli 2001 14:54#3

Jag skulle nog ha skrivit så här

IF not RecSet.EOF THEN
arrRecords = RecSet.GetRows()
citatText = arrRecords(0, 0)
citatNamn = arrRecords(1, 0)
End if

RecSet.Close
Set RecSet = nothing
Connect.Close
Set Connect = nothing

------------------
essentitia preter non sans multiplicandum