13 svar · 142 visningar · startad av Hazze
Håller på att sätta samman en liten funktion så att medlemmerna kan uppdatera sin användarprofil. Problemet är när jag ska länka till själva sidan. Använder den här koden:
<% Set Databas2 = Server.CreateObject("ADODB.Connection")
MdbFilePath2 = Server.MapPath("medlemmar.mdb")
Databas2.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath2 & ";"
SQL = "Select * From members Where login = '" & session("namn") & "'"
Set rsAndra = Databas.Execute(SQL)
Response.Write "<a href='installningar.asp'><img src='img/menu/left_5.JPG' border='0' width='136' height='8'></a><br>"%>
Det fungerar på enstaka sidor men på de andra sidorna får jag följande vidriga felmeddelande:
Microsoft VBScript runtime error '800a01a8'
Object required: ''
Någon? 
<% Set Databas2 = Server.CreateObject("ADODB.Connection")
MdbFilePath2 = Server.MapPath("medlemmar.mdb")
Databas2.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath2 & ";"
SQL = "Select * From members Where login = '" & session("namn") & "'"
[b]Set rsAndra = Databas2.Execute(SQL)[/b]
Response.Write "<a href='installningar.asp'><img src='img/menu/left_5.JPG' border='0' width='136' height='8'></a><br>"%>
databas2 ska det väl vara?
Det ser ut som om du bara öppnat Databas2. Antagligen den ända? 
<%
Set Databas2 = Server.CreateObject("ADODB.Connection")
MdbFilePath2 = Server.MapPath("medlemmar.mdb")
Databas2.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath2 & ";"
SQL = "Select * From members Where login = '" & session("namn") & "'"
Set rsAndra = [b]Databas2.Execute(SQL)[/b]
Response.Write "<a href='installningar.asp'><img src='img/menu/left_5.JPG' border='0' width='136' height='8'></a><br>"
%>
Tack för hjälpen. Borde man ha upptäckt själv 
Slänger in ett litet problem till här:
Kod:
<%
Set Databas = Server.CreateObject("ADODB.Connection")
Set rsAndra = Server.CreateObject("ADODB.Recordset")
MdbFilePath = Server.MapPath("medlemmar.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"
SQL = "select * from members where login =" & session("namn")
rsAndra.Open SQL, Databas, 1, 2
If rsAndra.EOF then %>
Felmeddelande:
Microsoft OLE DB Provider for ODBC Drivers error '80040e10'
[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.
Lite fel med fnuttarna där bara
<%
Set Databas = Server.CreateObject("ADODB.Connection")
Set rsAndra = Server.CreateObject("ADODB.Recordset")
MdbFilePath = Server.MapPath("medlemmar.mdb")
Databas.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ= " & MdbFilePath & ";"
SQL = "select * from members where login ='" & session("namn") &"' "
rsAndra.Open SQL, Databas, 1, 2
If rsAndra.EOF then
%>
Vilken datatyp har kolumnen login?
Det kanske skall vara
SQL = "select * from members where login ='" & session("namn") & "'"
(som i ditt första inlägg).
Fungerar som det ska nu. Danke!
Kan fylla på med ytterligare en liten undran i min frågetråd
Håller på med en omröstning. Koden ligger i en includefil och ser ut såhär:
<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver *.mdb)};dbq=d:\clients\ho\ho\ho\snabbfraga.mdb" Set RecordSet = Server.CreateObject("ADODB.Recordset")
Visa = "SELECT Fraga FROM fraga" RecordSet.Open Visa, Connect, adOpenStatic, adLockOptimistic %>
Felmeddelandet lyder:
ADODB.Recordset error '800a0bb9'
Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.
Precis som i föregående fråga så fungerar omröstningen bara på vissa sidor. Någon?
Har du inkluderat adovbs.inc eller på annat sätt definierat konstanterna adOpenStatic?
Visa = "SELECT Fraga FROM fraga" RecordSet.Open Visa, Connect, adOpenStatic, adLockOptimistic %>
Det går inte att ha flera statement på samma rad så där, i så fall måste du ha ett kolon mellan dem.
Hallå på er och tack för era snabba svar
Har gjort de förändringar ni föreslagit, dock utan resultat. Samma felmeddelande.
Saknas en parentes här
Connect.Open "driver={Microsoft Access Driver [b]([/b]*.mdb)};dbq=d:\clients\ho\ho\ho\snabbfraga.mdb"
Struntar helt enkelt i den här omröstningen