changing a checkbox value by using UPDATE?

zwanz · December 28th, 2004, 10:34 AM

I got the following code on my form page:

<%
    Dim Connection
    Dim Recordset
    Dim SQL
    Dim admincheck
    Dim admincheck2
    Dim uitgebreidcheck
    Dim uitgebreidcheck2

    Set Recordset = Server.CreateObject("ADODB.Recordset")
    Set Connection = Server.CreateObject("ADODB.Connection")

            Call Connection.Open("DRIVER={Microsoft Access Driver (*.mdb)};" & _
            "DBQ=" & Server.MapPath("HelpdeskI&A.mdb"))

            SQL = "SELECT * FROM tbl_klanten WHERE naam = '" & Request.Form("edtcontactpersoon") & "' "
        Call Recordset.Open(SQL, Connection)

       admincheck = CBool(Recordset("admin"))
       uitgebreidcheck = CBool(Recordset("uitgebreid"))

    If admincheck = True Then
admincheck2 = 1
Else
admincheck2 = 0
end if

    If uitgebreidcheck = True Then
uitgebreidcheck2 = 1
Else
uitgebreidcheck2 = 0
end if

%>

There are 2 checkboxes:

<input type="checkbox" name="edtuitgebreid" value="<%=CBool(uitgebreidcheck2)%>"<%if CBool(uitgebreidcheck2) Then Response.Write "checked" Else Response.Write "unchecked"%>>

and

<input type="checkbox" name="edtadmin" value="<%=CBool(admincheck2)%>"<%if CBool(admincheck2) Then Response.Write "checked" Else Response.Write "unchecked"%>>

When i submit my form, the following asp code will be launched:

<%
    Dim Connection
    Dim Recordset
    Dim SQL
    Dim admincheck
    Dim uitgebreidcheck

    Set Recordset = Server.CreateObject("ADODB.Recordset")
    Set Connection = Server.CreateObject("ADODB.Connection")

        Call Connection.Open("DRIVER={Microsoft Access Driver (*.mdb)};" & _
            "DBQ=" & Server.MapPath("HelpdeskI&A.mdb"))

admincheck = CBool(Request.Form("edtadmin"))
uitgebreidcheck = CBool(Request.Form("edtuitgebreid"))

    SQL = "UPDATE tbl_klanten SET username = '" _
     & Request ("edtusername") & "', " & _
     "admin = '" & ("admincheck") & "', " & _
     "uitgebreid = '" & uitgebreidcheck & "', " & _
     "password = '" & Request ("edtpassword") & "' WHERE " & _
     "tbl_klanten.naam = '" & Request ("edtcontactpersoon") & "'"

   Call Recordset.Open(SQL, Connection)

%>

Unfortunately something goes wrong, i get the following error:

Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)
[Microsoft][ODBC Microsoft Access-stuurprogramma] Gegevenstypen komen niet overeen in criteriumexpressie.
/Website/beheer_gebruiker_aanpassen_query.asp, line 30

POST Data:
edtcontactpersoon=Prijs&edtusername=P670850&edtpas sword=5t3bmtrp&edtuitgebreid=True&edtadmin=True&ve rzenden=Verstuur

(in english = TYPE mismatch )
Something goes wrong with the checkboxes and their values (1 or true or..) so they cannot be updated in the database but i dont know what ;(. In the database both columns are (yes/no) checks

Any help is appreciated :)

sureshbabu · December 29th, 2004, 12:25 AM

Hi, i hope you will understand by seeing the following code.
Thanks
Suresh

This is the front end(While displaying)
-------------------------
<%@ Language=VBScript %>
<%
'Here Open Recordset ..Suppose Recordset name is objRs and x and y are the fileds in the database Then
Dim checkX
Dim checkY
If objRs("x") = 1 Then
    checkX = "Checked"
Else
    ckeckX =""
End if
If objRs("y") = 1 Then
    checkY ="Checked"
Else
    checkY =""
End If
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<form name=fCheck action=check.asp method=post>
X:<input type=checkbox name=x <%=checkX%>><br>
Y:<input type=checkbox name=y <%=checkY%>>
<input type=submit value=submit>
</form>
<P> </P>

</BODY>
</HTML>
----------------------------------------------------------------

While Saving do as follows..
----------------------

But evn in database you have "Yes/No" you can send values as "1" or "0". If you send "1" it will be checked" and if we send "0" it will be unchecked. When ever you are retriving you will get values like "1" or "0".
While saving do as follows.
Dim xCheck
Dim yCheck
If Request.form("x") ="on" Then
    xCheck = 1
Else
    xCheck=0
End If
If Request.form("y") ="on" Then
    yCheck = 1
Else
    yCheck=0
End If

Now save these two values(xCheck,yCheck) into database.