0

System.Data のインポート System.Data.Odbc のインポート

部分クラス ADD_Employee Inherits 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 
me.ClientScript.RegisterClientScriptBlock(Me.[GetType](),"Data Added","alert('Success!');")
于 2012-09-20T11:01:25.670 に答える
0

あなたはこのようなことを試すことができます

me.ClientScript.RegisterStartupScript(me.GetType(), "message", "alert('records has been inserted to the database!');", True)
于 2012-09-20T05:08:17.260 に答える
0

前の回答で説明されているように、RegisterStartupScript がそれを行う方法です。

ただし、アラートを使用してもよろしいですか? ユーザーエクスペリエンスの観点からは、お勧めできません。それがどのように行われるかを確認するには、いくつかの Web サイトを参照する必要があります。たとえば、この回答を投稿すると (データベースに追加されていると思います)、アラートは表示されず、よりデリケートなメッセージが表示されます。したがって、「成功」ラベルを付けて、その Visible プロパティを true に変更するか、Response.Redirect を使用してユーザーを成功ページ全体にリダイレクトすることをお勧めします。それはすべて、ユーザーに提供したいエクスペリエンスに依存します。

于 2012-09-21T07:26:41.193 に答える