Hej! jag har precis fått hjälp med att skriva ut data från databaser... okej tack! JAg vet inte vad du vill åstakomma, men din översta bit borde väll bli så här:Spara data till databas
Nästa steg är ju att kunna skriva till dom ochså.
Set conMitt = Server.CreateObject("ADODB.Connection")
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.MapPath("databas.mdb")
Set rsMitt = Server.CreateObject("ADODB.Recordset")
SQLstr = "SELECT * FROM namn_o_osikter"
rsMitt.Open SQLstr, connection
Do until rsMitt.EOF
Response.write rsMitt("fornamn")& "<br>"
rsMitt.Movenext
Loop
rsMitt.close
Det där är min kod för att skriva ut vad som finns i databasen.
Jag har gjort en sträng för att skriva till databasen som ser ut såhär:
Connect.Execute("Insert into namn_o_osikter (fornamn,efternamn,osikter) values('" & fornamn & "','" & efternamn &"','" & osikter &"')")
Men nu undrar jag vad det är jag ska skriva före och efter den strängen för att den ska fungera som den ska! Tack på förhand
//TomasSv: Spara data till databas
Set conMitt = Server.CreateObject("ADODB.Connection")
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.MapPath("databas.mdb")
Connect.Execute("Insert into namn_o_osikter (fornamn,efternamn,osikter) values('" & fornamn & "','" & efternamn &"','" & osikter &"')")
Connect.close()
Borde det väl bli? Glöm inte att stänga kopplingen i ditt föregående exempel också.
Sv:Spara data till databas
hmm vilken ska jag stänga då och hur ska jag göra?
tyvärr får jag bara upp ett felmedelande när jag lägger till koden för att skriva till databasen.
såhär ser hela min kod ut:
<% @Language = VBScript %>
<% option explicit %>
<%
Set conMitt = Server.CreateObject("ADODB.Connection")
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.MapPath("databas.mdb")
Connect.Execute("Insert into namn_o_osikter (fornamn,efternamn,osikter) values('" & fornamn & "','" & efternamn &"','" & osikter &"')")
Connect.close()
%>
<%
Dim fornamn, efternamn, osikter
Dim conMitt, rsMitt, connection, SQLstr, connect
%>
<%
fornamn = Request.Form("fnamn")
efternamn = Request.Form("enamn")
osikter = Request.Form("osikt")
%>
<html>
<head>
<title>Tack för din medverkan! =)</title>
<link rel="stylesheet" href="stil.css">
</head>
<body>
<div class="inledande_text">
Tack för din medverkan! Här nedan följer den informationen du matade in!
</div>
<div>
<table>
<tr>
<td width="150px">Förnamn:
<td><% response.write fornamn %>
</tr>
<tr>
<td>Efternamn:
<td><% response.write efternamn %>
</tr>
<tr>
<td valign="top">Dina åsikter:
<td>
<div class="inledande_text">
<% response.write osikter %>
</div>
</tr>
<tr>
<td>
<%
Set conMitt = Server.CreateObject("ADODB.Connection")
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.MapPath("databas.mdb")
Set rsMitt = Server.CreateObject("ADODB.Recordset")
SQLstr = "SELECT * FROM namn_o_osikter"
rsMitt.Open SQLstr, connection
Do until rsMitt.EOF
Response.write rsMitt("fornamn")& "<br>"
rsMitt.Movenext
Loop
rsMitt.close
%>
<td>
</tr>
</table>
</div>
</body>
</html>
har jag misstförståt något?
tack på förhand!
//tomasSv: Spara data till databas
<% @Language = VBScript
option explicit
Dim fornamn, efternamn, osikter
Dim connection
fornamn = Request.Form("fnamn")
efternamn = Request.Form("enamn")
osikter = Request.Form("osikt")
Set Connection = Server.CreateObject("ADODB.Connection")
Connection "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.MapPath("databas.mdb")
Connection .Execute("Insert into namn_o_osikter (fornamn,efternamn,osikter) values('" & fornamn & "','" & efternamn &"','" & osikter &"')")
Connection .close()
%>
Försök att ha med så mycket som möjligt inom dina asp-taggar, dvs inte öppna och stänga för att öppna dem igen.
Du hadde skrivet fel på din connection, stavning är viktig, annars så kommer du fel.