Checkbox & SQL 2005 - Softwareontwikkeling

donderdag 1 december 2005 16:18

Acties:

Verwijderd

Topicstarter

Ik heb het volgende probleem:

Onlangs heb ik de "gratis" SQL server gedowload en heb incombinatie hiermee een asp pagina gemaakt om de gegevens uiit te lezen werkt allmaal prima. maar nu heb ik een pagina gemaakt om gegevens in te voeren alles werkt behalve de checkboxen!!??

De gegeven die er in de tabellen moeten komen te staan zijn True of False. Dus is het aangevinkt dan is het True. dat heb ik dus ook aangegeven bij de checkboxen, echter zet hij niets in de tabel?

Add_dvd.asp

<%

' Declareer de variabele voor de connectiestring (StringConnectie -> strCon)
Dim strCon

' Zet de connectiestring in de variabele. Hier is dit dus een ODBC connectie.
strCon = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Initial Catalog=Databsename;Data Source=Servername\SQLEXPRESS;"

' Maak een serverobject aan voor de connectie (ObjectConnectie -> objCon)
Dim objCon
Set objCon = Server.CreateObject ( "ADODB.Connection" )

' Open de verbinding met de database. Voor objCon wordt er een
' verbinding geopend met opgegeven database.
objCon.Open strCon

' De SQL query om de gegevens uit de database te halen.
SQL = "SELECT * FROM Collection ORDER BY Name"

' Plaats de gegevens van de SQL Query in de recordset objRec.
set objRec = objCon.execute(SQL)

%>

<html><head><title>Add New Movie</title></head><body>
<h2>Nieuwe gegevens invoeren</h2>
<form name="form1" method="post" action="add_dvd_b.asp">
<table width="400" border="1" cellspacing="0" cellpadding="4">
<tr>

<td>Name:</td>
<td><input type="text" name="Name"></td>

</tr>
<tr>

<td>Director:</td>
<td><input type="text" name="Director"></td>

</tr>
<tr>

<td>Cast:</td>
<td><input type="text" name="Cast"></td>

</tr>
<tr>

<td>Genre:</td>
<td><input type="text" name="Genre"></td>

</tr>
<tr>

<td>Aspect Ratio:</td>
<td><input type="text" name="AspectRatio"></td>

</tr>
<tr>

<td>Region:</td>
<td><input type="text" name="Region"></td>

</tr>
<tr>

<td>Runtime:</td>
<td><input type="text" name="Runtime"></td>

</tr>
<tr>

<td>Description:</td>
<td><input type="text" name="Description"></td>

</tr>
<tr>

<td>Dolby Digital:</td>
<td><input type="checkbox" name="C1" value="True"></td>

</tr>
<tr>

<td>DTS:</td>
<td><input type="checkbox" name="C2" value="True"></td>

</tr>
<tr>

<td>THX:</td>
<td><input type="checkbox" name="C3" value="True"></td>

</tr>
<tr>

<td>Picture:</td>
<td><input type="Picture" name="Picture"></td>

</tr>

</table>
<p>
<input type="submit" name="Submit" value="Opslaan">
</p>
</form>


<table border="1" cellspacing="0" cellpadding="0" width="700">

<%

' Herhaal het onderstaande totdat het einde van de recordset is bereikt.
' Zet de waarde van de recordset van alle velden tussen de <td></td> tags.
' Bij elke loop wordt er een rij van de tabel neergezet.
Do While Not objRec.EOF

%>

<tr>

<td><%= objRec.Fields("ID").Value %></td>
<td><%= objRec.Fields("Name").Value %></td>

</tr>

<%

' Ga naar het volgende record om de waarden in een nieuwe rij te laten zien.
objRec.MoveNext
Loop

%>

</table>
</body></html>

<%

' Sluit de verbinding en maak alle variabelen leeg. Dit is erg belangrijk!!
objRec.Close
Set objRec = Nothing
objCon.close
set objCon = Nothing

%>

Hierna worden de gevens middels de volgende pagina in de de desbetreffende tabel geplaats:

Add_dvd_b.asp

<%

Dim strCon
Dim objCon
Dim Name, Director, Cast, Genre, AspectRatio, Region, Runtime, Description, DolbyDigital, DTS, THX, Picture

' Zet de connectiestring in de variabele. Hier is dit dus een ODBC connectie.
strCon = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Initial Catalog=Database;Data Source=Servername\SQLEXPRESS;"

' Maak een serverobject aan voor de connectie (ObjectConnectie -> objCon)
' Open de verbinding met de database. Voor objCon wordt er een
' verbinding geopend met opgegeven database.
Set objCon = Server.CreateObject ( "ADODB.Connection" )
objCon.Open strCon

' Maak een object objAdd aan. Open dit record met bepaalde waarden
set objAdd = Server.CreateObject ("ADODB.Recordset")
'Dit zorgt ervoor dat de database op de juiste manier wordt geopend.
objAdd.CursorType = 2
objAdd.LockType = 3
' Zo kan er ook een recordset gemaakt worden ipv set objRec = objCon.execute(SQL)
objAdd.Open "Collection", objCon

' Zet de ingevulde waarden van het formulier in een lokale variabele.
Name = request.form("Name")
Director = request.form("Director")
Cast = request.form("Cast")
Genre = request.form("Genre")
AspectRatio = request.form("AspectRatio")
Region = request.form("Region")
Runtime = request.form("Runtime")
Description = request.form("Description")
DolbyDigital = request.form("DolbyDigital")
DTS = request.form("DTS")
THX = request.form("THX")
Picture = request.form("Picture")

' Maak een nieuw record aan
objAdd.AddNew

'Zet de waarde van de variabelen in het nieuwe record.
objAdd.Fields("Name") = Name
objAdd.Fields("Director") = Director
objAdd.Fields("Cast") = Cast
objAdd.Fields("Genre") = Genre
objAdd.Fields("Aspect_Ratio") = AspectRatio
objAdd.Fields("Region") = Region
objAdd.Fields("Runtime") = Runtime
objAdd.Fields("Description") = Description
objAdd.Fields("Dolby_Digital") = DolbyDigital
objAdd.Fields("DTS") = DTS
objAdd.Fields("THX") = THX
objAdd.Fields("Picture") = Picture

'Update de database met de nieuwe gegevens
objAdd.Update

' Sluit de recordset en de verbinding af omdat we die niet meer gebruiken.
objAdd.Close
Set objAdd = Nothing
objCon.close
set objCon = Nothing

%>

<html><head><title>Gegevens toegevoegd</title></head><body>
<p>Gegevens toegevoegd.....</p>
<p><a href="add_dvd.asp">Terug</a></p>
</body></html>

Alles werkt behalve de checkboxen!!?? iemand een idee?

donderdag 1 december 2005 16:22

Acties:

RobIII

Admin Devschuur®

^ Romeinse Ⅲ ja!

Verwijderd schreef op donderdag 01 december 2005 @ 16:18:

Alles werkt behalve de checkboxen!!?? iemand een idee?

Uhm. Nee
Ten eerste heb ik weinig trek je code te debuggen (en de meesten hier niet denk ik) en ten tweede geef je totaal niet aan wat je al geprobeerd hebt, wat je nou eigenlijk precies probeert te doen en wat er precies niet lukt.

Verwijderd schreef op donderdag 01 december 2005 @ 16:18:
maar nu heb ik een pagina gemaakt om gegevens in te voeren alles werkt behalve de checkboxen!!??

Oh? En WAT werkt dan niet?

Verwijderd schreef op donderdag 01 december 2005 @ 16:18:
De gegeven die er in de tabellen moeten komen te staan zijn True of False. Dus is het aangevinkt dan is het True. dat heb ik dus ook aangegeven bij de checkboxen, echter zet hij niets in de tabel?

Aangegeven? Hoe? Wat? Waar? En hoezo "hij zet niets in de tabel"?

Kun je ook alleen de relevante code posten? En het zou fijn zijn als je dat tussen [code] tags deed.

[ Voor 52% gewijzigd door RobIII op 01-12-2005 16:24 ]

There are only two hard problems in distributed systems: 2. Exactly-once delivery 1. Guaranteed order of messages 2. Exactly-once delivery.

Je eigen tweaker.me redirect

Over mij

donderdag 1 december 2005 16:24

Acties:

Verwijderd

Dat is een hoop tekst, die ik niet helemaal ga doorlezen.
Mijn eerste gedachte is eigenlijk of je wel True of False in je parameter laad. Je code zegt alleen "request.form("DTS")". Is dat wel een echte boolean, of (zoals in VB6) iets van constante 'vbChecked' / 'vbUnChecked'.

donderdag 1 december 2005 16:25

Acties:

NMe

Quia Ego Sic Dico.

Je doet ook niks met de checkboxen in je ASP code? Je moet Request.Form("C1") enz. bekijken wil je daar wat mee kunnen doen hoor.

Verder kunnen we niets met die gigantische lap code. Debuggen moet je zelf doen, zie ook P&W FAQ - Leer **** debuggen!!. Daarnaast kun je code tussen code tags plaatsen, zie daarvoor ook Hoe post je code? / Hoe gebruik je de code tag?.

Daarnaast zegt je topictitel weinig over je probleem. Lees dus ook even P&W FAQ - De "quickstart" door. Mocht je dit probleem blijven houden, dan kun je een nieuw topic openen. Hoe je daarbij dan wel aan de quickstart, dus post alleen relevante code, en geef aan wat je geprobeerd hebt en wat daar niet mee lukte.

Dit topic gaat in elk geval dicht.

'E's fighting in there!' he stuttered, grabbing the captain's arm.
'All by himself?' said the captain.
'No, with everyone!' shouted Nobby, hopping from one foot to the other.

donderdag 1 december 2005 16:26

Acties:

whoami

Hoi,
Het is niet de bedoeling dat je hier zomaar je lap code kunt posten (zonder dan nog eens gebruik te maken van code-tags), en ervan uit gaat dat wij die debuggen.
Zo werkt het hier niet.

Ik wil je wel een tipje geven: Sql Server kent geen true of false, alleen 0 en 1 (bit).

https://fgheysels.github.io/