Databaskopplingsfel ?

ASP

6 svar · 523 visningar · startad av Pellefant 18 juli 2002

PellefantMedlem sedan maj 20023 372 inlägg

Frågan18 juli 2002 07:26#1

<% Set Databas = Server.CreateObject("ADODB.Connection")

Databas.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("databasfil.mdb")

Set RecSet = Server.CreateObject("ADODB.Recordset") %>

Felmed:
Microsoft OLE DB Provider for ODBC Drivers fel '80004005'

[Microsoft][ODBC Driver Manager] Drivrutinens SQLAllocHandle på SQL_HANDLE_ENV misslyckades.

/vildaforum/page1.asp, rad 12

Felet får jag när jag kör på localhost med PWS.

Tack på förhand.

skymanMedlem sedan juli 20012 450 inlägg

18 juli 2002 07:28#2

Har du Access uppe?
Stäng det isf.

PellefantMedlem sedan maj 20023 372 inlägg

18 juli 2002 07:37#3

Det är stängt. :(

Tack ändå

PellefantMedlem sedan maj 20023 372 inlägg

18 juli 2002 09:18#4

Hm..nu får jag upp en popuruta först också: "unable to load odbctl32.dll", så förmodligen har jag rensat bort den i samband när jag fick virus för några veckor sedan, så koden ovan var nog ok ändå.

skymanMedlem sedan juli 20012 450 inlägg

18 juli 2002 09:20#5

Ja kanske det...
Jag har adrig sett detta fel:
Drivrutinens SQLAllocHandle på SQL_HANDLE_ENV misslyckades

OveRRidEMedlem sedan feb. 200112 078 inlägg

18 juli 2002 09:50#6

Har du Access uppe?
Stäng det isf.

Den enda gången man får ett sådant fel genom att ha Access öppet är när du har en tabell öppen och har valt att visa datatyperna istället för tabellstrukturen. Då skriker den till nåt skumt mess, inte om man bara har tabellen eller databasen öppen.

Jag skulle nog rekommendera en ominstallation av din MDAC. https://www.microsoft.com/data

EclipseMedlem sedan juli 20003 825 inlägg

18 juli 2002 12:31#7

Testa att byt koppling till databasen till OLEDB:

'## OPEN THE DATABASE
DIM Conn
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\Data\webadmin.mdb")

'## SELECT SERVER
'IF Request.ServerVariables("SERVER_NAME") = "192.168.1.44" THEN
'	' ## LOCAL SERVER
'	Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("\Data\webadmin.mdb")
'ELSE
'	' ## WEBSERVER
'	Conn.Open "webadmin", "", ""
'END IF