Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,038

HOME > .NET Framework > Forum > การแสดงผลการยืนยันการบันทึกออกมาเป็นโค้ดแบบนี้ language=javascript>if(window.alert('บันทึกสำเร็จ'))

[.NET] การแสดงผลการยืนยันการบันทึกออกมาเป็นโค้ดแบบนี้ language=javascript>if(window.alert('บันทึกสำเร็จ'))

เริ่มหัวข้อใหม่

arpraew

โพสกระทู้ ( 22 )
บทความ ( 0 )

Code (VB.NET)

Dim objConn As SqlConnection
Dim objCmd As SqlCommand
Dim strSQL As String
 
Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
             
End Sub
 
Sub BindData()
    Dim strConnString As String
    strConnString = "Server=localhost\SQLExpress;Database=Myweb;Trusted_Connection=True;"
    objConn = New Data.SqlClient.SqlConnection(strConnString)
    objConn.Open()
 
    Dim strSQL As String
    strSQL = "INSERT INTO Username (Name,Surname,Username,Password,ConfirmPassword,Email)" & _
        " VALUES ('" & txtName.Text & "','" & txtSurname.Text & "','" & txtUsername.Text & "' " & _
        " ,'" & txtPassword.Text & "','" & txtConfirmPassword.Text & "','" & txtEmail.Text & "') "
 
    objCmd = New SqlCommand(strSQL, objConn)
    With objCmd
        .Connection = objConn
        .CommandText = strSQL
        .CommandType = CommandType.Text
    End With
              
    Try
        objCmd.ExecuteNonQuery()
        Response.Write("language=javascript>if(window.alert('บันทึกสำเร็จ'))")
    Catch ex As Exception
        Response.Write("language=javascript>if(window.alert('บันทึกไม่สำเร็จ'))")
    End Try
    objConn.Close()
    objConn = Nothing
 
End Sub
 
       
Protected Sub Button1_Click1(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
    BindData()
End Sub

ทำไมถึงไม่แสดงแค่ "บันทึกสำเร็จ" อ่ะคะ

Tag : .NET, Ms SQL Server 2005, Web (ASP.NET), VB.NET

Date : 2010-09-04 22:26:26

By : arpraew

View : 1972

Reply : 4

No. 1

TC Admin

โพสกระทู้ ( 74,059 )
บทความ ( 838 )

ใช้อันนี้แทนครับ

Code (VB.NET)

1.Page.RegisterClientScriptBlock("OnLoad", "<script>alert('Sawatdee " & Me.txtName.Text & "')</script>")

Date : 2010-09-04 22:38:10

By : webmaster

No. 2

xxx

โพสกระทู้ ( 3,144 )
บทความ ( 1 )

Go to: ถามนิดครับ กด linkbutton แล้วจะให้ขึ้นข้อความในหน้าต่างเล็กๆอะ

แต่ convert เป็น vb ให้

Code (VB.NET)

Imports System.Data
Imports System.Configuration
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.HtmlControls
 
Imports System.Collections
Imports System.Text
 
''' <summary>
''' Summary description for MessageBox
''' </summary>
Public Class MessageBox
    Private Shared m_executingPages As New Hashtable()
 
            '
            ' TODO: Add constructor logic here
            '
    Public Sub New()
    End Sub
 
    Public Shared Sub Show(sMessage As String)
        ' If this is the first time a page has called this method then
        If Not m_executingPages.Contains(HttpContext.Current.Handler) Then
            ' Attempt to cast HttpHandler as a Page.
            Dim executingPage As Page = TryCast(HttpContext.Current.Handler, Page)
 
            If executingPage IsNot Nothing Then
                ' Create a Queue to hold one or more messages.
                Dim messageQueue As New Queue()
                ' Add our message to the Queue
                messageQueue.Enqueue(sMessage)
                ' Add our message queue to the hash table. Use our page reference
                ' (IHttpHandler) as the key.
                m_executingPages.Add(HttpContext.Current.Handler, messageQueue)
                ' Wire up Unload event so that we can inject
                ' some JavaScript for the alerts.
                AddHandler executingPage.Unload, New EventHandler(AddressOf ExecutingPage_Unload)
            End If
        Else
            ' If were here then the method has allready been
            ' called from the executing Page.
            ' We have allready created a message queue and stored a
            ' reference to it in our hastable.
            Dim queue As Queue = DirectCast(m_executingPages(HttpContext.Current.Handler), Queue)
            ' Add our message to the Queue
            queue.Enqueue(sMessage)
        End If
    End Sub
 
    ' Our page has finished rendering so lets output the
    ' JavaScript to produce the alert's
    Private Shared Sub ExecutingPage_Unload(sender As Object, e As EventArgs)
        ' Get our message queue from the hashtable
        Dim queue As Queue = DirectCast(m_executingPages(HttpContext.Current.Handler), Queue)
 
        If queue IsNot Nothing Then
            Dim sb As New StringBuilder()
            ' How many messages have been registered?
            Dim iMsgCount As Integer = queue.Count
            ' Use StringBuilder to build up our client slide JavaScript.
            sb.Append("<script language='javascript'>")
            ' Loop round registered messages
            Dim sMsg As String
 
            While System.Math.Max(System.Threading.Interlocked.Decrement(iMsgCount),iMsgCount + 1) > 0
                sMsg = DirectCast(queue.Dequeue(), String)
                sMsg = sMsg.Replace(vbLf, "\n")
                sMsg = sMsg.Replace("""", "'")
                sb.Append("alert( """ & sMsg & """ );")
            End While
            ' Close our JS
            sb.Append("</script>")
            ' Were done, so remove our page reference from the hashtable
            m_executingPages.Remove(HttpContext.Current.Handler)
            ' Write the JavaScript to the end of the response stream.
            HttpContext.Current.Response.Write(sb.ToString())
        End If
    End Sub
End Class

Date : 2010-09-05 11:18:34

By : tungman

No. 3

arpraew

โพสกระทู้ ( 22 )
บทความ ( 0 )

ขอบคุนมากค่ะพี่ๆ

แพรวได้เป็นแบบนี้ออกมาอ่ะค่ะ

Code (VB.NET)

Dim objConn As SqlConnection
    Dim objCmd As SqlCommand
    Dim strSQL As String
 
    Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs)
                 
    End Sub
     
    Sub BindData()
        Dim strConnString As String
        strConnString = "Server=localhost\SQLExpress;Database=Myweb;Trusted_Connection=True;"
        objConn = New Data.SqlClient.SqlConnection(strConnString)
        objConn.Open()
 
        Dim strSQL As String
        strSQL = "INSERT INTO Username (Name,Surname,Username,Password,ConfirmPassword,Email)" & _
            " VALUES ('" & txtName.Text & "','" & txtSurname.Text & "','" & txtUsername.Text & "' " & _
            " ,'" & txtPassword.Text & "','" & txtConfirmPassword.Text & "','" & txtEmail.Text & "') "
 
        objCmd = New SqlCommand(strSQL, objConn)
        With objCmd
            .Connection = objConn
            .CommandText = strSQL
            .CommandType = CommandType.Text
        End With
                  
        Try
            objCmd.ExecuteNonQuery()
            MsgBox("บันทึกสำเร็จ", MsgBoxStyle.OkOnly, "Complete")
        Catch ex As Exception
            MsgBox("บันทึกไม่สำเร็จ " & ex.Message.ToString(), MsgBoxStyle.OkOnly, "Fail")
        End Try
 
    End Sub
     
           
    Protected Sub Button1_Click1(ByVal sender As Object, ByVal e As System.EventArgs)
        BindData()
    End Sub
     
               
    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs)
 
    End Sub

แล้วถ้าเราจะตั้งว่ากด ok จาก MsgBox แล้วให้กลับไปหน้า Home จะทำยังไงอ่ะคะ

Date : 2010-09-05 13:53:47

By : arpraew

No. 4

xxx

โพสกระทู้ ( 3,144 )
บทความ ( 1 )

Code (VB.NET)

Dim response As MsgBoxResult
 
response = MsgBox("บันทึกสำเร็จ", MsgBoxStyle.OkOnly, "Complete")
 
If response = MsgBoxResult.OK Then   ' User chose OK.
   ' Perform some action.
   Response.ReDirect("xxxxxx.aspx")
Else
   ' Perform some other action.
End If

Date : 2010-09-05 20:48:16

By : tungman

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : การแสดงผลการยืนยันการบันทึกออกมาเป็นโค้ดแบบนี้ language=javascript>if(window.alert('บันทึกสำเร็จ'))

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก

<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)

Registered : 109,038

document.write("<font color=996600>[.NET]</font>"); [.NET] การแสดงผลการยืนยันการบันทึกออกมาเป็นโค้ดแบบนี้ language=javascript>if(window.alert('บันทึกสำเร็จ'))