Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations gkittelson on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
how to create button to delete record?
- Thread starter BEJW
- Start date
DELETE FROM table_name
WHERE column_name = some_value
Your Welcome
if you need any more help can you give up a little more detailed explanation on what you are doing and what the situation is?
____________________________________________________
get the best answer to your questions by asking the best questions "General FAQ" faq333-2924
WHERE column_name = some_value
Your Welcome
if you need any more help can you give up a little more detailed explanation on what you are doing and what the situation is?
____________________________________________________
get the best answer to your questions by asking the best questions "General FAQ" faq333-2924
- Thread starter
- #3
Thanks onpnt.
The following are my codes. I try to delete, add new..., but I don't know how to get them. Thanks again
JW
*******************
<HTML>
<HEAD>
<TITLE> CLINICAL DATABASE</TITLE>
</HEAD>
<BODY>
<CENTER>
<H1><FONT size=8>Clinical Database</H1></FONT>
<%=FormatDateTime(Now(),1) %>
<%
dim myconnection
dim rsPatientInfo
dim connectString
dim sqlString
dim requestPatientID
connectString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=C:\Inetpub\
set myConnection = Server.CreateObject("ADODB.Connection"
set rsPatientInfo = Server.CreateObject("ADODB.Recordset"
myConnection.Open connectString
requestPatientID = Request.Form("PatientID"
if (cstr(requestPatientID) = "" then
Response.write("Request ID is required. "
else
sqlString = "select * from Patients, Examinations where Patients.PatientID = Examinations.ID and PatientID = " & requestPatientID
Set rsPatientInfo = myConnection.Execute(sqlString)
If(rsPatientInfo.BOF) AND (rsPatientInfo.EOF) then
Response.write("Sorry, but Patient's ID " & requestPatientID _
& " was not found."
ELSE
%>
<TABLE align=center COLSPAN=30 CELLPADDING=3 BORDER=0 WIDTH = 300>
<!-- Begin column header row -->
<TR>
<TD VALIGN=TOP BGCOLOR=#800000">
<FONT STYLE+"ARIAL NARROW" COLOR="#ffffff" size=2>
PatientID
</FONT>
</TD>
<TD ALIGN=CENTER BGCOLOR=#800000">
<FONT STYLE+"ARIAL NARROW" COLOR="#ffffff" size=2>
First Name
</FONT>
</TD>
<TD ALIGN=CENTER BGCOLOR=#800000">
<FONT STYLE+"ARIAL NARROW" COLOR="#ffffff" size=2>
Last Name
</FONT>
</TD>
<TD ALIGN=CENTER BGCOLOR=#800000">
<FONT STYLE+"ARIAL NARROW" COLOR="#ffffff" size=2>
DOB
</FONT>
</TD>
<TD ALIGN=CENTER BGCOLOR=#800000">
<FONT STYLE+"ARIAL NARROW" COLOR="#ffffff" size=2>
Education
</FONT>
</TD>
<TD ALIGN=CENTER BGCOLOR=#800000">
<FONT STYLE+"ARIAL NARROW" COLOR="#ffffff" size=2>
Diagnosis
</FONT>
</TD>
<TD ALIGN=CENTER BGCOLOR=#800000">
<FONT STYLE+"ARIAL NARROW" COLOR="#ffffff" size=2>
Diagnostic Code
</FONT>
</TD>
<TD ALIGN=CENTER BGCOLOR=#800000">
<FONT STYLE+"ARIAL NARROW" COLOR="#ffffff" size=2>
SH
</FONT>
</TD>
<TD ALIGN=CENTER BGCOLOR=#800000">
<FONT STYLE+"ARIAL NARROW" COLOR="#ffffff" size=2>
FrSBE Total
</FONT>
</TD>
<TD ALIGN=CENTER BGCOLOR=#800000">
<FONT STYLE+"ARIAL NARROW" COLOR="#ffffff" size=2>
DRS total
</FONT>
</TD>
<TD ALIGN=CENTER BGCOLOR=#800000">
<FONT STYLE+"ARIAL NARROW" COLOR="#ffffff" size=2>
MMSE Score
</FONT>
</TD>
<TD ALIGN=CENTER BGCOLOR=#800000">
<FONT STYLE+"ARIAL NARROW" COLOR="#ffffff" size=2>
APeE Genetype
</FONT>
</TD>
<TD ALIGN=CENTER BGCOLOR=#800000">
<FONT STYLE+"ARIAL NARROW" COLOR="#ffffff" size=2>
Date Of Evaluation
</FONT>
</TD>
</TR>
<!-- Get Data -->
<% do while not rsPatientInfo.EOF %>
<TR>
<TD BGcolor ="f7efde" align=center>
<font style = "arial narrow" size=2>
<%=rsPatientInfo("PatientID"%>
</font>
</TD>
<TD BGcolor ="f7efde" align=center>
<font style = "arial narrow" size=2>
<%=rsPatientInfo("First Name"%>
</font>
</TD>
<TD BGcolor ="f7efde" align=center>
<font style = "arial narrow" size=2>
<%=rsPatientInfo("Last Name"%>
</font>
</TD>
<TD BGcolor ="f7efde" align=center>
<font style = "arial narrow" size=2>
<%=rsPatientInfo("DOB"%>
</font>
</TD>
<TD BGcolor ="f7efde" align=center>
<font style = "arial narrow" size=2>
<%=rsPatientInfo("Education"%>
</font>
</TD>
<TD BGcolor ="f7efde" align=center>
<font style = "arial narrow" size=2>
<%=rsPatientInfo("Diagnosis"%>
</font>
</TD>
<TD BGcolor ="f7efde" align=center>
<font style = "arial narrow" size=2>
<%=rsPatientInfo("Diagnostic Code"%>
</font>
</TD>
<TD BGcolor ="f7efde" align=center>
<font style = "arial narrow" size=2>
<%=rsPatientInfo("SH"%>
</font>
</TD>
<TD BGcolor ="f7efde" align=center>
<font style = "arial narrow" size=2>
<%=rsPatientInfo("FrSBE Total"%>
</font>
</TD>
<TD BGcolor ="f7efde" align=center>
<font style = "arial narrow" size=2>
<%=rsPatientInfo("DRS Total"%>
</font>
</TD>
<TD BGcolor ="f7efde" align=center>
<font style = "arial narrow" size=2>
<%=rsPatientInfo("MMSE Score"%>
</font>
</TD>
<TD BGcolor ="f7efde" align=center>
<font style = "arial narrow" size=2>
<%=rsPatientInfo("APeE Genetype"%>
</font>
</TD>
<TD BGcolor ="f7efde" align=center>
<font style = "arial narrow" size=2>
<%=rsPatientInfo("Date Of Evaluation"%>
</font>
</TD>
</TR>
<% rsPatientInfo.MoveNext%>
<%loop %><!-- next row -->
</TABLE>
</CENTER>
<%End if %>
<%End if %>
<p><input type="submit" value="Add New" name="B1"> <input type="submit" value="Update"
name="b1"> <input type="submit" value="Delete" name="b1"> <input type="submit"
value="Cancel" name="b1"> <input type="submit"
value="Export" name="b1"> </p>
</BODY>
</HTML>
The following are my codes. I try to delete, add new..., but I don't know how to get them. Thanks again
JW
*******************
<HTML>
<HEAD>
<TITLE> CLINICAL DATABASE</TITLE>
</HEAD>
<BODY>
<CENTER>
<H1><FONT size=8>Clinical Database</H1></FONT>
<%=FormatDateTime(Now(),1) %>
<%
dim myconnection
dim rsPatientInfo
dim connectString
dim sqlString
dim requestPatientID
connectString = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=C:\Inetpub\
set myConnection = Server.CreateObject("ADODB.Connection"
set rsPatientInfo = Server.CreateObject("ADODB.Recordset"
myConnection.Open connectString
requestPatientID = Request.Form("PatientID"
if (cstr(requestPatientID) = ""
thenResponse.write("Request ID is required. "
else
sqlString = "select * from Patients, Examinations where Patients.PatientID = Examinations.ID and PatientID = " & requestPatientID
Set rsPatientInfo = myConnection.Execute(sqlString)
If(rsPatientInfo.BOF) AND (rsPatientInfo.EOF) then
Response.write("Sorry, but Patient's ID " & requestPatientID _
& " was not found."
ELSE
%>
<TABLE align=center COLSPAN=30 CELLPADDING=3 BORDER=0 WIDTH = 300>
<!-- Begin column header row -->
<TR>
<TD VALIGN=TOP BGCOLOR=#800000">
<FONT STYLE+"ARIAL NARROW" COLOR="#ffffff" size=2>
PatientID
</FONT>
</TD>
<TD ALIGN=CENTER BGCOLOR=#800000">
<FONT STYLE+"ARIAL NARROW" COLOR="#ffffff" size=2>
First Name
</FONT>
</TD>
<TD ALIGN=CENTER BGCOLOR=#800000">
<FONT STYLE+"ARIAL NARROW" COLOR="#ffffff" size=2>
Last Name
</FONT>
</TD>
<TD ALIGN=CENTER BGCOLOR=#800000">
<FONT STYLE+"ARIAL NARROW" COLOR="#ffffff" size=2>
DOB
</FONT>
</TD>
<TD ALIGN=CENTER BGCOLOR=#800000">
<FONT STYLE+"ARIAL NARROW" COLOR="#ffffff" size=2>
Education
</FONT>
</TD>
<TD ALIGN=CENTER BGCOLOR=#800000">
<FONT STYLE+"ARIAL NARROW" COLOR="#ffffff" size=2>
Diagnosis
</FONT>
</TD>
<TD ALIGN=CENTER BGCOLOR=#800000">
<FONT STYLE+"ARIAL NARROW" COLOR="#ffffff" size=2>
Diagnostic Code
</FONT>
</TD>
<TD ALIGN=CENTER BGCOLOR=#800000">
<FONT STYLE+"ARIAL NARROW" COLOR="#ffffff" size=2>
SH
</FONT>
</TD>
<TD ALIGN=CENTER BGCOLOR=#800000">
<FONT STYLE+"ARIAL NARROW" COLOR="#ffffff" size=2>
FrSBE Total
</FONT>
</TD>
<TD ALIGN=CENTER BGCOLOR=#800000">
<FONT STYLE+"ARIAL NARROW" COLOR="#ffffff" size=2>
DRS total
</FONT>
</TD>
<TD ALIGN=CENTER BGCOLOR=#800000">
<FONT STYLE+"ARIAL NARROW" COLOR="#ffffff" size=2>
MMSE Score
</FONT>
</TD>
<TD ALIGN=CENTER BGCOLOR=#800000">
<FONT STYLE+"ARIAL NARROW" COLOR="#ffffff" size=2>
APeE Genetype
</FONT>
</TD>
<TD ALIGN=CENTER BGCOLOR=#800000">
<FONT STYLE+"ARIAL NARROW" COLOR="#ffffff" size=2>
Date Of Evaluation
</FONT>
</TD>
</TR>
<!-- Get Data -->
<% do while not rsPatientInfo.EOF %>
<TR>
<TD BGcolor ="f7efde" align=center>
<font style = "arial narrow" size=2>
<%=rsPatientInfo("PatientID"
%></font>
</TD>
<TD BGcolor ="f7efde" align=center>
<font style = "arial narrow" size=2>
<%=rsPatientInfo("First Name"
%></font>
</TD>
<TD BGcolor ="f7efde" align=center>
<font style = "arial narrow" size=2>
<%=rsPatientInfo("Last Name"
%></font>
</TD>
<TD BGcolor ="f7efde" align=center>
<font style = "arial narrow" size=2>
<%=rsPatientInfo("DOB"
%></font>
</TD>
<TD BGcolor ="f7efde" align=center>
<font style = "arial narrow" size=2>
<%=rsPatientInfo("Education"
%></font>
</TD>
<TD BGcolor ="f7efde" align=center>
<font style = "arial narrow" size=2>
<%=rsPatientInfo("Diagnosis"
%></font>
</TD>
<TD BGcolor ="f7efde" align=center>
<font style = "arial narrow" size=2>
<%=rsPatientInfo("Diagnostic Code"
%></font>
</TD>
<TD BGcolor ="f7efde" align=center>
<font style = "arial narrow" size=2>
<%=rsPatientInfo("SH"
%></font>
</TD>
<TD BGcolor ="f7efde" align=center>
<font style = "arial narrow" size=2>
<%=rsPatientInfo("FrSBE Total"
%></font>
</TD>
<TD BGcolor ="f7efde" align=center>
<font style = "arial narrow" size=2>
<%=rsPatientInfo("DRS Total"
%></font>
</TD>
<TD BGcolor ="f7efde" align=center>
<font style = "arial narrow" size=2>
<%=rsPatientInfo("MMSE Score"
%></font>
</TD>
<TD BGcolor ="f7efde" align=center>
<font style = "arial narrow" size=2>
<%=rsPatientInfo("APeE Genetype"
%></font>
</TD>
<TD BGcolor ="f7efde" align=center>
<font style = "arial narrow" size=2>
<%=rsPatientInfo("Date Of Evaluation"
%></font>
</TD>
</TR>
<% rsPatientInfo.MoveNext%>
<%loop %><!-- next row -->
</TABLE>
</CENTER>
<%End if %>
<%End if %>
<p><input type="submit" value="Add New" name="B1"> <input type="submit" value="Update"
name="b1"> <input type="submit" value="Delete" name="b1"> <input type="submit"
value="Cancel" name="b1"> <input type="submit"
value="Export" name="b1"> </p>
</BODY>
</HTML>
first task is to find out what submit button was pressed.
javascript on the client would be the process to do this
what you want to do is have a hidden form field in the form. give this form field a name pertaining to the submit types.
eg:<input type="hidden" name="submitValue">
then you change that value on the submit event with a return in the submits via onClick="return function()">
the function would look like this with a call of
onClick="return whichButton(this.name)"
function whichButton(subName) {
if(subName=="delete" {
return document.formname.submitValue.value="delete";
}
now you place the page in a if statement. this way you can check the page for the event occuring on the click of one of the submits
eg:
<%
If Request.Form("submitValue" = "delete" Then
run a sql delete for the value
ElseIf Request.Form("submitValue" = "submitted" Then
run that condition here
Else
output the HTML page as you have it
don't forget at the bottom of the page to do
<% End If %>
as for the actual deletion of the values. you can add the values as you have them to hidden form fields according to the values outputed as is not in the table. pass this value jsut as you pass the value of the submit event of which button was clicked.
____________________________________________________
get the best answer to your questions by asking the best questions "General FAQ" faq333-2924
javascript on the client would be the process to do this
what you want to do is have a hidden form field in the form. give this form field a name pertaining to the submit types.
eg:<input type="hidden" name="submitValue">
then you change that value on the submit event with a return in the submits via onClick="return function()">
the function would look like this with a call of
onClick="return whichButton(this.name)"
function whichButton(subName) {
if(subName=="delete"
{return document.formname.submitValue.value="delete";
}
now you place the page in a if statement. this way you can check the page for the event occuring on the click of one of the submits
eg:
<%
If Request.Form("submitValue"
= "delete" Thenrun a sql delete for the value
ElseIf Request.Form("submitValue"
= "submitted" Thenrun that condition here
Else
output the HTML page as you have it
don't forget at the bottom of the page to do
<% End If %>
as for the actual deletion of the values. you can add the values as you have them to hidden form fields according to the values outputed as is not in the table. pass this value jsut as you pass the value of the submit event of which button was clicked.
____________________________________________________
get the best answer to your questions by asking the best questions "General FAQ" faq333-2924
- Status
Similar threads
- Locked
- Question
- Locked
- Question
- Locked
- Question