funkar fortf inte

6 svar · 135 visningar · startad av prls 21 jan. 2001

prlsMedlem sedan jan. 2000352 inlägg

Frågan21 jan. 2001 20:52#1

Hej, för enkelhetens skull börjar jag på nytt:
Jag kör alltså win ME, har installerat PWS fr option pack 5. Eftersom jag inte fick min databaskoppling med ASP att funka, har jag avinstallerat PWS, laddat ner på nytt och installerat på nytt.
I mappen C.\inetpub\wwwroot\asp har jag 3 filer:
- databas.mdb
- adovbs.inc
- default.asp
Min default.asp sida ser ut så här:

<HTML>

<% Set Connect = Server.CreateObject ("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb) ;dbq=c:\inetpub\wwwroot\asp\databas.mdb"

Ser RecSet = Server.CreateObject ("ADODB.Recordset")

Hamta = "SELECT * FROM tabell1 WHERE ID = '1' "
RecSet.Open Hamta, Connect, adOpenStatic, adLockOptimistic %>

<% =RecSet("Namn") %> <% =RecSet("Efternamn") %><BR>

<% RecSet.Close %>
<% Connect.Close %>

</HTML>
När jag kör lokalt får jag följande fel meddelande:
Microsoft OLE DB Service Components error '80040e73'

Format of the initialization string does not conform to the OLE DB specification.

/asp/Default.asp, line 6

tilläggas kan (vet inte om det betyder nåt) om jag kör den medföljand global.asa får jag beskedet att jag inte är autoriserad att se filen???

Jag använder Access 2k - har försökt konvertera till tidigare ver. utan förändring.
- kan det vara så att jag saknar ngn komponent eftersom jag har win ME?

------------------
/Peter

prlsMedlem sedan jan. 2000352 inlägg

21 jan. 2001 20:55#2

kan jag behöva ändra nåt i kontrollpanel/ODBC data source?

------------------
/Peter

RossifumiMedlem sedan okt. 20001 558 inlägg

21 jan. 2001 22:48#3

Vet inte ifall du bara skrev fel nu med det står:

Ser RecSet = Server.CreateObject

istället för

Set RecSet = Server.CreateObject

Sen skall du inte a '-fnutt runt tal i din SQL-sats (om du använder tal i access).

Testa denna kod annars:

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/asp/data.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
%>

------------------
"I have to return some video tapes" - Patrick Bateman, American Psycho

[Redigerat av Rossifumi den 21 jan 2001]

prlsMedlem sedan jan. 2000352 inlägg

21 jan. 2001 22:59#4

när jag ersatte med ditt förslag fick jag fel utskriften:
Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver] Could not find file '(unknown)'.

/asp/Default.asp, line 7

------------------
/Peter

PatrikBMedlem sedan mars 20002 836 inlägg

21 jan. 2001 23:05#5

Hello,
det blev nog lite fel i connection stringen efter Connect.Open

Ändra till:

Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=c:\inetpub\wwwroot\asp\databas.mdb"

eller denna:

Connect.Open "provider=Microsoft.Jet.OLEDB.4.0;" & _
Data Source=c:\inetpub\wwwroot\asp\databas.mdb"

som är ett klart bättre sätt att accessa databasen

cya,

------------------
Private Function OutPut(ByRef sString)
OutPut = "Who gives ..." & sString
End Function

[Redigerat av PatrikB den 22 jan 2001]

prlsMedlem sedan jan. 2000352 inlägg

21 jan. 2001 23:10#6

Patrik, menade Du att hela "sidan" skall se ut så här:

<HTML>

<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "provider=Microsoft.Jet.OLEDB.4.0;" & _
Data Source=c:\inetpub\wwwroot\asp\databas.mdb"

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

Hamta = "SELECT * FROM tabell1 WHERE ID = 1"
RecSet.Open Hamta, Connect, adOpenStatic, adLockOptimistic %>

<% =RecSet("Namn") %> <% =RecSet("Efternamn") %><BR>

<% RecSet.Close %>
<% Connect.Close %>

</HTML>

Detta funkar tyvärr inte heller. Fel messet jag får:
Microsoft VBScript compilation error '800a0401'

Expected end of statement

/asp/Default.asp, line 8

Data Source=c:\inetpub\wwwroot\asp\databas.mdb"

------------------
/Peter

prlsMedlem sedan jan. 2000352 inlägg

21 jan. 2001 23:34#7

ÄNTLIGEN funkar det!!!!
koden som ger det svar jag ville ha:

<HTML>

<% Set Connect = Server.CreateObject ("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)}; dbq=c:\inetpub\wwwroot\asp\databas.mdb"

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

Hamta = "SELECT * FROM tabell1 WHERE ID = 1"
RecSet.Open Hamta, Connect, adOpenStatic, adLockOptimistic %>

<% =RecSet ("Namn") %> <% =RecSet ("Efternamn") %><BR>

<% RecSet.Close %>
<% Connect.Close %>

</HTML>

ngra kommentarer?

------------------
/Peter