delete record

delete record (Full Version)

All Forums >> [Web Development] >> ASP and Database

Message

Brandon -> delete record (12/30/2004 12:43:40)

Hey guys...I need help with getting this code to work.....Can anyone tell me whats wrong???

</head>

<body>
<!--#INCLUDE VIRTUAL="/includes/connection.asp" -->

<%
DIM mySQL, objRS
mySQL = "SELECT LastName FROM PatientRegistration"
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open mySQL, objConn
%>

<p>Please enter the name that you would like to delete:</p>


<form name="DeleteRecord" method="Post" action="confirm.asp">
<table>
<tr><td>Name: </td>
<td><input type="text" name="LastName" value="Last Name" size="21"></td></tr>
</table>
<input type="submit" name="Submit" value="Submit">
</body>

</html>

<%
DIM strLastName
strState = Request.Form("LastName")
IF strLastName<> "" THEN
%>

<!--#INCLUDE VIRTUAL="/includes/connection.asp" -->

<%
DIM mySQL, objRS
mySQL = "SELECT * FROM PatientRegistration WHERE LastName = ' " & strLastName& " ' "
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open mySQL, objConn, adOpenKeyset, adLockPessimistic, adCmdText

IF objRS.EOF THEN
Response.Write "Sorry, you are not inrolled in this class. Please click back on your browser and enter a different name."

ELSE
objRS.MoveFirst
objRS.Delete
objRS.Close
Set objRS = Nothing

Response.Write "" & strLastName & " has been succesffully deleted from your database."
END IF

objRS.Close
Set objRS = Nothing
objCONN.Close
Set objCONN = Nothing
%>

<%
ELSE
Response.Write "Please click back on your browser and select a name to delete."
END IF
%>

dpf -> RE: delete record (12/30/2004 12:52:45)
what is it doing? does it work? what happens when you run it? shouldnt this section be looping to find it? ELSE objRS.MoveFirst objRS.Delete objRS.Close Set objRS = Nothing

Brandon -> RE: delete record (12/30/2004 13:05:03)
well right now when i run it all it does is print the "Response.Write "Please click back on your browser and select a name to delete." line.....if i put loop in there i get this Microsoft VBScript compilation error '800a040e' 'loop' without 'do' /confirm.asp, line 33 Loop

dpf -> RE: delete record (12/30/2004 13:09:15)
one step at a time. on your first page, what is the purpose of the recordset? it doesnt appear to me that you are writing the names into the form fror the user to chose one (which is one way of doing it). it appears to me that you have just provided an input text for them to key in a name which will be passed to the asp page, thus my question: what is the purpose of that asp code in page 1?

dpf -> RE: delete record (12/30/2004 13:12:53)
am i correct in assuming that people has signed up for a class and this is how they can resign(delete)? if they type in a name, you wont find it unless they type it in exactly the way it is in your database, right? if you bring all the names into a select structure and let them choose one, dont you run the risk of someone deviously deleting someone else? just thoughts

Brandon -> RE: delete record (12/30/2004 13:18:06)
yeah all this was suppost to be was they type there name in and it takes them out of the class.....that was one of my concerns that they wouldn't type there name in right.....so how can i fix this so they can select there name....should i just start all over or can i use some stuff in this code....

dpf -> RE: delete record (12/30/2004 13:32:48)
the cleanest way to get the delete, in my limited experience, would be to read the names from th db into a select field in a form, then let them select one which is passed to anaother page which deletes. however, before you do that, think about my previous comment. is this a secure area? if not, any knuckhead in the world stumbling upon you page could depete all the records. however, if you have already assigned some sort of user code or password, then you can use that to test before processing the delete. in fact, if that is in the db, i suspect you could just have them enter that - then you would go to the db and get that name and post back to a form where they confirm that is what they want to delete. and then they submit to delete. does that make sense?

Brandon -> RE: delete record (12/30/2004 13:46:51)
its on our intranet....so just are employee's will be able to add there names and delete.......so your saying then i should have a page where they can pick there name...and after selecting there name...they can click a botton and it will delete it???

Spooky -> RE: delete record (12/30/2004 13:51:02)
You should really be using the ID of the record you wish to delete. What if someone has the same last name?

dpf -> RE: delete record (12/30/2004 13:54:39)

exactly...here is a simple one i did in an asp course i just took ..you need two files..first to display the name so they can select one:

<!--#Include virtual="adovbs.inc"-->
<%
Dim Conn, RS
Set Conn=Server.CreateObject("ADODB.Connection")
Set RS=Server.CreateObject("ADODB.Recordset")
 

Conn.Open
RS.Open "contact",Conn,adOpenkeyset,adLockoptimistic,adCmdTable
%>
<html><head><title>Delete From My Database</title></head>
<body>
<form method="post" action="deleteprocess.asp">
<select name="deleteit">

<%
Do Until RS.EOF%>
<option
value="<%=RS.Fields("contact_id")%>"><%=RS.Fields("lname")%></option>
<%RS.MoveNext
Loop%>
</select>
<input type="submit"  name="delete" value="Delete Name">
</form>


 <%
 RS.close
 Set RS=Nothing
 Conn.close
 Set Conn=Nothing
 %>
  
</body></html>

and the second file to do the deletion based upon their selection

<!--#Include virtual="adovbs.inc"-->
<%
Dim Conn,id,numaffected,statement
id=Request.Form("deleteit")

Set Conn=Server.CreateObject("ADODB.Connection")

 

Conn.Open
statement="DELETE FROM  contact WHERE contact_id=" & id
Conn.Execute statement,numaffected,adCmdText

 Conn.close
  
 Set Conn=Nothing
 %>

not real sophisticated but it will give you an idea

Brandon -> RE: delete record (12/30/2004 13:56:09)
oooooo....good point spooky[:o]

dpf -> RE: delete record (12/30/2004 13:57:09)
yea, very good point - notice in mine, it is grabbing the id and putting that into the value to be processed but displaying the name for the user to select. based upon spookys point, you would want to display last name and first name

Brandon -> RE: delete record (12/30/2004 14:20:51)
ok....i'm getting this error....Microsoft OLE DB Provider for ODBC Drivers error '80004005' [Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified with that code dpf.....what did i leave out??

dpf -> RE: delete record (12/30/2004 14:24:22)
oh..i deleted my part about the connection method.. are you using a dsn to connect? if you are, see where it says Conn,open? you follow that with a space and the name of your dsn, i think in quotes <edit> i cant remember.. it might be Conn.open "DSN = dsnName" not sure

Brandon -> RE: delete record (12/30/2004 14:35:20)
man...i'm making this hard for you.....but i'm not using DSN....

dpf -> RE: delete record (12/30/2004 14:43:45)
not making it hard for me.. you have no idea how much it thrills me to have justa tad of asp knowledge and be able to help..... until I run out of ideas and spooky or rdouglas or someone has to bail us out.. lol.. ok no dsn.. you said an intranet. in the first code you posted, you had this: <!--#INCLUDE VIRTUAL="/includes/connection.asp" --> does that include a connection string? maybe you just need to put that at the top. what kind of database?

Brandon -> RE: delete record (12/30/2004 15:30:08)
yes its a access db.....and <!--#INCLUDE VIRTUAL="/includes/connection.asp" --> includes my connection....OK....no errors [:D]...but nothing is showing up in the dropdown box

dpf -> RE: delete record (12/30/2004 15:54:26)
did you modify this: quote: value="<%=RS.Fields("contact_id")%>"><%=RS.Fields("lname")%></option> to match your db names? contact_id and lname were names from my db

Brandon -> RE: delete record (12/30/2004 15:58:58)
yeah i changed them to LastName....my fields are.... ID, LastName, FirstName, Office

dpf -> RE: delete record (12/30/2004 16:02:34)
ok... in this, "contact" is my table name..did you change it to the name of your table (not the db name)? quote: Conn.Open RS.Open "contact",Conn,adOpenkeyset,adLockoptimistic,adCmdTable

Brandon -> RE: delete record (12/30/2004 16:17:45)

This is what I did...

<!--#INCLUDE VIRTUAL="/includes/connection.asp" -->
<%
Dim Conn, RS
Set Conn=Server.CreateObject("ADODB.Connection")
Set RS=Server.CreateObject("ADODB.Recordset")
 

Conn.Open
RS.Open "PatientRegistration",Conn,adOpenkeyset,adLockoptimistic,adCmdTable
%>
<html><head><title>Delete From My Database</title></head>
<body>
<form method="post" action="deleteprocess.asp">
<select name="deleteit">

<%
Do Until RS.EOF%>
<option
value="<%=RS.Fields("ID")%>"><%=RS.Fields("LastName")%></option>
<%RS.MoveNext
Loop%>
</select>
<input type="submit"  name="delete" value="Delete Name">
</form>


 <%
 RS.close
 Set RS=Nothing
 Conn.close
 Set Conn=Nothing
 %>
  
</body></html>

dpf -> RE: delete record (12/30/2004 16:22:38)
frankly I am stumped - sorry - have to wait for one of the experts to come along.. good luck

Brandon -> RE: delete record (12/30/2004 16:25:53)
ok ..thanks

Spooky -> RE: delete record (12/30/2004 17:06:19)
What does deleteprocess.asp look like?

Brandon -> RE: delete record (12/30/2004 17:09:05)

<!--#INCLUDE VIRTUAL="/includes/connection.asp" -->
<%
Dim Conn,id,numaffected,statement
id=Request.Form("deleteit")

Set Conn=Server.CreateObject("ADODB.Connection")

 

Conn.Open
statement="DELETE FROM  LastName WHERE LastName_id=" & id
Conn.Execute statement,numaffected,adCmdText

 Conn.close
  
 Set Conn=Nothing
 %>

and this is the error i'm getting.....
Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified

/deleteit.asp, line 8

Spooky -> RE: delete record (12/30/2004 18:50:56)
Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open <-- Open what? youll need the db connection from the include file statement="DELETE FROM LastName WHERE LastName_id=" & cint(id) <-- Lastname is the name of your table? Conn.Execute(statement),,129 Conn.close Set Conn=Nothing

Brandon -> RE: delete record (12/30/2004 19:30:00)

this is my include file code.....

<%
DIM objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath ("/fpdb/class.mdb") & ";"
objConn.Open
%>

how do I add it in...

Spooky -> RE: delete record (12/30/2004 19:58:35)
Youve already opened the connection then if thats the case, so just use the remaining code: statement="DELETE FROM LastName WHERE LastName_id=" & cint(id) Conn.Execute(statement),,129 Conn.close Set Conn=Nothing

Brandon -> RE: delete record (1/5/2005 1:53:49)
Thanks for all your help guys....got it working....

Page: [1]

0.09375