使按钮在SQL表中删除行的代码字符串
提问于 2021-02-07 01:45:56
我有一个问题，那就是通过单击行上的按钮，添加一行代码从网页上的表格中删除行的最简单方法是什么。我的网站是用VB和SQL编写的HTML。我需要修复的特定代码行是onclick='alert('You deleted row')‘的区域-目前它被设置为在单击时显示一条消息，但这不是我要找的。有没有一个简单的命令可以添加到这一行，让按钮从表中删除行，而不是显示语句？谢谢，任何帮助我们都很感激。
<html>
<body style ="background-color:powderblue;">
<head>
<meta name="viewport" content="width=device-width, initial-scale=1">
<style>
h1,h2,h3,h4{text-align: center;}
img {
display: block;
margin-left: auto;
margin-right: auto;
}
</style>
</head>
<body>
<h1>Welcome to my simple webpage</h1>
<form action="Input.aspx" method="post">
<label for="fname">First name:</label class = "center">
<input type="text" id="fname" name="fname"><br><br>
<label for="fname">Middle name:</label class = "center">
<input type="text" id="mname" name="mname"><br><br>
<label for="lname">Last name:</label>
<input type="text" id="lname" name="lname"><br><br>
<input type="submit" value="Submit">
</form>
<%
Dim ButtonSpace As String
Dim fname As String
Dim mname As String
Dim lname As String
ButtonSpace = (" ")
fname = Request.Form("fname")
mname = Request.Form("mname")
lname = Request.Form("lname")
Dim sql As String = "INSERT INTO dbo.t_LMStudyLog(FirstName, MiddleName, LastName) VALUES( "
sql += "'" + fname + "'"
sql += ", '" + mname + "'"
sql += ", '" + lname + "')"
Response.Write("<br>SQL Stmt:" + sql + "<br>")
Dim cn As New System.Data.SqlClient.SqlConnection("server=10.1.10.150;database=StudyDB;uid=admin;password=abernetics;")
Dim cmd As New System.Data.SqlClient.SqlCommand(sql, cn)
cn.Open()
If fname + lname <> "" Then
cmd.ExecuteNonQuery()
End If
Dim da As New System.Data.SqlClient.SqlDataAdapter(cmd)
Dim dt As New System.Data.DataTable
sql = "SELECT ROWID, FirstName, MiddleName, LastName, CreateStamp FROM dbo.t_LMStudyLog"
cmd.CommandText = sql
Try
da.Fill(dt)
Catch ex As Exception
Throw ex
Finally
If cn.State = Data.ConnectionState.Open Then
cn.Close()
End If
End Try
cn.Close()
If fname <> "" Then
Response.Write("Your name: " & fname & " " & mname & " " & lname & "<br>")
End If
%>
<table cellpadding=5 style="border:1px solid black; background-color:White; border-collapse:collapse" >
<tr style="font-weight:bold" >
<td>Row ID</td>
<th>Buttons</th><td>First Name</td><td>MiddleName</td><td>LastName</td>
<td>CreateStamp</td> </tr>
<%
Dim dr As System.Data.DataRow
For Each dr In dt.Rows
Response.Write("<tr>")
Response.Write("<td>" + CStr(dr("ROWID")) + "</td>")
Response.Write("<td>" + CStr(("<button type='button' onclick='alert('You deleted the row')'>Button </button>")) + "</td>")
Response.Write("<td>" + CStr(dr("FirstName")) + "</td>")
Response.Write("<td>" + CStr(dr("MiddleName")) + "</td>")
Response.Write("<td>" + CStr(dr("LastName")) + "</td>")
Response.Write("<td>" + CStr(dr("CreateStamp")) + "</td>")
Response.Write("</tr>")
Next
%>
</table>
</body>
</html>
回答 1
Stack Overflow用户
发布于 2021-02-07 01:57:41
如果您的意思是仅从页面中删除行元素，请尝试执行以下操作：
第一:在你的页面中添加这样的javascript代码：
<script type="text/javascript">
function deleteRow(target) {
while (target != document.documentElement && target != null) {
if (target.tagName == "TR") {
target.remove();
}
target = target.parentElement;
}
}
</script>第二点:改变：
Response.Write("<td>" + CStr(("<button type='button' onclick='alert('You deleted the row')'>Button </button>")) + "</td>")至
Response.Write("<td>" + CStr(("<button type='button' onclick='deleteRow(this)'>Button </button>")) + "</td>")页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/66083799
复制相关文章
腾讯云开发者
