Add New Record in Access DB

sidra · May 25th, 2008, 11:03 PM

Can anyone tell me how to remove the marked error on this page.

On running this page the error occurs that arguments dont match on the marked line.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!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">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Welcome User</title>
</head>

<body>
<h1>Welcome!</h1>
<p>Thank You for logging on at<%=time%>, <% =date%>
<p><h1>Add new record</h1>
<strong>
<%

    dim objCon, objRS, intEmpID
    set objCon=server.CreateObject("ADODB.Connection")
    set objRS=server.CreateObject("ADODB.Recordset")

    objCon.Open "DSN=test"
    objRS.Open "Employees", objCon, adOpenStatic,adLockBatchOptimistic, adCmdTable
        objRS.MoveLast

    response.Write(objRS("EmployeesID"))
    response.Write(objRS("FirstName"))
    response.Write(objRS("MiddleName"))
    response.write(objRS("EAddress"))

    %>
</strong>
</body>
</html>

Old Pedant · June 2nd, 2008, 01:13 PM

You have not *DEFINED* any values for adOpenStatic, etc.

You need to either include the "adovbs.inc" file or manually define those constants or just use the numbers.

That is:
(1)

but that assumes you *have* that file someplace in the same directory.

(2) Use CONST values:
    CONST adOpenStatic = 3
    CONST adLockOptimistic = 3
[just omit adCmdTable...you don't need it]

(3) As I said, just use the numbers directly:
    objRS.Open "Employees", objCon, 3, 3

Oh, and get rid of the
    objRS.MoveLast
line! It does ABSOLUTELY NOTHING except possibly hurt your performance.