Database Code
  Home arrow Database Code arrow Adding new records example by David Lohman...
ASP Free Forums 
.NET  
ASP  
ASP Code  
ASP.NET  
ASP.NET Code  
BrainDump  
C#  
Code Examples  
Database  
Database Code  
IIS  
Microsoft Access  
MS SQL Server  
Visual Basic.NET  
Windows Scripting  
Windows Security  
XML  
ASP Web Hosting  
ASP.NET Web Hosting 
Mobile Linux 
App Generation ROI 
Windows Web Hosting
 
IBM® developerWorks 
Sun Developer Network 
Weekly Newsletter
 
Developer Updates  
Free Website Content 
 RSS  Articles
 RSS  Forums
 RSS  All Feeds
Write For Us Get Paid 
Request Media Kit
Contact Us 
Site Map 
Privacy Policy 
Support 
 USERNAME
 
 PASSWORD
 
 
  >>> SIGN UP!  
  Lost Password? 
DATABASE CODE

Adding new records example by David Lohmann
By: aspfree
  • Search For More Articles!
  • Disclaimer
  • Author Terms
  • Rating: 3 stars3 stars3 stars3 stars3 stars / 15
    2000-08-16

    Table of Contents:

    Rate this Article: Poor Best 
      ADD THIS ARTICLE TO:
      Del.ici.ous Digg
      Blink Simpy
      Google Spurl
      Y! MyWeb Furl
    Email Me Similar Content When Posted
    Add Developer Shed Article Feed To Your Site
    Email Article To Friend
    Print Version Of Article
    PDF Version Of Article
     
     
    ADVERTISEMENT


     

    This form takes all the hard work out of matching up form field names with your database fields when adding new records.  It automatically creates a DSN-Less connection and all the ADO commands necessary to add records to an Access database without the need for a Connection Object. As it stands it can accommodate up to 20 fields, but is easily extendable.

    <%@language=vbscript%>
    <!--****Use this code freely. Just remember me when you're recruiting!!!****
    //****Dave Lohmann dloh@uk2.net****-->

    <%

    dim sent, dbcon, folder, file, rsname, table, csr1, csr2

    sent=request.form("sent")

    'This code decides whether to show the input form or the results

    If sent="true" then

    'Set the variables for the input form

    dbcon=request.form("T1")
    folder=request.form("T2")
    file=request.form("T3")
    table=request.form("T4")
    rsname=request.form("T5")
    csr1=request.form("T6")
    csr2=request.form("T7")
    fld1=request.form("T8")
    fld2=request.form("T9")
    fld3=request.form("T10")
    fld4=request.form("T11")
    fld5=request.form("T12")
    fld6=request.form("T13")
    fld7=request.form("T14")
    fld8=request.form("T15")
    fld9=request.form("T16")
    fld10=request.form("T17")
    fld11=request.form("T18")
    fld12=request.form("T19")
    fld13=request.form("T20")
    fld14=request.form("T21")
    fld15=request.form("T22")
    fld16=request.form("T23")
    fld17=request.form("T24")
    fld18=request.form("T25")
    fld19=request.form("T26")
    fld20=request.form("T27")

    response.write "<b>This code will add a new record to your database.</b><br>"
    response.write "<b>Copy and paste it into your ASP page.</b><p>"
    response.write "&lt;%<br>"

    ' Create your connection
    response.write dbcon&" = ""DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=""&Server.mapPath("&""""

    ' If your database is in a folder, this needs to be put into the path.
    ' On the form you can indicate several levels e.g. home\mydata\databases

    if folder<>"" then
    response.write folder&"\"
    end if

    ' The filename of your database
    response.write file&".mdb"")<p>"

    'If you name your database fields with the same name as your form input fields,
    'this next bit takes all the hard work out of writing the correct code.

    response.write "Set "&rsname&"=Server.CreateObject("&"""ADODB.Recordset"&""")<br>"
    response.write rsname&".Open "&""""&table&""", "&dbcon&", "&csr1&", "&csr2&"<p>"
    response.write rsname&".AddNew<br>"
    if fld1<>"" then response.write rsname&"("""&fld1&""")=Request.form("""&fld1&""")<br>"
    if fld2<>"" then response.write rsname&"("""&fld2&""")=Request.form("""&fld2&""")<br>"
    if fld3<>"" then response.write rsname&"("""&fld3&""")=Request.form("""&fld3&""")<br>"
    if fld4<>"" then response.write rsname&"("""&fld4&""")=Request.form("""&fld4&""")<br>"
    if fld5<>"" then response.write rsname&"("""&fld5&""")=Request.form("""&fld5&""")<br>"
    if fld6<>"" then response.write rsname&"("""&fld6&""")=Request.form("""&fld6&""")<br>"
    if fld7<>"" then response.write rsname&"("""&fld7&""")=Request.form("""&fld7&""")<br>"
    if fld8<>"" then response.write rsname&"("""&fld8&""")=Request.form("""&fld8&""")<br>"
    if fld9<>"" then response.write rsname&"("""&fld9&""")=Request.form("""&fld9&""")<br>"
    if fld10<>"" then response.write rsname&"("""&fld10&""")=Request.form("""&fld10&""")<br>"
    if fld11<>"" then response.write rsname&"("""&fld11&""")=Request.form("""&fld11&""")<br>"
    if fld12<>"" then response.write rsname&"("""&fld12&""")=Request.form("""&fld12&""")<br>"
    if fld13<>"" then response.write rsname&"("""&fld13&""")=Request.form("""&fld13&""")<br>"
    if fld14<>"" then response.write rsname&"("""&fld14&""")=Request.form("""&fld14&""")<br>"
    if fld15<>"" then response.write rsname&"("""&fld15&""")=Request.form("""&fld15&""")<br>"
    if fld16<>"" then response.write rsname&"("""&fld16&""")=Request.form("""&fld16&""")<br>"
    if fld17<>"" then response.write rsname&"("""&fld17&""")=Request.form("""&fld17&""")<br>"
    if fld18<>"" then response.write rsname&"("""&fld18&""")=Request.form("""&fld18&""")<br>"
    if fld19<>"" then response.write rsname&"("""&fld19&""")=Request.form("""&fld19&""")<br>"
    if fld20<>"" then response.write rsname&"("""&fld20&""")=Request.form("""&fld20&""")<br>"
    response.write rsname&".Update<br>"
    response.write rsname&".Close<br>"
    response.write "Set "&rsname&"=Nothing<p>"
    response.write "Response.write ""&lt;center&gt;&lt;b&gt;Record Added!&lt;/b&gt;&lt;/center&gt;"""
    response.write "<br>%&gt;"

    Else

    'This is the code for the html input form
    %>
    <html>

    <head>
    <meta http-equiv="Content-Type"
    content="text/html; charset=iso-8859-1">
    <meta name="GENERATOR" content="Microsoft FrontPage Express 2.0">
    <title>Add records to a database using ADO and a DSN-Less Connection</title>
    </head>

    <body bgcolor="#FFFFFF">

    <h1 align="center">ADO Input Code Generator</h1>

    <h4 align="center">(For Microsoft Access)</h4>

    <hr>

    <form action="addrecord.asp" method="POST">
    <input type="hidden" name="sent" value="true"><div
    align="center"><center><table border="0" cellpadding="4"
    cellspacing="0" width="80%">
    <tr>
    <td align="right" colspan="2" width="50%"><p
    align="right">Database Connection Variable:</p>
    </td>
    <td colspan="2" width="50%"><p align="left"><input
    type="text" size="20" name="T1" value="strConn"></p>
    </td>
    </tr>
    <tr>
    <td align="right" colspan="2" width="50%"><p
    align="right">Database Folder:</p>
    </td>
    <td colspan="2" width="50%"><p align="left"><input
    type="text" size="20" name="T2"></p>
    </td>
    </tr>
    <tr>
    <td align="right" colspan="2" width="50%"><p
    align="right">Database Filename:</p>
    </td>
    <td colspan="2" width="50%"><p align="left"><input
    type="text" size="20" name="T3">.mdb</p>
    </td>
    </tr>
    <tr>
    <td align="right" colspan="2" width="50%"><p
    align="right">Database Table Name:</p>
    </td>
    <td colspan="2" width="50%"><p align="left"><input
    type="text" size="20" name="T4"></p>
    </td>
    </tr>
    <tr>
    <td align="right" colspan="2" width="50%"><p
    align="right">Recordset Variable Name:</p>
    </td>
    <td colspan="2" width="50%"><p align="left"><input
    type="text" size="20" name="T5" value="ObjRs"></p>
    </td>
    </tr>
    <tr>
    <td align="right" colspan="2" width="50%"><p
    align="right">Cursor Type 1:</p>
    </td>
    <td colspan="2" width="50%"><p align="left"><input
    type="text" size="20" name="T6" value="2"></p>
    </td>
    </tr>
    <tr>
    <td align="right" colspan="2" width="50%"><p
    align="right">Cursor Type 2:</p>
    </td>
    <td colspan="2" width="50%"><p align="left"><input
    type="text" size="20" name="T7" value="2"></p>
    </td>
    </tr>
    <tr>
    <td align="center" colspan="4"><hr><b>(Name the input
    elements on your form to match the names of your
    database fields.)</b><hr></td>
    </tr>
    <tr>
    <td align="right" width="25%">Input 1:</td>
    <td width="25%"><input type="text" size="20"
    name="T8"></td>
    <td width="25%"><p align="right">Input 11:</p>
    </td>
    <td width="25%"><input type="text" size="20"
    name="T18"></td>
    </tr>
    <tr>
    <td align="right" width="25%">Input 2:</td>
    <td width="25%"><input type="text" size="20"
    name="T9"></td>
    <td width="25%"><p align="right">Input 12:</p>
    </td>
    <td width="25%"><input type="text" size="20"
    name="T19"></td>
    </tr>
    <tr>
    <td align="right" width="25%">Input 3:</td>
    <td width="25%"><input type="text" size="20"
    name="T10"></td>
    <td width="25%"><p align="right">Input 13:</p>
    </td>
    <td width="25%"><input type="text" size="20"
    name="T20"></td>
    </tr>
    <tr>
    <td align="right" width="25%">Input 4:</td>
    <td width="25%"><input type="text" size="20"
    name="T11"></td>
    <td width="25%"><p align="right">Input 14:</p>
    </td>
    <td width="25%"><input type="text" size="20"
    name="T21"></td>
    </tr>
    <tr>
    <td align="right" width="25%">Input 5:</td>
    <td width="25%"><input type="text" size="20"
    name="T12"></td>
    <td width="25%"><p align="right">Input 15:</p>
    </td>
    <td width="25%"><input type="text" size="20"
    name="T22"></td>
    </tr>
    <tr>
    <td align="right" width="25%">Input 6:</td>
    <td width="25%"><input type="text" size="20"
    name="T13"></td>
    <td width="25%"><p align="right">Input 16:</p>
    </td>
    <td width="25%"><input type="text" size="20"
    name="T23"></td>
    </tr>
    <tr>
    <td align="right" width="25%">Input 7:</td>
    <td width="25%"><input type="text" size="20"
    name="T14"></td>
    <td width="25%"><p align="right">Input 17:</p>
    </td>
    <td width="25%"><input type="text" size="20"
    name="T24"></td>
    </tr>
    <tr>
    <td align="right" width="25%">Input 8:</td>
    <td width="25%"><input type="text" size="20"
    name="T15"></td>
    <td width="25%"><p align="right">Input 18:</p>
    </td>
    <td width="25%"><input type="text" size="20"
    name="T25"></td>
    </tr>
    <tr>
    <td align="right" width="25%">Input 9:</td>
    <td width="25%"><input type="text" size="20"
    name="T16"></td>
    <td width="25%"><p align="right">Input 19:</p>
    </td>
    <td width="25%"><input type="text" size="20"
    name="T26"></td>
    </tr>
    <tr>
    <td align="right" width="25%">Input 10:</td>
    <td width="25%"><input type="text" size="20"
    name="T17"> </td>
    <td width="25%"><p align="right">Input 20:</p>
    </td>
    <td width="25%"><input type="text" size="20"
    name="T27"></td>
    </tr>
    </table>
    </center></div><p align="center"><input type="submit"
    name="B1" value="Submit">&nbsp;<input type="reset" name="B2"
    value="Reset"></p>
    </form>
    </body>
    </html>
    <%End if%>


    DISCLAIMER: The content provided in this article is not warranted or guaranteed by Developer Shed, Inc. The content provided is intended for entertainment and/or educational purposes in order to introduce to the reader key ideas, concepts, and/or product reviews. As such it is incumbent upon the reader to employ real-world tactics for security and implementation of best practices. We are not liable for any negative consequences that may result from implementing any information covered in our articles or tutorials. If this is a hardware review, it is not recommended to open and/or modify your hardware.

    More Database Code Articles
    More By aspfree

     

    IBM® developerWorks developerWorks - FREE Tools!


    NEW! Accelerating Software Innovation on i on Power Systems

    Attend this launch webcast with Scott Hebner, Vice President of IBM Rational Marketing and Strategy, for an overview of Rational’s new software offerings and resources to help modernize and accelerate software innovation on i on Power Systems – while ensuring past application investments are protected and continue to grow. Learn how these solutions are helping customers extend their core i5/OS solutions toward modern architectures such as SOA and web technologies to deliver business improvements that stand the test of time.
    FREE! Go There Now!


    NEW! Applying lean thinking to the governance of software development

    Effective governance for lean development isn’t about command and control. Instead, the focus is on enabling the right behaviors and practices through collaborative and supportive techniques. Hear from Scott Ambler on how it is far more effective to motivate people to do the right thing than it is to force them to do so. Learn how to form a lightweight, collaboration-based framework that reflects the realities of modern IT organizations.
    FREE! Go There Now!


    NEW! Download DB2 9.5 for Linux, Unix, and Windows

    Download a free trial version of IBM DB2 9.5 for Linux, UNIX, and Windows. DB2 9 is the result of a five-year development project that transformed traditional (static) database technology into an interactive data server that merges the high performance and ease of use of DB2 with the self-describing benefits of XML.
    FREE! Go There Now!


    NEW! IBM Enterprise Modernization Sandbox for System z

    IBM Enterprise Modernization solutions help organizations evolve core IT systems towards modern architectures and technologies—reducing the burden of maintenance and freeing up resources to develop new business requirements and capabilities. With the IBM Enterprise Modernization Sandbox for System z you can evaluate IBM Enterprise Modernization solutions focused on five key areas: Assets, Architectures, Skills, Processes and Infrastructures, and Investment. Each solution is based upon real customer experiences and offers a proven path to get you started with your modernization projects.
    FREE! Go There Now!


    NEW! IBM Rational Systems Development e-Kit

    As systems increase in complexity, communication between systems and software teams becomes more and more difficult. Now, there’s a way to improve product quality and communication.<br />Read the “Model Driven Systems Development” white paper to see how. Also included in this kit are more educational white papers, customer examples, tutorials, informative Webcasts, and best practices for designing, building and managing systems.<br />
    FREE! Go There Now!


    NEW! Integrating XML into Your Enterprise Using Data Federation

    XML has become a common way of storing business data as flat files and many data server vendors including IBM have provided ways to store this data within relational database systems. Increasingly collections of XML files are accessed like databases using an xQuery and other XML standard mechanisms. Businesses find the need to combine the traditional tabular structured data with XML formatted data. In this webcast, you’ll learn about IBM’s WebSphere Federation Server technology, which provides users with the ability to integrate these two data formats.
    FREE! Go There Now!


    NEW! Rational Talks to You: Scott Ambler on being agile in a global development environment

    Join this Rational Talks to You teleconference on December 6 at 1:00 pm ET to participate in an agile application development discussion and get your questions answered on using IBM Rational Method Composer in a distributed environment.Get your questions answered!
    FREE! Go There Now!


    NEW! Webcast: Accelerating Software Innovation with System z

    Attend this launch webcast with Scott Hebner, Vice President of IBM Rational Marketing and Strategy, where he will overview Rational’s new offerings and programs to help customers accelerate software innovation on System z. He will discuss how these solutions help organizations extend their core business processes toward modern architectures such as SOA and web technologies to deliver business improvements that stand the test of time.
    FREE! Go There Now!


    NEW! Webcast: Extreme transaction processing with WebSphere Extended Deployment

    In this webcast, you'll get an introduction to the eXtreme Transaction Processing (XTP) features of WebSphere Extended Deployment and the common architectural traits required by XTP applications. See how WebSphere Extended Deployment's ObjectGrid feature provides a state-of-the-art infrastructure for hosting XTP applications.
    FREE! Go There Now!


    NEW! Webcast: What is new in Viper 2 for developers?

    Viper 2 brings a great value to developer communities including SQL, XML, PHP, Ruby, .NET and Java. You probably already know that DB2 Express-C is free for developers to develop, deploy and distribute. Viper 2 provides a variety of means that help move your application from the development stage to deployment more rapidly. This webcast shows how to best utilize the latest tools available for developing DB2 applications.
    FREE! Go There Now!



    All FREE IBM® developerWorks Tools!

    DATABASE CODE ARTICLES

    - Deployment of the MobiLink Synchronization M...
    - MobiLink Synchronization Wizard in SQL Anywh...
    - Finding Matching Records in Data Access Pages
    - Using the AccessDataSource Control in VS 2005
    - A Closer Look at ADO.NET: The Command Object
    - A Closer Look at ADO.NET: The Connection Obj...
    - Using ADO to Communicate with the Database, ...
    - Code Snippets: Counting Records
    - Constraints In Microsoft SQL Server 2000
    - Multilingual entries into a DB and to be dis...
    - Getting A List of Tables From SQL Server
    - SQL Server Database Creator - .NET Version
    - ADO Recordset Paging
    - Two combos, one textbox example
    - Discussion & Listserv Module by Mike Eck...





    © 2003-2008 by Developer Shed. All rights reserved. DS Cluster 3 hosted by Hostway
    Stay green...Green IT