Update an access table
Hello, I have a code that should add a record to a table but it does not work .....could any one help me
<%on error resume next
Dim conn
Dim rs
Dim mySQL
Const adLockOptimistic = 3
Const adCmdText = 1
Const adUseClient = 3
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
Const adCmdTableDirect = 0
set conn=Server.CreateObject("ADODB.Connection")
conn.provider="Microsoft.Jet.OLEDB.4.0"
conn.open "\\10.91.32.34\Comc\summary_db.mdb"
mySQL = "INSERT INTO tblReconc_and_Controls (Global_Reference_No,RAM_Ref_No, Report_Name,Category, Objective, Location, Person_Monitoring, Applicable_Item(Y/N), Report_or_Audit, Frequency, System, SOX 404, Date_Last_Updated, Number_of_Lines, Percentage_Change_to_Previous_Run, Number_of_Customers, Date_To_be_Updated, Rectified_Reviewed)"
mySQL = mySQL & " VALUES ('" & request.form("Global_Reference_No") & "','" & request.form("RAM_Ref_No") & "','" & request.form(" Report_Name") & "','" & request.form("Category") & "','" & request.form(" Objective") & "','" & request.form(" Location") & "','" & request.form(" Person_Monitoring") & "','" & request.form(" Applicable_Item(Y/N)") & "','" & request.form(" Report_or_Audit") & "','" & request.form(" Frequency") & "','" & request.form(" System") & "','" & request.form(" SOX 404") & "','" & request.form(" Date_Last_Updated") & "','" & request.form(" Number_of_Lines") & "','" & request.form(" Percentage_Change_to_Previous_Run") & "','" & request.form(" Number_of_Customers") & "','" & request.form(" Date_To_be_Updated") & "','" & request.form(" Rectified_Reviewed") & "')"
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM tblReconc_and_Controls", conn,adOpenKeyset, adLockOptimistic
Conn.execute(mySQL)
rs.Resync
Response.write "<BR><BR>"
Response.write("You have Added the Record " & Request.Form("ReportID"))
Response.write "<B>Thank you!</B>"
rs.Close
conn.close
Set rs = Nothing
Set conn = Nothing
%>
<BR>
</body>
</html>
|
