Avatar billede bredan1977 Nybegynder
07. oktober 2004 - 15:01 Der er 21 kommentarer og
1 løsning

Hjælp med indsættelse af data i DB via ASP!

Jeg har to sider...

I den ene ser det sådan her ud:
<%
If Session("login") = "JA" Then
  Session("Customer") = request.querystring("customer")
  Session("login") = "JA"
  Session.Timeout = 30
Else
  Session("login") = "NEJ"
  Session.Timeout = 30
  Response.Redirect "http://www.dr.dk"
End If

%>
Du er logget ind som <% response.write Session("Customer")%>
<form method="POST" action="createorder.asp">
<input type="text" name="CustomerRef">
<input type="text" name="T1" size="20">
<input type="submit" value="Ok" name="Ok">

Det ser fint nok ud, så er der den anden fil:

<%
If Session("login") = "JA" Then
  Session("login") = "JA"
  Session("Customer") = request.querystring("customer")
  Session.Timeout = 30
Else
  Session("login") = "NEJ"
  Session.Timeout = 30
  Response.Redirect "http://www.dr.dk"
End If

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../cgi-data/database.mdb")
Conn.Open DSN

strSQL = "Insert into orderliste ("

strSQL = strSQL & "customer, "
strSQL = strSQL & "CustomerRef, "
strSQL = strSQL & "status, "
strSQL = strSQL & "dato, "
strSQL = strSQL & "sælger) "

strSQL = strSQL & "values( "

strSQL = strSQL & Session("Customer"),
strSQL = strSQL & Request.form("CustomerRef"),
strSQL = strSQL & "'Ingen', "
strSQL = strSQL & "'10-10-2004', "
strSQL = strSQL & "'Domino')"
conn.Execute(strSQL)

set rsCreateOrder = Nothing
set Conn = Nothing
Response.Redirect "Opslag.asp"
%>

Men det virker ikke...... hvorfor???
Avatar billede fennec Nybegynder
07. oktober 2004 - 15:07 #1
du har sat nogle , forkert.

strSQL = strSQL & Session("Customer") &", "
strSQL = strSQL & Request.form("CustomerRef") &", "
Avatar billede bredan1977 Nybegynder
07. oktober 2004 - 15:12 #2
Ok... det hjalp lidt...

Men den siger:
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

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

/createorder.asp, line 42


Som er denne linje her:
Conn.Execute(strSQL)
Avatar billede fennec Nybegynder
07. oktober 2004 - 15:20 #3
prøv at skrive strSQL ud på skærmen inden du bruger den, og fortæl mig hvad den indeholder.

response.write strSQL
conn.Execute(strSQL)
Avatar billede bredan1977 Nybegynder
07. oktober 2004 - 15:22 #4
Insert into orderliste (customer, CustomerRef, status, dato, sælger) values( , test, 'Ingen', '10-10-2004', 'Domino')
Avatar billede bredan1977 Nybegynder
07. oktober 2004 - 15:25 #5
Nu har jeg lavet en extra textbox på den første side...

Kan man lave en slags:
textbox = request.querystring("customer")
Avatar billede bredan1977 Nybegynder
07. oktober 2004 - 15:27 #6
Insert into orderliste (customer, CustomerRef, status, dato, sælger) values( 50050, test, 'Ingen', '10-10-2004', 'Domino')
Avatar billede bredan1977 Nybegynder
07. oktober 2004 - 15:28 #7
strSQL = strSQL & Request.form("Customer") &", "
strSQL = strSQL & Request.form("CustomerRef") &", "
strSQL = strSQL & "'Ingen', "
strSQL = strSQL & "'10-10-2004', "
strSQL = strSQL & "'Domino')"
Avatar billede fennec Nybegynder
07. oktober 2004 - 15:30 #8
CustomerRef (test) er tekst og skal derfor i '

strSQL = strSQL & "'" Request.form("CustomerRef") &"', "
Avatar billede bredan1977 Nybegynder
07. oktober 2004 - 15:32 #9
NU kan siden ikke vises!
Avatar billede bredan1977 Nybegynder
07. oktober 2004 - 15:36 #10
Gør jeg sådan her virker det bare fjong:

strSQL = strSQL & "'50050', "
strSQL = strSQL & "'TEST', "
strSQL = strSQL & "'Ingen', "
strSQL = strSQL & "'10-10-2004', "
strSQL = strSQL & "'Domino')"
Avatar billede bredan1977 Nybegynder
07. oktober 2004 - 15:39 #11
Hvad med sådan her:

Dim CustomerRefText
Dim CustomerText

CustomerRefText = Request.form("CustomerRef")
CustomerText = Request.form("Customer")

strSQL = "Insert into orderliste ("

strSQL = strSQL & "customer, "
strSQL = strSQL & "CustomerRef, "
strSQL = strSQL & "status, "
strSQL = strSQL & "dato, "
strSQL = strSQL & "sælger) "

strSQL = strSQL & "values( "

strSQL = strSQL & CustomerRefText,
strSQL = strSQL & CustomerText,
strSQL = strSQL & "'Ingen', "
strSQL = strSQL & "'10-10-2004', "
strSQL = strSQL & "'Domino')"
Avatar billede fennec Nybegynder
07. oktober 2004 - 15:42 #12
Det var mig der ikke kunne skrive rigtigt :o)

strSQL = strSQL & "'" Request.form("CustomerRef") &"', "
skal være:
strSQL = strSQL & "'" & Request.form("CustomerRef") &"', "
Avatar billede bredan1977 Nybegynder
07. oktober 2004 - 15:44 #13
Så langt er jeg nået.... men se lige her:

CustomerRefText = Request.form("CustomerRef")
CustomerText = Request.form("Customer")

strSQL = "Insert into orderliste ("

strSQL = strSQL & "Customer, "
strSQL = strSQL & "CustomerRef, "
strSQL = strSQL & "status, "
strSQL = strSQL & "dato, "
strSQL = strSQL & "sælger) "

strSQL = strSQL & "values( "

strSQL = strSQL & "'" & CustomerRefText &"', "
strSQL = strSQL & "'" & CustomerText &"', "
strSQL = strSQL & "'Ingen', "
strSQL = strSQL & "'10-10-2004', "
strSQL = strSQL & "'Domino')"

Nu siger den bare:
Insert into orderliste (Customer, CustomerRef, status, dato, sælger) values( 'test', '50050', 'Ingen', '10-10-2004', 'Domino')
Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

[Microsoft][ODBC Microsoft Access Driver] Data type mismatch in criteria expression.

/createorder.asp, line 50
Avatar billede fennec Nybegynder
07. oktober 2004 - 15:48 #14
Nu skal vi lige have fundet ud af, hvad der er hvad. Du har vist også fået bytte om på nogle af felterne...

Customer = tal
CustomerRef = tekst
status = tekst
dato = dato
sælger = tekst

er det sådan det er??
Avatar billede bredan1977 Nybegynder
07. oktober 2004 - 15:51 #15
NU har jeg lavet ged i den... vender lige tilbage!

Hehe
Avatar billede fennec Nybegynder
07. oktober 2004 - 16:04 #16
Jeg vil gætte på det skal være sådan:

strSQL = "Insert into orderliste ("
strSQL = strSQL & "Customer, "
strSQL = strSQL & "CustomerRef, "
strSQL = strSQL & "status, "
strSQL = strSQL & "dato, "
strSQL = strSQL & "sælger) "
strSQL = strSQL & "values( "
strSQL = strSQL & CustomerText &", "
strSQL = strSQL & "'" & CustomerRefText &"', "
strSQL = strSQL & "'Ingen', "
strSQL = strSQL & "'10-10-2004', "
strSQL = strSQL & "'Domino')"
Avatar billede bredan1977 Nybegynder
08. oktober 2004 - 08:19 #17
Jepper.... virker nu!

Takker... point!
Avatar billede fennec Nybegynder
08. oktober 2004 - 08:21 #18
.o) <-- One Eyed Jack
Avatar billede bredan1977 Nybegynder
08. oktober 2004 - 09:56 #19
En øjede Jack?`??
Avatar billede fennec Nybegynder
08. oktober 2004 - 09:58 #20
Han mistede det ene øje i 100 års krigen.
Avatar billede bredan1977 Nybegynder
08. oktober 2004 - 10:55 #21
nÅÅÅ.....
Har lige en mere til dig!
Avatar billede bredan1977 Nybegynder
08. oktober 2004 - 10:57 #22
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
Vi tilbyder markedets bedste kurser inden for webudvikling

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