APPENDING TO A RECORD

sinner · February 25th, 2004, 11:50 PM

Hello all,

Is there a way to append to a record (add to it, not overwrite it)???
I am currently working on a VERY simple ticketing system and one of my fields is a comment box (text box form). I need to be able to append to the end of the text entered by user. The rest of the fileds can overwirte as they are always the same.
Is this a "good" way of doing it or should I send it to a text file??? Any help/ideas would be greatly appreciated.

Imar · February 26th, 2004, 04:19 AM

Hi there,

Yeah, you can easily append to the field. If you're using SQL statements for the update, try something like this:

UPDATE MyTable SET MyColumn = MyColumn + ' My New Value' WHERE MyTable.ID = 123

This will append the text My New Value to the text present in the MyColumn field for the record whose ID = 123.

Does this help? If not, can you post some of the code you already have?

Imar

---------------------------------------
Imar Spaanjaars
Everyone is unique, except for me.

sinner · April 4th, 2004, 08:19 PM

Hey guys,

I am trying to update a recordset that I display here, but have no idea how.

The form on the bottom is for updateing the commends field but i have no idea what the synthax should be.

I tried something like this but no luck:

<%
ConnString = "DSN=ticketbackup"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open ConnString,,,adOpenForwardOnly
Set rs = SERVER.CreateObject("ADODB.Recordset")

strSQL = "UPDATE ticket SET Comments = Comments + '"& request.form("upComments")&"' WHERE ticket.ID = rs.fields("Ticket_ID")"

rs.Open strSQL,conn, adOpenStatic

Following is the code for the entire page. Any help wou8ld be greatly appreciated

<html>

<head>
<title>View Trace Tickets</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
</head>

<body bgcolor="#000080">

<p align="center"><br>
</p>

<p align="center"> </p>
<%
ConnString = "DSN=ticketbackup"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open ConnString,,,adOpenForwardOnly
Set rs = SERVER.CreateObject("ADODB.Recordset")

strSQL = "SELECT * FROM ticket WHERE Ticket_type = 'OPEN' ORDER BY PSAP "

rs.Open strSQL,conn, adOpenStatic

%>

<form name="openedticket">
  <p><select name="open" size="1">
    <option value="NULL">LIST OF OPEN TICKETS BY PSAP</option>
<% Do While Not rs.EOF
                                    Response.Write ("<OPTION value='"& rs("PSAP") & "' >" & rs("PSAP") & "</option> ")
                                    rs.MoveNext
                                Loop
                                rs.Close
                                Set rs=Nothing %> </select><input type="submit" value="View">    </p>
</form>

<p> </p>
<%
Set rs = SERVER.CreateObject("ADODB.Recordset")

     strST=Request.QueryString("open")
     strSQL = "SELECT * FROM ticket WHERE PSAP = '" & strST & "'"

    ' Open Recordset Object
    rs.Open strSQL,conn,adOpenStatic

%>

<table border="1" width="100%">
  <tr>
    <td width="17%" bgcolor="#000080"><strong>Agency Name:</strong></td>
    <td width="83%"><%= rs.fields("PSAP") %> </td>
  </tr>
  <tr>
    <td width="17%" bgcolor="#000080"><strong>Ticket ID:</strong></td>
    <td width="83%"><%= rs.fields("Ticket_ID") %> </td>
  </tr>
  <tr>
    <td width="17%" bgcolor="#000080"><strong>Date Submitted </strong></td>
    <td width="83%"><%= rs.fields("Date_open") %> </td>
  </tr>
  <tr>
    <td width="17%" bgcolor="#000080"><strong>Time Submitted</strong></td>
    <td width="83%"><%= rs.fields("Time_open") %> </td>
  </tr>
  <tr>
    <td width="17%" bgcolor="#000080"><strong>Contact Number:</strong></td>
    <td width="83%"><%= rs.fields("Contact") %> </td>
  </tr>
  <tr>
    <td width="17%" bgcolor="#000080"><strong>Badge/Name:</strong></td>
    <td width="83%"><%= rs.fields("Badge") %> </td>
  </tr>
  <tr>
    <td width="17%" bgcolor="#000080"><strong>Trunk Number:</strong></td>
    <td width="83%"><%= rs.fields("Trunk") %> </td>
  </tr>
  <tr>
    <td width="17%" bgcolor="#000080"><strong>Reason for Request:</strong></td>
    <td width="83%"><%= rs.fields("Reason") %> </td>
  </tr>
  <tr>
    <td width="17%" bgcolor="#000080"><strong>Comments:</strong></td>
    <td width="83%"><%= rs.fields("Comments") %> </td>
  </tr>
</table>

<p> </p>

<form method="POST" action="--WEBBOT-SELF--">
<div align="center"><center><p><textarea rows="10" name="upComments" cols="60"></textarea><input
  type="submit" value="Update" name="B1"><input type="reset" value="Reset" name="B2"></p>
  </center></div>
</form>
</body>
</html>

Imar · April 5th, 2004, 01:15 AM

Hi there,

It would be useful if you'd describe what went wrong. Merely dumping your code with a "can you figure out the problem" is probably not going to work well.

Is this problem related to your initial post?

Imar

---------------------------------------
Imar Spaanjaars
Everyone is unique, except for me.

DaveGerard · June 2nd, 2004, 01:17 PM

Try this.

TicketId = request("TicketId")
Comments = request("Comments")

set rs = server.createobject("adodb.recordset")
sql = "select * from Ticket"
sql = sql & " where Ticket.Id = " & TicketId
rs.open sql, cn, 3, 3

    if rs.eof then
        rs.addnew
        rs("Id") = TicketId
    end if
        rs("Comments") = Comments
        rs.update