Indsæt i database

Prøv med:

<%
set conn = server.createobject("ADODB.connection")

conn.Open "DBQ=c:\iissamples\anmeld\forum.mdb;DefaultDir=c:\iissamples\anmeld\;Driver={Microsoft Access Driver (*.mdb)}"

SQL = "INSERT INTO forum ( forfatter, email, besked) " & "VALUES ('" & Request.Form("forfatter") & "', '" & Request.Form("email") & "', '" & Request.Form("besked")& "');"

set RS = conn.execute( SQL )

Rs.Close
Set Rs = Nothing
%>

Grunden til det ikke virker er, at du blander 2 måder at gøre det på, sammen.
Du starter med en SQL og bruger bagefter ADO. Hold dig til en ting ad gangen. Svaret fra Oliver baserer sig på SQL, og jeg vedlægger en løsning med brug af ADO.

set conn = server.createobject("ADODB.connection")
conn.Open "DBQ=c:\iissamples\anmeld\forum.mdb;DefaultDir=c:\iissamples\anmeld\;Driver={Microsoft Access Driver (*.mdb)}"

RS.Open "Forum",Conn,3,3
RS.AddNew

Rs("forfatter") = Request.Form("forfatter")
Rs("email") = Request.Form("email")
Rs("besked") = Request.Form("besked")

RS.Update
RS.Close

Set Rs = Nothing

Jeg er ked af at sige det, men jeg får fejlmeddelelse når jeg udvider Olivers eksempel med felterne overskrift og date

Rækkefølgen er: overskrift, forfatter, email, besked, date

Men jeg får følgende fejl:
Der er en syntaksfejl i INSERT INTO-sætningen

Kode: SQL = "INSERT INTO forum ( overskrift, forfatter, email, besked, date) " & "VALUES ('" & Request.Form("overskrift") & "', '" & Request.Form("forfatter") & "', '" & Request.Form("email") & "', '" & Request.Form("besked") & "', '" & Request.Form("date")& "');"

har du prøvet at sætte # tegn omkring date feltet

Feltet date er hermed droppet RS("date") = NOW() er bedre.

Jeg prøver igen ;-) Jeg får stadigvæk denne besked når jeg laver et eller andet om i INSERT INTO-sætningen:

Der er en syntaksfejl i INSERT INTO-sætningen

Det var ikke sådn at i gad at bruge et ½ minut på at komme med en løsning ? MANGE TAK

Prøve denne funktion

function get_date(byref dv)
  if isdate(dv) then
    dv=cdate(dv)
    dv=day(dv) &"/"& monthname(month(dv),-1) &"/"& year(dv)
  else
    get_date=""
  end if
  if application("dbms")="Access" then
    get_date="#" & get_date & "#"
  else
    get_date=" ' " & get_date & " ' "
  end if
end function

Hallo nope, har du selv løst problemet?

Ja ;-)

Hej Nope!
Kan du ikke fortælle hvordan du har løst
problemet ? Kan man nøjes med at indsætte nogle parameter, og ikke alle, fx lade autonummeringsfeltet være for sig selv ?

Mit problem er også som Nopes nedenstående:

set conntemp=server.createobject("adodb.connection")
conntemp.connectiontimeout = 120
conntemp.commandtimeout = 120
' DSNless connection to Access Database
cnpath="DBQ=" & server.mappath("kunde.mdb")

conntemp.open "driver={microsoft access driver (*.mdb)}; " & cnpath


strSQLstatement = "INSERT INTO * Tabel (Navn,Adresse,By,Telefon,Email) VALUES (" & request.querystring("navnmy") & ","& request.querystring("adressemy")& "," & request.querystring("myby") & ","& request.querystring("mytelefon")&","& request.querystring("myemail")&")"


conntemp.execute(strSQLstatement)
conntemp.close
set conntemp = nothing    

Det skal lige bemærkes at jeg for flg.
fejl:
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access 97 Driver] Syntax error in INSERT INTO statement

Prøv noget ligende nedestående. Husk at ændre den præcise adresse til databasen !

<%
Dim Connect, Query, rs
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DBQ=c:\test\database.mdb;DefaultDir=c:\test\;Driver={Microsoft Access Driver (*.mdb)}"

Set rs = Server.CreateObject("ADODB.Recordset")
Query = "SELECT * FROM Tabel"

RS.Open "Tabel", Connect, 3,3
rs.AddNew

Rs("Navn") = Request.Form("navnmy")
Rs("Adresse") = Request.Form("adressemy")
Rs("By") = Request.Form("myby")
Rs("Telefon") = Request.Form("mytelefon")
Rs("navn") = Request.Form("navn")
Rs("Email") = Request.Form("myemail")
rs.Update

rs.Close
%>

Hej Nope
Hvad er den præcise adresse, ude på
en server, jeg plejer bare at kalde
filen ved navn, og ikke sti ?

Sansynligvis c:/dit-ip-nr/database.mdb Spørg din udbyder !

Prøv at checke dine server variables.

Denne kode ville vise dig dem.

    <TABLE BORDER>
    <CAPTION><B>Server Variables</B></CAPTION>
  <TR>
  <TD>Variable</TD>
  <TD>Value</TD>
  </TR>
  <%
  For EACH name IN Request.ServerVariables
  Response.Write("<TR><TD><B>"&name&"</B></TD>")
  Response.Write("<TD>" & Request.ServerVariables(name) & "</TD></TR> ")
  Next
Response.Write("HTTP_REFERER :" & Request.ServerVariables("HTTP_REFERER")) 
%>
  <A HREF="Server.asp">Server</A>
  </TABLE>

Jeg anvender nedenstående, og udfylder kun alle felter i databasen, undtagen autonummeringsfeltet. Hvordan sætter jeg en variabel til at være det autonummeringen tilgiver posten ?

Altså hvordan i nedenstående process, fremkommer en variabel med den værdi autonummerings feltet bliver ?

(Som jeg så senere kan bruge.)

Dim Connect, Query, rs
Set Connect = Server.CreateObject("ADODB.Connection")
cnpath="DBQ=" & server.mappath("kunde.mdb")

connect.open "driver={microsoft access driver (*.mdb)}; " & cnpath


Set rs = Server.CreateObject("ADODB.Recordset")
Query = "SELECT * FROM Tabel"

RS.Open "Tabel", Connect, 3,3
rs.AddNew

Rs("Navn") = mynavn
Rs("Adresse") = myadresse
Rs("By") = myby
Rs("Telefon") = mytelefon
Rs("Email") = myemail
rs("Dato") = mydato
rs("Time") = mytid
rs.Update


rs.Close
set rs=nothing
connect.close