Forgot Password ??

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

	Registered : 109,038

HOME > .NET Framework > Forum > ช่วยดู code Update อันนี้หน่อยครับ มันไม่ยอมเปลี่ยนข้อมูลครับ

[.NET] ช่วยดู code Update อันนี้หน่อยครับ มันไม่ยอมเปลี่ยนข้อมูลครับ

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

NOOK

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

ผมใช้ VB2008 กับ MySQLserver2005 ครับ ทำโค๊ด Update แล้วข้อมูลมันไม่ยอมเปลี่ยนแปลงหน่ะครับ

ตามนี้ครับ ช่วยดูให้หน่อยนะครับ เพราะมันคือโปรเจคจบของผมหน่ะครับ

ฃSub Edit_Insert_DB()
Dim COMPUTER_S_con As String
If MessageBox.Show("คุณต้องการแก้ไขข้อมูล ใช่หรือไม่?", "คำยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.No Then
Exit Sub

End If
Try
COMPUTER_S_con = oComputer_database.COMPUTER_S_con

Conn = New SqlConnection()
With Conn
If .State = ConnectionState.Open Then .Close()
.ConnectionString = COMPUTER_S_con
.Open()

End With

sb = New StringBuilder()

sb.Remove(0, sb.Length)
sb.Append("Update dbProduct set ID=@ID,Name=@Name,Price=@Price,Number=@Number")
sb.Append("where ID='" + txtID.Text + "' ")
Dim sqlAdd As String
sqlAdd = sb.ToString()
com = New SqlCommand()
With com
.CommandText = sqlAdd
.CommandType = CommandType.Text
.Connection = Conn
.Transaction = tr
.Parameters.Clear()

com.Parameters.Add("@ID", SqlDbType.NVarChar).Value = txtID.Text
com.Parameters.Add("@Name", SqlDbType.NVarChar).Value = txtName.Text
com.Parameters.Add("@Price", SqlDbType.NVarChar).Value = txtSale.Text
com.Parameters.Add("@Number", SqlDbType.NVarChar).Value = txtNumber.Text
.ExecuteNonQuery()

End With
but_OK.Enabled = False
MessageBox.Show("แก้ไขรายการเรียบร้อยแล้วครับ.", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)

Catch

MessageBox.Show(Err.Description, "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

End Try
End Sub

Tag : - - - -

Date : 2010-03-26 23:04:34

By : goburi78

View : 1220

Reply : 5

No. 1

Stupid.gurl.th

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

Code (VB.NET)

'จาก
sb.Remove(0, sb.Length)
sb.Append("Update dbProduct set ID=@ID,Name=@Name,Price=@Price,Number=@Number")
sb.Append("where ID='" + txtID.Text + "' ")
Dim sqlAdd As String
sqlAdd = sb.ToString()
com = New SqlCommand()
With com
    .CommandText = sqlAdd
    .CommandType = CommandType.Text
    .Connection = Conn
    .Transaction = tr
    .Parameters.Clear()
     
    com.Parameters.Add("@ID", SqlDbType.NVarChar).Value = txtID.Text
    com.Parameters.Add("@Name", SqlDbType.NVarChar).Value = txtName.Text
    com.Parameters.Add("@Price", SqlDbType.NVarChar).Value = txtSale.Text
    com.Parameters.Add("@Number", SqlDbType.NVarChar).Value = txtNumber.Text
    .ExecuteNonQuery()
End With

Code (VB.NET)

'แก้เป็น
sb.Clear()
sb.AppendLine("Update dbProduct set ID=@ID,Name=@Name,Price=@Price,Number=@Number")
sb.AppendLine("where  ID=@ID ")
Dim sqlAdd As String
sqlAdd = sb.ToString()
com = New SqlCommand()
With com
    .CommandText = sqlAdd
    .CommandType = CommandType.Text
    .Connection = Conn
    .Transaction = tr
    .Parameters.Clear()
     
    com.Parameters.AddWithValue("@ID", txtID.Text.Trim())
    com.Parameters.AddWithValue("@Name", txtName.Text.Trim())
    com.Parameters.AddWithValue("@Price",  CCurr( txtSale.Text.Trim()))
    com.Parameters.AddWithValue("@Number",  CInt(txtNumber.Text.Trim()))
    .ExecuteNonQuery()
End With

สาเหตุ น่าจะเกิดจากการเชื่อม sqlcommand ด้วย Append ทำให้ไม่มี space คั่นก่อนหน้า Where
และที่ txtSale และ txtNumber แน่ใจหรอคะว่าเป็นตัวเลขมีการตรวจสอบหรือยัง

Date : 2010-03-27 14:28:30

By : blurEye

No. 2

EvoLutionGT

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

Code (VB.NET)

1.sb.AppendLine("where ID=@ID ") 'น่าจะเป็นตรงที่ ("where ID=@ID ") ลอง Specbar ให้ where

2.'ห่างจาก String ดูน่ะครับ (" where ID=@ID ")

Date : 2010-03-27 14:47:27

By : EvolutionGT

No. 3

Stupid.gurl.th

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

Quote:
sb.AppendLine("where ID=@ID ") 'น่าจะเป็นตรงที่ ("where ID=@ID ")

จะมี CR LF เป็น whitespace คั่นให้แล้วค่ะคุณ EvolutionGT

Date : 2010-03-27 16:33:41

By : blurEye

No. 4

EvoLutionGT

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

Quote:
จะมี CR LF เป็น whitespace คั่นให้แล้วค่ะคุณ EvolutionGT

เขียนโปรแกรมมันก็ต้องลองผิดถูกกันบ้างล่ะครับ หรือว่าคุณ blurEye เขียนทีเดียวแล้วใช้ได้เลยครับ..

ถามมาผมก็ช่วยตอบ อาจจะผิดพลาดก็ยังดีกว่าไม่มีอะไรให้ลองเลยน่ะครับ

Date : 2010-03-27 16:56:28

By : EvoLutionGT

No. 5

Stupid.gurl.th

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

อ้าว หรอคะ ขอโทษค่ะ

Date : 2010-03-27 21:47:56

By : blurEye

ค้นหาข้อมูล

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

Re : ช่วยดู code Update อันนี้หน่อยครับ มันไม่ยอมเปลี่ยนข้อมูลครับ

รายละเอียด

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

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

Notice

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

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

โดย

อีเมล์

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

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

Registered : 109,038

document.write("<font color=996600>[.NET]</font>"); [.NET] ช่วยดู code Update อันนี้หน่อยครับ มันไม่ยอมเปลี่ยนข้อมูลครับ

No. 1

No. 2

No. 3

No. 4

No. 5

ค้นหาข้อมูล

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

Notice

[.NET] ช่วยดู code Update อันนี้หน่อยครับ มันไม่ยอมเปลี่ยนข้อมูลครับ