13 svar · 266 visningar · startad av mackz
Ska lägga mina mdb i en mapp i c:\db\test.mdb
Har fått detta tips...
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\db\test.mdb"
Set objCnn = Server.CreateObject("ADODB.Connection")
objCnn.Open strConnString
Men får helt enkelt ingen kontakt med min databas...
Vad får du för felmeddelande?
Feltyp:
Körningsfel i Microsoft VBScript (0x800A01A8)
Objekt krävs.: ''
Ja, då är det ju iallafall inte den koden vi tittar på nu som det är fel på. Har du mer kod, kanske?
Så här ser det ut:
<head>
<link href="msnstyle.css" rel="stylesheet" type="text/css">
<title></title>
</head>
<body bgcolor="#55BEFD" style="border: 1 solid #000000"><br>
<p align="center" style="background-color: #000080; border: 1 solid #000080"><font size="4" color="#FFFFFF">Vinkelboda
Movie & Music Members</font></p>
<p align="center"><font size="2" face="Times New Roman" color="#FFFFFF">
<%
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\db\test.mdb"
Set Connect = Server.CreateObject("ADODB.Connection")
objCnn.Open strConnString
%>
<%
SQL = "SELECT * From test WHERE niva IN ('1','2','3','4') ORDER BY anvnamn ASC"
Set RecSet = Connect.Execute(SQL)
%>
</font>
</p>
<p align="center">
</p>
<div align="center">
<table width="288" border="0" style="border: 1px solid #000000">
<tr>
<td width="75"><b><u><font face="Verdana" size="1" color="#FF0000">Name:</font></u></b></td>
<td width="149"><b><u><font face="Verdana" size="1" color="#FF0000">Mail:</font></u></b></td>
</tr>
<% Do Until RecSet.EOF %>
<tr>
<td width="74"><font face="Verdana" color="#000000" size="1"> <%=RecSet("anvnamn")%></font></td>
<td width="149"><font face="Verdana" color="#000000" size="1"><%=RecSet("email")%> </font></td>
</tr>
<%
RecSet.MoveNext
Loop
Recset.Close
Connect.Close
Set Recset = Nothing
Set Connect = Nothing
%>
</table>
</div>
Redigerade [kod]-taggarna. ;) //OveRRidE, moderator
Ok. Det var ett snyggt försök till en läsbar kod, måste jag säga. Men det är nog bättre ifall du lägger hela ditt kodstycke (med HTML och allt) i samma [ kod ]-tagg. ;)
För övrigt; denna rad
Set RecSet = Connect.Execute(SQL)
skall vara
Set RecSet = objCnn.Execute(SQL)
<head>
<link href="msnstyle.css" rel="stylesheet" type="text/css">
<title></title>
</head>
<body bgcolor="#55BEFD" style="border: 1 solid #000000"><br>
<p align="center" style="background-color: #000080; border: 1 solid #000080"><font size="4" color="#FFFFFF">Vinkelboda
Movie & Music Members</font></p>
<p align="center"><font size="2" face="Times New Roman" color="#FFFFFF">
<%
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\db\test.mdb"
Set Connect = Server.CreateObject("ADODB.Connection")
objCnn.Open strConnString
%>
<%
SQL = "SELECT * From test WHERE niva IN ('1','2','3','4') ORDER BY anvnamn ASC"
RecSet = objCnn.Execute(SQL)
%>
</font>
</p>
<p align="center">
</p>
<div align="center">
<table width="288" border="0" style="border: 1px solid #000000">
<tr>
<td width="75"><b><u><font face="Verdana" size="1" color="#FF0000">Name:</font></u></b></td>
<td width="149"><b><u><font face="Verdana" size="1" color="#FF0000">Mail:</font></u></b></td>
</tr>
<% Do Until RecSet.EOF %>
<tr>
<td width="74"><font face="Verdana" color="#000000" size="1"> <%=RecSet("anvnamn")%></font></td>
<td width="149"><font face="Verdana" color="#000000" size="1"><%=RecSet("email")%> </font></td>
</tr>
<%
RecSet.MoveNext
Loop
Recset.Close
Connect.Close
Set Recset = Nothing
Set Connect = Nothing
%>
</table>
</div>
mackz skrev:
Kan felet sitta här?
objCnn.Open strConnString
Nej, inte vad jag kan se. Rätta till raden i din kod, som jag visade i mitt tidigare inlägg. Testa det och visa resultatet.
Också glömmer vi inte att använda Set, eftersom det är ett objekt. ;)
[b]Set[/b] RecSet = objCnn.Execute(SQL)
Klart men ingen skillnad... Får ingen kontakt.
Feltyp:
Körningsfel i Microsoft VBScript (0x800A01A8)
Objekt krävs.: ''
/Vinkelboda/members.asp, line 13
Ok. Nu har du döpt om objCnn till Connect igen. Eftersom du envisas med att röra till det för dig hela tiden så får du hela koden nu istället.
Kopiera och klistra in. Ändra inget.
<head>
<link href="msnstyle.css" rel="stylesheet" type="text/css">
<title></title>
</head>
<body bgcolor="#55BEFD" style="border: 1 solid #000000"><br>
<p align="center" style="background-color: #000080; border: 1 solid #000080"><font size="4" color="#FFFFFF">Vinkelboda
Movie & Music Members</font></p>
<p align="center"><font size="2" face="Times New Roman" color="#FFFFFF">
<%
strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\db\test.mdb"
Set objCnn= Server.CreateObject("ADODB.Connection")
objCnn.Open strConnString
%>
<%
SQL = "SELECT * From test WHERE niva IN ('1','2','3','4') ORDER BY anvnamn ASC"
Set RecSet = objCnn.Execute(SQL)
%>
</font>
</p>
<p align="center">
</p>
<div align="center">
<table width="288" border="0" style="border: 1px solid #000000">
<tr>
<td width="75"><b><u><font face="Verdana" size="1" color="#FF0000">Name:</font></u></b></td>
<td width="149"><b><u><font face="Verdana" size="1" color="#FF0000">Mail:</font></u></b></td>
</tr>
<% Do Until RecSet.EOF %>
<tr>
<td width="74"><font face="Verdana" color="#000000" size="1"> <%=RecSet("anvnamn")%></font></td>
<td width="149"><font face="Verdana" color="#000000" size="1"><%=RecSet("email")%> </font></td>
</tr>
<%
RecSet.MoveNext
Loop
Recset.Close
objCnn.Close
Set Recset = Nothing
Set objCnn = Nothing
%>
</table>
</div>
Du är en ängel Ove.. Jag gör så gott jag kan men måste jobba hårdare på det här helt klart.
mvh Mackz
Nej, ängel är jag ingen, det skall gudarna veta. ;) Men tack ändå. :r
Dessutom, jag markerade mitt inlägg som det slutgiltiga, eftersom det var det som var lösningen. :)