Avatar billede sun Nybegynder
18. maj 2001 - 12:00 Der er 12 kommentarer og
1 løsning

hvad er der galt her....

<%@Language=\"VBScript\"%>

<%
Option Explicit
Dim oRS, oConn, i, datdate, nyhed

datdate = Request.form(\"DatDate\")
nyhed = Request.form(\"Nyhed\")

Set oConn = Server.CreateObject(\"ADODB.Connection\")

oConn.ConnectionString = \"Driver={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"news.mdb\")
oConn.Open

oConn.Execute INSERT INTO news (Date, Text) VALUES (datdate, nyhed)

Set oConn = Nothing

response.redirect(\"nyheder.asp\")
%>

Dette er den fejl jeg får:

Microsoft VBScript compilation error \'800a0401\'

Expected end of statement

/johans_sandkasse/testaspnews/nynyhed.asp, line 16

oConn.Execute INSERT INTO news (Date, Text) VALUES (datdate, nyhed)
---------------------^
Avatar billede -mundi- Nybegynder
18. maj 2001 - 12:05 #1
oConn.Execute (\"INSERT INTO news (Date, Text) VALUES (\'\"&datdate&\"\', \'\"&nyhed&\"\')\")

det skulle gøre det, hvis datdate er et tekstfelt eller skal du skrive datosyntax
Avatar billede sun Nybegynder
18. maj 2001 - 12:13 #2
datdate er kun text... men nu få jeg denne fejl

Microsoft OLE DB Provider for ODBC Drivers error \'80040e14\'

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

/johans_sandkasse/testaspnews/nynyhed.asp, line 16
Avatar billede torbenmelander Nybegynder
18. maj 2001 - 12:22 #3
Prøv med

oConn.Execute (\"INSERT INTO news (\'Date\', \'Text\') VALUES (\'\"&datdate&\"\', \'\"&nyhed&\"\')\")
Avatar billede torbenmelander Nybegynder
18. maj 2001 - 12:24 #4
Bemærk at forskellen er de to \' i kolonefelterne!
Avatar billede torbenmelander Nybegynder
18. maj 2001 - 12:26 #5
På http://www.w3schools.com/sql/ kan du lære mere om SQL
Avatar billede sun Nybegynder
18. maj 2001 - 12:35 #6
Så kommer denne fejl...

Microsoft OLE DB Provider for ODBC Drivers error \'80040e14\'

[Microsoft][ODBC Microsoft Access Driver] The INSERT INTO statement contains the following unknown field name: \'\'Date\'\'. Make sure you have typed the name correctly, and try the operation again.

/johans_sandkasse/testaspnews/nynyhed.asp, line 16

Btw jeg har læst nu på w3schools.com i 4 timer det er derfor jeg prøver her
Avatar billede torbenmelander Nybegynder
18. maj 2001 - 12:44 #7
tyder på at feltet date ikke eksistere i tabellen news eller at det hedder noget andet!
Avatar billede torbenmelander Nybegynder
18. maj 2001 - 12:47 #8
sorry min fejl, drop \' igen

måske kan du rette denne kode til:

\"INSERT INTO tblMenupunkt (fldMenupunkt, fldPosition) VALUES (\'\" & Request.Form(\"Menupunkt\") & \"\',\'\" & Request.Form(\"Position\") & \"\')\",,adCmdText + adExecuteNoRecords
Avatar billede torbenmelander Nybegynder
18. maj 2001 - 12:53 #9
hedder din tabel også news eller er det kun selv databasen?
Avatar billede sun Nybegynder
18. maj 2001 - 13:08 #10
Ja min tabel og min datebase har sammen navn...
hvis jeg skriver det ind sådan

oConn.Execute \"INSERT INTO tblMenupunkt (fldMenupunkt, fldPosition) VALUES (\'\" & Request.Form(\"Menupunkt\") & \"\',\'\" & Request.Form(\"Position\") & \"\')\",,adCmdText + adExecuteNoRecords
Får jeg denne fejl..
Microsoft VBScript runtime error \'800a01f4\'

Variable is undefined: \'adCmdText\'

/johans_sandkasse/testaspnews/nynyhed.asp, line 16

dette er min nyhed side den virker....
<html>
</head>
<body background=\"/image/logo3.jpg\">
<p><span class=\"bigheader\">Nyheder </span> <span class=\"header\"><br>
  </span></p>
<%@Language=\"VBScript\"%>

<%
\'Option Explicit
Dim oRS, oConn, i

Set oRS = Server.CreateObject(\"ADODB.Recordset\")
Set oConn = Server.CreateObject(\"ADODB.Connection\")

oConn.ConnectionString = \"Driver={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"news.mdb\")
oConn.Open

oRS.Open \"SELECT * FROM news\", oConn, 2, 3
  If oRS.EOF Then
    Response.Write \"tom\"
Else
    i = 0
    Do while not oRS.EOF
        Response.Write \"<hr><span class=\'header\'>\" & oRS(\"date\") & \"</span><br>\" & oRS(\"text\") & \"<br>\"
        i = i+1
        oRS.MoveNext
    loop
End If

   
 
oRS.Close
Set oRS = Nothing
oConn.Close
Set oConn = Nothing

%>
    </body>
</html>
Avatar billede sun Nybegynder
18. maj 2001 - 13:51 #11
Hvis der noget galt med min kode, eller noget som er lavet sjovt, kan i ikke give mig en ny kode som kan gøre det jeg vil havde den til, det skulle være ret let!
Avatar billede torbenmelander Nybegynder
19. maj 2001 - 11:38 #12
Grunden til fejlen er at filen hvor adCmdText skal inkluderes først. Den hedder adovbs.inc og kan findes i C:\\Program Files\\Common Files\\System\\ado ...
Avatar billede sun Nybegynder
05. september 2001 - 10:54 #13
Svar var at de ord som text og date ikke måtte bruges i DB
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester