Håber du kan bruge dette. Det er let redigerligt, samt rimeligt logisk, hvis jeg selv skal sige det... du lader lidt til at være en nybegynder, så det er jo altid godt med noget som man kan finde ud af.
Jeg har skrevet nogle kommentarer rundt omkring i koden, læs lige hele koden igennem, så vil du sikkert forstå hvad du skal ændre.
God fornøjelse.
<%
mode = Request("mode")
If mode = "" Then
'Du skal rette til_accessdatabase.asp til navnet den side du skal bruge det til har. Derudover skal du rette formularene,
'så de passer til dine kolonner.
%>
<form action="til_accessdatabase.asp?mode=2" method="POST" class="css">
<table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="100">1</td>
<td><input type="text" name="1"></td>
</tr>
<tr>
<td valign="top">2</td>
<td><textarea rows="11" name="2"></textarea></td>
</tr>
</table>
<input type="submit" name="B1" value="Tilføj til Accessdatabasen" class="input">
</form>
<%
End if
If mode = "2" Then
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../database/database.mdb") & ";UID=admin;PWD=;"
Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM din_tabel" 'Erstat "din_tabel" med tabellens navn.
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
rs.AddNew
rs("1") = Request.form("1") 'Ret til det samme navn som du har kaldt formularen, hvor der før stod 1.
rs("2") = Request.form("2") 'Ret til det samme navn som du har kaldt formularen, hvor der før stod 2.
rs.Update
Response.Redirect "til_accessdatabase.asp?mode=3" 'Ret til navnet på siden.
rs.Close
Set rs = Nothing
Conn.Close
set Conn = Nothing
End if
If mode = "3" Then
Response.Write "Dataen er nu tilføjet til databasen."
End if
%> Hej
Jeg programmere normalt i php, men er nu nødsaget til at bruge asp til dette projekt.
Sagen er den at jeg skal have lavet en formular der kan skrive til databasen.
Jeg har indtil nu lavet databasen samt formularen, og lidt af siden der skal skrive til databasen.
Desværre fungere det ikke endnu, så håber der er en venlig sjæl der kan hjælpe.
Formular!!!
<form action="indsaet.asp" method="post">
<input type="text" name="navn">
<input type="submit" value="Gem">
</form>
indsaet.asp
<%@ Language="VBScript" %>
<% Option Explicit %>
<html>
<head>
<title>Form to database</title>
</head>
<body>
<%
'declare your variables
Dim navn
Dim sConnString, connection, sSQL
'Receiving values from Form, assign the values entered to variables
name = Request.Form("navn")
'declare SQL statement that will query the database
sSQL = "INSERT into brugere (navn) values ('" & _
navn &"')"
'define the connection string, specify database
'driver and the location of database
sConnString="PROVIDER=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Server.MapPath("D:\\web\\wwwwwwww\\database.mdb")
'create an ADO connection object
Set adoCon = Server.CreateObject("ADODB.Connection")
'Open the connection to the database
adoCon.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("D:\\web\\jjjjjjj\\database.mdb")
'execute the SQL
connection.execute(sSQL)
response.write "The form information was inserted successfully."
'Done. Close the connection object
connection.Close
Set connection = Nothing
%>
</body>
</html>