Forgot Password ??

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

	Registered : 109,037

HOME > .NET Framework > Forum > VB.NET Parameters SQL Server Dim r As Integer = Command.ExecuteNonQuery()

VB.NET Parameters SQL Server Dim r As Integer = Command.ExecuteNonQuery()

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

apapornrodrun

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

Code (VB.NET)

Private Sub Btnsave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnsave.Click
        If Not IsDataCompete() Then
            Exit Sub
        End If
        SQL = "INSERT INTO raiooy(RaiDate,Menu,Type,Count,Price,Total)" & "VALUES(@RaiDate,@Menu,@Type,@Count,@Price,@Total)"

        AddParameters(SQL)

        Dim r As Integer = Command.ExecuteNonQuery()
        If r > 0 Then
            MessageBox.Show("บันทึกข้อมูลแล้ว")
            Btnadd.PerformClick()
        Else
            MessageBox.Show("เกิดข้อผิดพลาดในการบันทึกข้อมูล")
        End If
    End Sub

error Dim r As Integer = Command.ExecuteNonQuery() ค่ะ
ช่วยดูให้หน่อยนะค่ะ

Tag : .NET, VBScript, VB.NET

ประวัติการแก้ไข
2012-03-24 21:19:06

Date : 2012-03-24 20:51:43

By : apapornrodrun

View : 1241

Reply : 2

No. 1

TC Admin

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

Error อะไรครับ ผมว่าคุณไม่ได้โยนค่า Parameter แน่เลย

Date : 2012-03-24 22:08:54

By : webmaster

No. 2

TC Admin

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

ลองดูรูปแบบการใช้ Parameters Query ครับ

Code (C#)

            Dim objConn As New SqlConnection
            Dim strConnString, strSQL As String

            strConnString = "Server=localhost;UID=sa;PASSWORD=;database=mydatabase;Max Pool Size=400;Connect Timeout=600;"

            strSQL = "INSERT INTO files (Name,FilesName,FilesType) " & _
            " VALUES " & _
            " (@sName,@sFilesName,@sFilesType)"
            objConn.ConnectionString = strConnString
            objConn.Open()

            Dim objCmd As New SqlCommand(strSQL, objConn)
            objCmd.Parameters.Add("@sName", SqlDbType.VarChar).Value = Me.txtName.Text
            objCmd.Parameters.Add("@sFilesName", SqlDbType.Binary).Value = imbByte
            objCmd.Parameters.Add("@sFilesType", SqlDbType.VarChar).Value = strMIME
            objCmd.ExecuteNonQuery()

            objConn.Close()
            objConn = Nothing

Date : 2012-03-24 22:13:19

By : webmaster

ค้นหาข้อมูล

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

Re : VB.NET Parameters SQL Server Dim r As Integer = Command.ExecuteNonQuery()

รายละเอียด

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

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

Notice

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

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

โดย

อีเมล์

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

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

Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 02