databas function

4 svar · 269 visningar · startad av theguru 17 apr. 2002

theguruMedlem sedan juli 2000411 inlägg

Frågan17 apr. 2002 14:12#1

Nån som vet varför jag får problem med denna databasfunction

Function getDataAccess()
dim conn
set Conn = Server.CreateObject("ADODB.Connection")
Conn.ConnectionString = "Provider=SQLOLEDB; server=10.64.67.37; database=ramses; UId=ramsesowner;Pwd=ramses"
getDataAccess = Conn.Open

end function

Jag får följande fel när jag kör koden.

Set lrsGroups = Server.CreateObject("ADODB.Recordset")
set Conn = Server.CreateObject("ADODB.Connection")
conn = getDataAccess()

set lrsGroups = Conn.Execute("SELECT xxxx,xxxx FROM xxx order by xxxx")

Varför får jag följande fel

Microsoft VBScript runtime error '800a01a8'
Object required: ''

PatrikBMedlem sedan mars 20002 836 inlägg

17 apr. 2002 15:04#2

Eftersom det är ett object som ska returneras ska det se ut så här där själva "funktionen" returneras:

[b]Set[/b] getDataAccess = Conn.Open

cya,
PatrikB

Jörgen HPMedlem sedan feb. 20012 412 inlägg

17 apr. 2002 15:07#3

Varför skapar du set Conn = Server.CreateObject("ADODB.Connection") både i funktionen och utanför?

Du kan ta bort ovanstående rad utanför funktionen.

theguruMedlem sedan juli 2000411 inlägg

18 apr. 2002 05:26#4

Jag har nu tagit hänsyn till ovanstående inlägg men får fortfarande och nu får jag följande fel.

Object required: 'conn.Open'

Jag har funktionen i en include fil kan det ställa till det?

PatrikBMedlem sedan mars 20002 836 inlägg

18 apr. 2002 05:28#5

vart kommer conn.Open från??
om den ligger i en inkluderingsfile eller inte spelar ingen roll.

cya,
PatrikB