Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 109,037

HOME > .NET Framework > Forum > VB.NET UPDATE โดย Command ไม่ได้ครับ ผมทำ Win App VB.Net และใช Northwind.mdb เป็นฐานข้อมูลครับ



 

VB.NET UPDATE โดย Command ไม่ได้ครับ ผมทำ Win App VB.Net และใช Northwind.mdb เป็นฐานข้อมูลครับ

 



Topic : 045514

Guest




ผมทำ Win App VB.Net และใช Northwind.mdb เป็นฐานข้อมูลครับ ในตาราง Category ผมเปลี่ยน Type ของฟิลด์ Picture เป็น text (ของเดิมเป็น OLE object)เพื่อเก็บเฉพาะชื่อของภาพ
ครับ แต่พอรันไม่ติด error อะไร บั๊ก ดูตัวแปร(รวมทั้ง txtbox ด้วย)ที่จะเอาไป update ก็ถูกหมด
แต่พอรันไล่มาถึงบรรทัดที่ .excutenonquery กลับส่งค่ามาเป็น 0 (ไม่มีการ update) งงมากครับ
รบกวนท่านผู้รู้ช่วยแนะนำ ด้วยนะครับ ขอบพระคุณล่วงหน้ามากๆครับ

***********************************

Dim sql As String

Dim a As Integer

Try
sql = "UPDATE Categories SET CategoryName = @NameCa,
Description = @NameCa ,Picture = @PicCa WHERE CategoryID = @id"

Using cn As New OleDbConnection(My.Settings.CurrentDB)

Dim cmd As New OleDbCommand(sql, cn)

cn.Open()

With cmd

Dim id As String = FrmMain.TB1.Text

.Parameters.Add("@id", OleDbType.Integer).Value = CInt(id)

.Parameters.Add("@NameCa", OleDbType.VarChar).Value = TBName.Text

.Parameters.Add("@DesCa", OleDbType.VarChar).Value = TBDes.Text

ImageFileName = OpenFileDialog1.FileName

.Parameters.Add("@PicCa", OleDbType.VarChar).Value =
Path.GetFileName(ImageFileName)

a = .ExecuteNonQuery()

MessageBox.Show("แก้ไขข้อมูลแล้ว " & a & " แถว", "แจ้งเตือน", MessageBoxButtons.OK, MessageBoxIcon.Warning)

End With

End Using

Me.Close()

Catch ex As Exception

MessageBox.Show("มีบางอย่างผิดพลาดเกิดขึ้น")

End Try



Tag : - - - -







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2010-07-15 16:49:02 By : ผู้เริ่มต้น View : 1640 Reply : 4
 

 

No. 1



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



สถานะออฟไลน์


Debug ค่า Id ดูครับ เพราะถ้า update = 0 น่าจะเป็น ที่

WHERE CategoryID = @id"

ค่า int(id)
int(id.ToString)
int.parse(FrmMain.TB1.Text)
เท่ากันไหม






Date : 2010-07-15 17:10:08 By : superpheak
 


 

No. 2

Guest


ขอบคุณ คุณpheak ที่เข้ามาตอบ ผมเปรียบเทียบอย่างนี้นะครับ

If (Int(id) = Int(id.ToString) = CInt(FrmMain.TB1.Text)) Then
MsgBox("")
End If
แต่ msgbox ไม่แสดง หรือว่าชนิดข้อมูลทั้ง 3 ไม่เท่ากัน
พอผมให้แสดงค่าบน msgbox แบบ
ค่าที่แสดงบน msgbox มันก็ได้ค่าเหมือนกันนะครับ
ขอคำชี้แนะอีกทีครับ ขอบคุณครับ


Date : 2010-07-16 10:02:15 By : ผู้เริ่มต้น
 

 

No. 3



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



สถานะออฟไลน์


ผมเคยเปรียบเทียบแบบ a=b=c แล้วมันไม่ได้ไหมือนกัน เลยเปลี่ยนเป็น a=b และ a=c ดู ได้ซะงั้น
จากนั้นก็ไม้เคยใช้ a=b=c อีกเลย เพราะคิดว่ามันใช้ไม่ได้ ตกลงมันใช้ได้ด้วยหรอคับ
Date : 2010-07-16 17:28:34 By : whiteshark
 


   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : VB.NET UPDATE โดย Command ไม่ได้ครับ ผมทำ Win App VB.Net และใช Northwind.mdb เป็นฐานข้อมูลครับ
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

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

Notice

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

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







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

Load balance : Server 00
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2024 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่