0

导入 System.Data 导入 System.Data.Odbc

部分类 ADD_Employee 继承 System.Web.UI.Page

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim cons, query As String
    Dim con As OdbcConnection
    Dim cmd As OdbcCommand
    cons = "dsn=Courier; UID=Courier; PWD=123;"
    con = New OdbcConnection(cons)
    con.Open()
    If (RadioButton1.Checked) Then
        query = "insert into EMPLOYEE values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & "Male" & "','" & TextBox6.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "')"
        cmd = New OdbcCommand(query, con)
        cmd.ExecuteNonQuery()

    End If
    If (RadioButton2.Checked) Then
        query = "insert into EMPLOYEE values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & "Female" & "','" & TextBox6.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "')"
        cmd = New OdbcCommand(query, con)
        cmd.ExecuteNonQuery()
    End If


    con.Close()
End Sub

结束类

4

3 回答 3

0

前面的答案中描述的 RegisterStartupScript 是这样做的方法。

但是，您确定要使用警报吗？就用户体验而言，不建议这样做。你应该看看一些网站，看看它是如何完成的。例如，一旦我发布了这个答案（我猜它被添加到某个数据库中），我将不会收到警报，而是会收到更微妙的消息。所以我建议有一些“成功”标签，并将其 Visible 属性更改为 true，或者使用 Response.Redirect 并将用户重定向到整个成功页面，这一切都取决于您想为用户提供的体验。

于 2012-09-21T07:26:41.193 回答
0

你可以试试这样的

me.ClientScript.RegisterStartupScript(me.GetType(), "message", "alert('records has been inserted to the database!');", True)
于 2012-09-20T05:08:17.260 回答
0 
me.ClientScript.RegisterClientScriptBlock(Me.[GetType](),"Data Added","alert('Success!');")
于 2012-09-20T11:01:25.670 回答