[ASP.Net] Hij wil niet schrijfen naar de database - Softwareontwikkeling

woensdag 9 november 2005 21:17

Acties:

Topicstarter

Hallo Tweakers,

Ik heb een pagina gemaakt in VB,

Maar nu wil hij niet naar de database scrijven.

Ik ben hier nu al een behoorlijke tijd mee bezig en ik begin nu gek te worden.
Ik snap maar niet waarom hij niet naar de database schrijft.

Iemand hier een idee ?

Groet,
Gurbe

<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="iso-8859-1" debug="true" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="system.data.oledb" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<script runat="server">

Sub submit_info(ByVal obj As Object, ByVal e As EventArgs)

'declareren van varabelen voor het gebruik van de if-loops en de database
Dim var_reg_voornaam As String = reg_voornaam.Text
Dim var_reg_achternaam As String = reg_achternaam.Text
Dim var_reg_geboortedatum As String = reg_geboortedatum.Text
Dim var_reg_email1 As String = reg_email1.Text
Dim var_reg_email2 As String = reg_email2.Text
Dim var_reg_gebruikersnaam As String = reg_gebruikersnaam.Text
Dim var_reg_wachtwoord1 As String = reg_wachtwoord1.Text
Dim var_reg_wachtwoord2 As String = reg_wachtwoord2.Text
Dim var_reg_geheimevraag As String = reg_geheimevraag.Text
Dim var_reg_geheimeantwoord As String = reg_geheimeantwoord.Text
Dim var_reg_huisnummer As String = reg_huisnummer.Text
Dim var_reg_straat As String = reg_straat.Text
Dim var_reg_woonplaats As String = reg_woonplaats.Text
Dim var_reg_postcode As String = reg_postcode.Text

'declaratie variablen voor verificatie invoervakken
Dim dec1 As Boolean
Dim dec2 As Boolean
Dim dec3 As Boolean
Dim dec4 As Boolean
Dim dec5 As Boolean
Dim dec6 As Boolean
Dim dec7 As Boolean
Dim dec8 As Boolean
Dim dec9 As Boolean
Dim dec10 As Boolean
Dim dec11 As Boolean
Dim dec12 As Boolean
Dim dec13 As Boolean

Dim checkvakje As Boolean

' checkvakje
If checkvakje = True Then
dec9 = True
Else
dec9 = True
End If

'valideren van invoervelden
'dec1
If var_reg_voornaam <> "" Then
dec1 = True
Else
dec1 = False
End If

'dec2
If var_reg_achternaam <> "" Then
dec2 = True
Else
dec2 = False
End If

'dec3
If var_reg_geboortedatum <> "" Then
dec3 = True
Else
dec3 = False
End If

'dec4
If var_reg_email1 <> "" Then
dec4 = True
Else
dec4 = False
End If

'dec5
If var_reg_email2 <> "" Then
dec5 = True
Else
dec5 = False
End If

'dec6 email verificatie
If var_reg_email2 = var_reg_email1 Then
dec6 = True
Else
dec6 = False
End If

'dec7
If var_reg_gebruikersnaam <> "" Then
dec7 = True
Else
dec7 = False
End If

If var_reg_wachtwoord1 <> "" Then
dec8 = True
Else
dec8 = False
End If

If var_reg_geheimevraag <> "" Then
dec10 = True
Else
dec10 = False
End If

If var_reg_geheimeantwoord <> "" Then
dec11 = True
Else
dec11 = False
End If

If var_reg_wachtwoord1 = var_reg_wachtwoord2 Then
dec12 = True
Else
dec12 = False
End If

If var_reg_wachtwoord2 <> "" Then
dec13 = True
Else
dec13 = False
End If

'aanmaken tekstvariablen als dec1-dec8 onjuist zijn
'dec1
If dec1 = False Then
str_dec1.Text = ("<br>Voornaam niet ingevuld!")
Else
str_dec1.Text = ("")
End If

'dec2
If dec2 = False Then
str_dec2.Text = ("<br>Achternaam niet ingevuld!")
Else
str_dec2.Text = ("")
End If

'dec3
If dec3 = False Then
str_dec3.Text = ("<br>Geboortedatum niet ingevuld!")
Else
str_dec3.Text = ("")
End If

'dec4
If dec4 = False Then
str_dec4.Text = ("<br>E-Mail adres niet ingevuld!")
Else
str_dec4.Text = ("")
End If

'dec5
If dec5 = False Then
str_dec5.Text = ("<br>Controlerend E-Mail adress niet ingevuld!")
Else
str_dec5.Text = ("")
End If

'dec6
If dec6 = False Then
str_dec6.Text = ("De E-mail adressen komen niet overeen!<br>")
Else
str_dec6.Text = ("")
End If

'dec7
If dec7 = False Then
str_dec7.Text = ("<br>Gebruikersnaam niet ingevuld!")
Else
str_dec7.Text = ("")
End If

'dec8
If dec8 = False Then
str_dec8.Text = ("<br>Wachtwoord niet ingevuld!")
Else
str_dec8.Text = ("")
End If

If dec9 = False Then
str_dec9.Text = ("<br>Je moet accoord gaan met de voorwaarden!<br>")
Else
str_dec9.Text = ("")
End If

If dec10 = False Then
str_dec10.Text = ("<br>Je moet een geheime vraag invullen!<br>")
Else
str_dec10.Text = ("")
End If

If dec11 = False Then
str_dec11.Text = ("<br>Je moet je geheime antwoord invullen!<br>")
Else
str_dec11.Text = ("")
End If

If dec12 = False Then
str_dec12.Text = ("De wachtwoorden komen niet overeen!<br>")
Else
str_dec12.Text = ("")
End If

If dec13 = False Then
str_dec13.Text = ("<br>Controlerend wachtwoord niet ingevuld!")
Else
str_dec13.Text = ("")
End If

'De if-loopS die kijk als je door mag naar de volgende registratie pagina

If dec1 = True Then
If dec2 = True Then
If dec3 = True Then
If dec4 = True Then
If dec5 = True Then
If dec6 = True Then
If dec7 = True Then
If dec8 = True Then
If dec9 = True Then
If dec10 = True Then
If dec11 = True Then
If dec12 = True Then
If dec13 = True Then
Dim strconnectionstring As String = ("provider=microsoft.jet.oledb.4.0;" & "data source=C:\database_site.mdb")
Dim conn As New OleDbConnection(strconnectionstring)
conn.Open()

Dim strSQL1 As String = "insert into user_ids (voornaam, achternaam, geboortedatum, straat, huisnummer, woonplaats, postcode, telefoonnummer, faxnummer, emailadres, geheim_vraag, geheim_antwoord, gebruikersnaam, wachtwoord) VALUES('var_reg_voornaam', 'var_reg_achternaam', 'var_reg_geboortedatum', 'var_reg_straat', 'var_reg_huisnummer', 'var_reg_woonplaats', 'var_reg_postcode', 'var_reg_telefoonnummer', 'var_reg_faxnummer', 'var_reg_email1', 'var_reg_geheimevraag', 'var_reg_geheimeantwoord', 'var_reg_gebruikersnaam', 'var_reg_wachtwoord1')"

Dim objcmd As New OleDbCommand(strSQL1, conn)

conn.Close()

Session("reg_naam") = var_reg_voornaam & var_reg_achternaam
Session("gebruikersnaam") = var_reg_gebruikersnaam
Session("wachtwoord") = var_reg_wachtwoord1
Server.Transfer("geregistreerd.aspx")
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If

End Sub

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)

End Sub
</script>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
<style type="text/css">

</style>
</head>
<body style="text-align: center">
<form class="style1" id="Form1" runat="server">

<br />
Vul de velden in om je te registreren.<br />
<br />
<div style="text-align: center">
<table>
<tr>
<td style="width: 150px; text-align: left">
Voornaam</td>
<td style="width: 300px">
<asp:TextBox ID="reg_voornaam" runat="server"></asp:TextBox>
<asp:Label ID="str_dec1" runat="server" ForeColor="Red" ></asp:Label> </td>
<td style="text-align: left; width: 15px;"><div align="center"><span class="style3">* </span></div></td>
</tr>
<tr>
<td style="width: 150px; text-align: left;">
Achternaam</td>
<td style="width: 300px">
<asp:TextBox ID="reg_achternaam" runat="server"></asp:TextBox>
<asp:Label ID="str_dec2" runat="server" ForeColor="Red" ></asp:Label> </td>
<td style="text-align: left; width: 15px;"><div align="center"><span class="style3">* </span></div></td>
</tr>
<tr>

<td style="width: 150px; text-align: left;">
Geboorte datum</td>
<td style="width: 300px">
<asp:TextBox ID="reg_geboortedatum" runat="server"></asp:TextBox>
<asp:Label ID="str_dec3" runat="server" ForeColor="Red" ></asp:Label> </td>
<td style="text-align: left; width: 15px;"><div align="center"><span class="style3">*</span></div></td>
</tr>
</table>
<br />
</div>
<table>
<tr>
<td style="width: 150px; text-align: left">
Straat</td>
<td style="width: 300px">
<asp:TextBox ID="reg_straat" runat="server"></asp:TextBox></td>
<td style="width: 15px"> </td>
</tr>
<tr>
<td style="width: 150px; text-align: left">
Huisnummer</td>
<td style="width: 300px">
<asp:TextBox ID="reg_huisnummer" runat="server"></asp:TextBox></td>
<td style="width: 15px"> </td>
</tr>
<tr>
<td style="width: 150px; text-align: left">
Woonplaats</td>
<td style="width: 300px">
<asp:TextBox ID="reg_woonplaats" runat="server"></asp:TextBox></td>
<td style="width: 15px"> </td>
</tr>
<tr>
<td style="width: 150px; text-align: left">
Postcode</td>
<td style="width: 300px">
<asp:TextBox ID="reg_postcode" runat="server"></asp:TextBox></td>
<td style="width: 15px">
</td>
</tr>
</table>
<br />
<table>
<tr>
<td style="width: 150px; text-align: left">
Telefoon nummer</td>
<td style="width: 300px">
<asp:TextBox ID="reg_telefoonnummer" runat="server"></asp:TextBox></td>
<td class="style3" style="width: 15px"> </td>
</tr>
<tr>
<td style="width: 150px; text-align: left">
Faxnummer</td>
<td style="width: 300px">
<asp:TextBox ID="reg_faxnummer" runat="server"></asp:TextBox></td>
<td class="style3" style="width: 15px"> </td>
</tr>
<tr>
<td style="width: 150px; text-align: left">
E-Mail</td>
<td style="width: 300px">
<asp:TextBox ID="reg_email1" runat="server"></asp:TextBox>
<asp:Label ID="str_dec4" runat="server" ForeColor="Red" ></asp:Label> </td>
<td class="style3" style="text-align: left; width: 15px;"><div align="center">* </div></td>
</tr>
<tr>
<td style="width: 150px; text-align: left">
E-Mail (controle)</td>
<td style="width: 300px">
<asp:TextBox ID="reg_email2" runat="server"></asp:TextBox>
<asp:Label ID="str_dec5" runat="server" ForeColor="Red" ></asp:Label> </td>
<td class="style3" style="text-align: left; width: 15px;"><div align="center">* </div></td>
</tr>
</table>
<asp:Label ID="str_dec6" runat="server" ForeColor="Red" ></asp:Label>
<br />
<table>
<tr>
<td style="width: 150px; text-align: left">
Geheime vraag</td>
<td style="width: 300px">
<asp:TextBox ID="reg_geheimevraag" runat="server"></asp:TextBox><asp:Label ID="str_dec10"
runat="server" ForeColor="Red"></asp:Label></td>
<td style="width: 15px">
<div align="center"><span class="style3">*</span></div></td>
</tr>
<tr>
<td style="width: 150px; text-align: left"> Geheim antwoord</td>
<td style="width: 300px">
<asp:TextBox ID="reg_geheimeantwoord" runat="server"></asp:TextBox><asp:Label ID="str_dec11"
runat="server" ForeColor="Red"></asp:Label></td>
<td style="width: 15px">
<div align="center"><span class="style3">*</span></div></td>
</tr>
</table>
<br />
<br />
<table>
<tr>
<td style="width: 150px; text-align: left">
Gebruikersnaam</td>
<td style="width: 300px">
<asp:TextBox ID="reg_gebruikersnaam" runat="server"></asp:TextBox>
<asp:Label ID="str_dec7" runat="server" ForeColor="Red" ></asp:Label> </td>
<td class="style3" style="text-align: left; width: 15px;"><div align="center">* </div></td>
</tr>
<tr>
<td style="width: 150px; text-align: left">
Wachtwoord</td>
<td style="width: 300px">
<asp:TextBox ID="reg_wachtwoord1" runat="server"></asp:TextBox>
<asp:Label ID="str_dec8" runat="server" ForeColor="Red" ></asp:Label> </td>
<td class="style3" style="text-align: left; width: 15px;"><div align="center">* </div></td>
</tr>
<tr>
<td style="width: 150px; text-align: left">
Wachtwoord cont</td>
<td style="width: 300px">
<asp:TextBox ID="reg_wachtwoord2" runat="server"></asp:TextBox>
<asp:Label ID="str_dec13"
runat="server" ForeColor="Red" ></asp:Label></td>
<td class="style3" style="text-align: left; width: 15px;">
<div align="center">*</div></td>
</tr>
</table>
<asp:Label ID="str_dec12" runat="server" ForeColor="Red"
></asp:Label><br />
De vakken met een * zijn verplicht<br />
<br />
<input id="checkvakje" runat="server" type="checkbox" />
Ik ga acoord met de <a href="file:///C|/Documents and Settings/All Users/Documenten/knorfski's site/paginas/voorwaarden.aspx">voorwaarden</a>
<asp:Label ID="str_dec9" runat="server" ForeColor="Red" ></asp:Label>
<br />
<br />
<asp:Button ID="submit" runat="server" Text="Registreer!" onclick="submit_info" />

</form>
</body>

</html>

Portfolio

woensdag 9 november 2005 21:20

Acties:

NMe

Quia Ego Sic Dico.

Sorry, maar hier kunnen we niks mee. Ga eerst eens debuggen om de relevante code te isoleren, en post alleen deze. Aan je hele code hebben we niets, het is niet de bedoeling dat wij in jouw plaats gaan debuggen.

Bovendien geef je erg weinig informatie. Wat gaat er fout? Krijg je een foutmelding? Gebeurt er niets? Ontploft je computer zomaar? Lees dus ook P&W FAQ - De "quickstart" even door.

Mocht je er na wat debuggen nog niet uit komen, dan kun je hier een nieuw topic openen. Hou je daarbij asjeblieft wel aan de FAQ die ik hierboven aanwijs. Bovendien bestaat er zoiets als de [code]-tag, zou je deze ook willen gebruiken als je code post?

PS: Schrijven schrijf je met een v.

[ Voor 8% gewijzigd door NMe op 09-11-2005 21:20 ]

'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.

Dit topic is gesloten.