[ASP] record toevoegen aan access DB mbv forms - Client software algemeen

zondag 28 september 2003 22:40

Acties:

Topicstarter

Heb een begin gemaakt met het leren van ASP maar kom niet verder.
Na uren speuren in mijn code en codes van anderen kom ik er nog steeds niet uit

Misschien dat iemand me de helpende kant kan bieden ?

Ik probeer via een webpage met forms een record toe te voegen aan een access DB. De connectie met de DB is geen probleem. Het lukt zelfs om een record toe te voegen als ik de record values gewoon in het INSERT INTO sql commando zet. Zie voorbeeld code

code:

<%@ LANGUAGE="VBSCRIPT" %>
<HTML><HEAD><TITLE>BEJEWELED TOPSCORES</TITLE></HEAD>
<BODY>

<%
set cnADO = Server.CreateObject("ADODB.Connection")
Dim myDSN
myDSN = "DSN=database"
cnADO.Open myDSN

Dim strSQL
strSQL = "INSERT INTO bejeweled (naam,score) VALUES('bert','9000')"
set rsADO = cnADO.Execute(strSQL)
%>

</FORM></BODY></HTML>

Bovenstaande code werkt en record wordt toegevoegd.

Nu wil ik dus met behulp van een form de record values zeg invullen. Alleen wordt er dan niks in de DB geschreven. Ik krijg geen foutmeldingen of dergelijke. Knop submit wordt gewoon gedaan, maar er verschijnt geen nieuw record.

Het script met forms wat ik bedacht heb is als volgt :

code:

<%@ LANGUAGE="VBSCRIPT" %>
<HTML><HEAD><TITLE>BEJEWELED TOPSCORES</TITLE></HEAD><BODY>

<form action="database_invoeren.asp" method="get">
  Naam   <input type="text" name="fnaam" size="20"><BR>
  score   <input type="text" name=fscore" size ="20"<BR>
<input type="submit" value="Submit">
</form>

<%
dim fnaam
fnaam=Request.QueryString("fnaam")

dim fscore
fscore=Request.QueryString("fscore")

set cnADO = Server.CreateObject("ADODB.Connection")
Dim myDSN
myDSN = "DSN=database"
cnADO.Open myDSN

Dim strSQL
strSQL = "INSERT INTO bejeweled (naam,score) VALUES(fnaam,fscore)"
set rsADO = cnADO.Execute(strSQL)
%>

</FORM></BODY></HTML>

Wat doe ik fout of wat vergeet ik waardoor het tweede stuk script niet werkt ?

[ Voor 14% gewijzigd door bgrr op 28-09-2003 22:43 ]

zondag 28 september 2003 22:46

Acties:

Verwijderd

Er vanuit gaande dat het onderste deel ook echt in databas_invoeren.asp staat zie ik niks aparts. Print de query eens uit net voor set rsADO ....
(response.write strSQL) en kijk eens wat ie zegt.

zondag 28 september 2003 22:52

Acties:

Verwijderd

hoe zorg je ervoor dat de code uitgevoerd wordt, waardoor wordt het script getriggerd?
hoe vul je je queryStrings, bedoel je niet request.form?
En past dit topic niet beter in Programming & Webscripting ?

zondag 28 september 2003 22:56

Acties:

Verwijderd

strSQL = "INSERT INTO bejeweled (naam,score) VALUES(fnaam,fscore)"

moet dit niet zijn:

strSQL = "INSERT INTO bejeweled (naam,score) VALUES('" & fnaam & "','" & fscore & "')"

zondag 28 september 2003 22:59

Acties:

Verwijderd

gheghe, RH9 heeft gelijk

zondag 28 september 2003 23:01

Acties:

bgrr

Topicstarter

Ik heb de (response.write strSQL) opdracht toegevoegd boven de set rsADO maar er komt geen uitput om me scherm.

Zodra ik op submit druk refresht de page .

De url veranderd wel naar file://server/data/wwwroot/database/database_invoeren.asp?fnaam=barry&fscore%22=10000 op dat moment..

Topic past idd beter in Programming & Webscripting ( mocht er een mod aanwezig zijn, 't mag verplaatst worden ;-) )

zondag 28 september 2003 23:02

Acties:

sig69

Damn zit weer te langzaam te tikken...

[ Voor 168% gewijzigd door sig69 op 28-09-2003 23:03 ]

Roomba E5 te koop

zondag 28 september 2003 23:03

Acties:

Verwijderd

Verwijderd schreef op 28 September 2003 @ 22:56:
strSQL = "INSERT INTO bejeweled (naam,score) VALUES(fnaam,fscore)"

moet dit niet zijn:

strSQL = "INSERT INTO bejeweled (naam,score) VALUES('" & fnaam & "','" & fscore & "')"

waarschijnlijk wel maar dan zou er ,als die code uitgevoerd wordt, een error ontstaan wat volgens de TS niet het geval is. En als ook dit :

code:

1	strSQL = "INSERT INTO bejeweled (naam,score) VALUES('bert','9000')"

niet lukt dan denk ik dat die code gewoon niet uitgevoerd wordt. wel dus.

[ Voor 13% gewijzigd door Verwijderd op 28-09-2003 23:09 ]

zondag 28 september 2003 23:04

Acties:

Verwijderd

Gebruik in je <form> method="POST" en dan ipv request.Querystring request.Form.

Dan moet het werken.

Van TS begreep ik dat

strSQL = "INSERT INTO bejeweled (naam,score) VALUES('bert','9000')"

wel werkt of ben ik nu abuis?.

[ Voor 40% gewijzigd door Verwijderd op 28-09-2003 23:06 ]

zondag 28 september 2003 23:05

Acties:

sig69

De TS zegt juist dat

code:

1	strSQL = "INSERT INTO bejeweled (naam,score) VALUES('bert','9000')"

wel werkt

Roomba E5 te koop

zondag 28 september 2003 23:06

Acties:

bgrr

Topicstarter

Ik heb de tip van Redhat 9 en sig69 geprobeerd nu en krijg van volgende melding :

Microsoft OLE DB Provider for ODBC Drivers error '80040e07'

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

/database/database_invoeren.asp, line 36

zondag 28 september 2003 23:07

Acties:

Verwijderd

Vermoedelijk is fscore een integer en dan moet je de bij ' rond fscore weglaten.
Dus ('" & fnaam & "'," & fscore & ")".

zondag 28 september 2003 23:08

Acties:

bgrr

Topicstarter

inmiddels ook de method get naar method post veranderd, foutmelding is nu weg , maar record wordt nog niet toegevoegd.

Top dat jullie me willen helpen en zo snel reageren :-)

zondag 28 september 2003 23:11

Acties:

bgrr

Topicstarter

fscore is idd een integer, heb de ' ' weggehaald bij fsore , maar record komt nog niet in db

zondag 28 september 2003 23:11

Acties:

Verwijderd

Als je na strSQL= ..... zet response.write strSQL is het sql statement dan wel goed?
Maw staan de waardes er wel?

zondag 28 september 2003 23:11

Acties:

Verwijderd

bgrr schreef op 28 September 2003 @ 23:08:
inmiddels ook de method get naar method post veranderd, foutmelding is nu weg , maar record wordt nog niet toegevoegd.

Top dat jullie me willen helpen en zo snel reageren :-)

En werkt response.write(strsql) ?

zondag 28 september 2003 23:13

Acties:

bgrr

Topicstarter

Ik heb me webserver even opengezet voor diegene die even de sources wil zien en de db.

http://xxx.xxx.xxx.xxx/????????

[ Voor 17% gewijzigd door bgrr op 28-09-2003 23:35 ]

zondag 28 september 2003 23:14

Acties:

bgrr

Topicstarter

Verwijderd schreef op 28 September 2003 @ 23:11:
[...]

En werkt response.write(strsql) ?

Ik krijg de output niet op me scherm te zien, zodra ik een submit geef refresht me scherm en er staat nergers de output tussen van de strSQL

zondag 28 september 2003 23:18

Acties:

Verwijderd

In je database_invoeren.asp staat:

code:

<HTML>
<HEAD>

<TITLE>BEJEWELED TOPSCORES</TITLE>
</HEAD>
<BODY>
<form action="database_invoeren.asp" method="post">
Naam   <input type="text" name="fnaam" size="20"><BR>
score  <input type="text" name=fscore" size ="20"<BR>
<input type="submit" value="Submit">
</form>

</FORM>
</BODY>
</HTML>

Waar is het asp stuk dan?
Op het moment dat je submit keert hij terug naar deze pagina en dan zal er inderdaad niks gebeuren

zondag 28 september 2003 23:20

Acties:

bgrr

Topicstarter

Het stuk asp staat in mijn source onder het form gedeelte.. zie -> code

Zit hier mijn fout ? Moet ik het asp stuk ergens triggeren ?

[code]

<%@ LANGUAGE="VBSCRIPT" %>

<HTML>
<HEAD>

<TITLE>BEJEWELED TOPSCORES</TITLE>
</HEAD>
<BODY>

<form action="database_invoeren.asp" method="post">
Naam <input type="text" name="fnaam" size="20"><BR>
score <input type="text" name=fscore" size ="20"<BR>
<input type="submit" value="Submit">
</form>

<%

dim fnaam
fnaam=Request.QueryString("fnaam")

dim fscore
fscore=Request.QueryString("fscore")

If fnaam<>"" THEN

set cnADO = Server.CreateObject("ADODB.Connection")
Dim myDSN
myDSN = "DSN=database"
cnADO.Open myDSN

Dim strSQL
strSQL = "INSERT INTO bejeweled (naam,score) VALUES('" & fnaam &"'," & fscore & ")"
response.write(strsql)
set rsADO = cnADO.Execute(strSQL)

END IF

%>

</FORM>
</BODY>
</HTML>

[code]

[ Voor 23% gewijzigd door bgrr op 28-09-2003 23:21 ]

zondag 28 september 2003 23:23

Acties:

Exterazzo

Qeasy

je moet je request.querystring nog veranderen in request.form

dus dit:

dim fnaam
fnaam=Request.QueryString("fnaam")

dim fscore
fscore=Request.QueryString("fscore")

moet worden dit:

dim fnaam
fnaam=Request.Form("fnaam")

dim fscore
fscore=Request.Form("fscore")

[ Voor 68% gewijzigd door Exterazzo op 28-09-2003 23:24 ]

Audentia

zondag 28 september 2003 23:23

Acties:

Verwijderd

code:

<%@ LANGUAGE="VBSCRIPT" %>
<%
dim fnaam
fnaam=Request.Form("fnaam")

dim fscore
fscore=Request.Form("fscore")

If fnaam<>"" THEN

set cnADO = Server.CreateObject("ADODB.Connection")
Dim myDSN
myDSN = "DSN=database"
cnADO.Open myDSN

Dim strSQL
strSQL = "INSERT INTO bejeweled (naam,score) VALUES('" & fnaam &"'," & fscore & ")"
response.write(strsql)
set rsADO = cnADO.Execute(strSQL)

END IF

%>

<HTML>
<HEAD>

<TITLE>BEJEWELED TOPSCORES</TITLE>
</HEAD>
<BODY>

<form action="database_invoeren.asp" method="post">
Naam <input type="text" name="fnaam" size="20"><BR>
score <input type="text" name=fscore" size ="20"<BR>
<input type="submit" value="Submit">
</form>

</BODY>
</HTML>

Probeer het zo eens. Werkt wel denk ik

zondag 28 september 2003 23:26

Acties:

bgrr

Topicstarter

Ik heb je code erin staan, maar nu krijg ik weer die foutmelding

INSERT INTO bejeweled (naam,score) VALUES('truus',)
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

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

/database/database_invoeren.asp, line 19

zondag 28 september 2003 23:27

Acties:

Exterazzo

Qeasy

verander dit:

score <input type="text" name=fscore" size ="20"<BR>

eens in dit

score <input type="text" name="fscore" size="20"><BR>

[ Voor 53% gewijzigd door Exterazzo op 28-09-2003 23:29 ]

Audentia

zondag 28 september 2003 23:27

Acties:

Verwijderd

Fout melding klopt.
Kijk eens goed naar je Insert. Je mist de fscore waarde !!

Met de wijziging van Exterazzo erbij zou hij nu moeten werken

[ Voor 29% gewijzigd door Verwijderd op 28-09-2003 23:29 ]

zondag 28 september 2003 23:29

Acties:

Exterazzo

Qeasy

En hij werkt

Audentia

zondag 28 september 2003 23:30

Acties:

bgrr

Topicstarter

zie nu idd wel de strSQL output op het scherm, de value van fscore komt niet mee zie ik

Heb nu ook de tip van Ex... gedaan, die " in form en nu werkt het :-)

Mag ik je jullie bedanken voor de hulp....

Ga nu eens rustig kijken waar ik de fouten heb gemaakt.

Thanks for helping me...

zondag 28 september 2003 23:31

Acties:

freddifish

schnappi !

ik heb dit destijds gedaan met de frontpage ASP wizard (ben meer thuis in PHP nl

)
Lijkt heel wat, maar zijn gewoon een hele zut voorbeeld ASP files, wel illustratief
check http://support.microsoft....6/0/19.asp&NoWebContent=1

[ Voor 9% gewijzigd door freddifish op 28-09-2003 23:31 ]

'people say I'm a drinker, but I'm sober half the time' - Mick Jagger | mail: freddifish_AT_gmx.net

Pagina: 1

Reageer