Welcome to Dream.In.Code
Getting Help is Easy!

Join 132,368 Programmers for FREE! Get instant access to thousands of experts, tutorials, code snippets, and more! There are 1,321 people online right now. Registration is fast and FREE... Join Now!




Help with creating new row in MDB

 
Reply to this topicStart new topic

Help with creating new row in MDB, VB Script for input from webpage into access db

Kaybin
post 26 Aug, 2008 - 07:01 AM
Post #1


New D.I.C Head

*
Joined: 26 Aug, 2008
Posts: 1

I am using this code that we wrote to add a product that is input by a webuser into an access db. The DB is already created and the code works fine other than it not creating a new row. I would like each time that the user clicks on the save button, for the db to create a new record on that table with the info instead of constantly rewriting the first record on top of itself. Any ideas, I am sure I am just missing something obvious and am drawing a blank.

CODE
<%@ LANGUAGE=VBSCRIPT ENABLESESSIONSTATE=TRUE %>
<%
if Session("goodlogon") = "False" then
    response.redirect "nogood.asp"
end if

        Set dataConn = Server.CreateObject("ADODB.Connection")
                dataConn.ConnectionString="DSN=coopersburg"
                
                dataConn.Mode = adModeReadWrite
                dataConn.Open

set dataCmd = Server.CreateObject("ADODB.Command")
dataCmd.ActiveConnection = Session("dataConn")
    

if Request.Form("cmdSave") = "Save" then
    ProdPhoto = trim(Request.Form("ProdPhoto"))
    if trim(ProdPhoto) = "" then
        ProdPhoto = " "
    end if
    
    sqlcmd = "Update ProdDisplay set ProdName = '" & trim(Request.Form("ProdName")) & "', ProdPhoto = '" & ProdPhoto & "', ProdType = '" & trim(Request.Form("ProdType")) & "'"
    dataCmd.CommandText = sqlcmd
    set upd = server.CreateObject("ADODB.Recordset")
    set upd = dataCmd.Execute
    Response.Redirect "updated.asp"
end if


sqlcmd = "Select * from ProdDisplay"
dataCmd.CommandText = sqlcmd
set rs = Server.CreateObject("ADODB.Recordset")
set rs = dataCmd.Execute

  
%>
User is offlineProfile CardPM

Go to the top of the page

AdaHacker
post 26 Aug, 2008 - 09:39 AM
Post #2


D.I.C Head

**
Joined: 17 Jun, 2008
Posts: 162



Thanked 23 times
My Contributions


QUOTE(Kaybin @ 26 Aug, 2008 - 10:01 AM) *

CODE
sqlcmd = "Update ProdDisplay set ProdName = '" & trim(Request.Form("ProdName")) & "', ProdPhoto = '" & ProdPhoto & "', ProdType = '" & trim(Request.Form("ProdType")) & "'"


No offense intended, but this query suggests to me that you need to read some books or tutorials on SQL. Not only is it impossible to insert new records with this code, but what you have here will actually update every single record in the table when it is run. I can't imagine that's what you actually want.

For starters, in SQL you insert records via an INSERT query, not an UPDATE. The basic syntax is
SQL
INSERT INTO tablename (field1, field3, ...)
VALUES ('value1', 'value2', ...);

As for updates, if you want to change just a single record, you need to specify a WHERE clause in your query. Otherwise, the update will affect all records in the table. A basic example is:
SQL
UPDATE tablename SET field1 = 'value1', field2 = 'value2', ...
WHERE table_primary_key = 'primary_key_value';
User is offlineProfile CardPM

Go to the top of the page

Fast ReplyReply to this topicStart new topic
Time is now: 11/22/08 05:15AM

Live Help!

Tutorials

Programming

Web Development

Reference Sheets

Code Snippets

Bye Bye Ads

Free DIC T-Shirt

T-Shirt Example

Related Sites

Monthly Drawing

Thumb Drive

Partners

Top Contributors

Top 10 Kudos This Month