Results 1 to 5 of 5
  1. #1
    Join Date
    Nov 2004
    Posts
    13

    Unanswered: Help with ASP code to add record to MYSQL dbase

    Hi

    I have made the following code, this file is opened when my HTML form is submitted. When run, it does go through it, and works without error BUT DOES NOT ADD ANYTHING TO THE DATABASE!

    Please help


    <%
    'Dimension variables
    Dim adoCon 'Holds the Database Connection Object
    Dim rsAddComments 'Holds the recordset for the new record to be added
    Dim strSQL 'Holds the SQL query to query the database
    'Create an ADO connection object

    Set adoCon = Server.CreateObject("ADODB.Connection")
    'Set an active connection to the Connection object using a DSN-less connection

    adoCon.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=test;USER=***;PA SSWORD=***;OPTION=3;"
    'Create an ADO recordset object

    Set rsAddComments = Server.CreateObject("ADODB.Recordset")
    'Initialise the strSQL variable with an SQL statement to query the database



    strSQL ="SELECT tblUsers.User_Name, tblUsers.User_passwd, tblUsers.User_level, tblUsers.NAME, tblUsers.MAIL_ID, tblUsers.Place, tblUsers.COUNTRY FROM tblUsers;"

    'Set the cursor type we are using so we can navigate through the recordset

    rsAddComments.CursorType = 3

    'Set the lock type so that the record is locked by ADO when it is updated

    rsAddComments.LockType = 3
    'Open the recordset with the SQL query

    rsAddComments.Open strSQL, adoCon
    'Tell the recordset we are adding a new record to it

    strSQL="INSERT INTO tblUsers (User_Name,User_passwd,User_level,NAME,MAIL_ID,Pla ce,COUNTRY)"
    strSQL=strSQL & " VALUES "
    strSQL=strSQL & "('" & Request.Form("name") & "',"
    strSQL=strSQL & "'" & Request.Form("comments") & "',"
    strSQL=strSQL & "'" & ("= 1") & "',"
    strSQL=strSQL & "'" & Request.Form("USERNAME") & "',"
    strSQL=strSQL & "'" & Request.Form("MAIL_ID") & "',"
    strSQL=strSQL & "'" & Request.Form("Place") & "',"
    strSQL=strSQL & "'" & Request.Form("COUNTRY") & "')"



    'Write the updated recordset to the database
    rsAddComments.Update

    'Reset server objects

    rsAddComments.Close

    Set rsAddComments = Nothing

    Set adoCon = Nothing
    'Redirect to the asp page
    Response.Redirect "main.asp"

    %>

    THE HTML has

  2. #2
    Join Date
    Jul 2003
    Location
    SoCal
    Posts
    721
    the first thing I notice is here:

    strSQL="INSERT INTO tblUsers (User_Name,User_passwd,User_level,NAME,MAIL_ID,Pla ce,COUNTRY)"

    There is a space between "a" and "c" in "Place". Was this a typo, or actually im your code?
    That which does not kill me postpones the inevitable.

  3. #3
    Join Date
    Nov 2004
    Posts
    13
    Its just a TYPO in this when i pasted it

  4. #4
    Join Date
    Sep 2004
    Posts
    21
    Quote Originally Posted by adventure_ke

    'Set the cursor type we are using so we can navigate through the recordset

    rsAddComments.CursorType = 3

    'Set the lock type so that the record is locked by ADO when it is updated

    rsAddComments.LockType = 3
    'Open the recordset with the SQL query
    Instead of the above code, can you try the following:

    rsAddComments.CursorType = 0
    rsAddComments.CursorLocation = 2
    rsAddComments.LockType = 1

  5. #5
    Join Date
    Nov 2004
    Posts
    13
    Quote Originally Posted by softie()
    Instead of the above code, can you try the following:

    rsAddComments.CursorType = 0
    rsAddComments.CursorLocation = 2
    rsAddComments.LockType = 1

    If i switch locktype to 1: i get

    ADODB.Recordset error '800a0cb3'

    Current Recordset does not support updating. This may be a limitation of the provider, or of the selected locktype.

    /project/adduser.asp, line 56

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •