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,038

HOME > .NET Framework > Forum > Error ครับ ช่วยด้วยครับ ใช้ Code ลบ รูปที Error เลยครับ งง มาก ช่วยดูให้ทีครับ


 

[.NET] Error ครับ ช่วยด้วยครับ ใช้ Code ลบ รูปที Error เลยครับ งง มาก ช่วยดูให้ทีครับ

 
Topic : 053849



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



สถานะออฟไลน์
Twitter Facebook Hi5 Blogger


Code (VB.NET)
view source
print?
01.Private Sub BtnDelete3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDeletePic.Click
02.        Dim Sql As String
03.        Sql = "UPDATE Employee SET "
04.        Sql += "Picture= '" & PictureBox2.ImageLocation & "'"
05.        Sql += " WHERE IDEmployee= '" & TbxEmployeeID2.Text & "' "
06.        Dim cmd As New OleDbCommand
07.        cmd.CommandType = CommandType.Text
08.        cmd.CommandText = Sql
09.        cmd.Connection = connect
10.        cmd.ExecuteNonQuery()
11.        clearShowE()
12.        BindingsShowE()
13.        If dataset.Tables("Employee").Rows(0)("Picture") IsNot DBNull.Value Then                                                                 Dim imgByte() As Byte = dataset.Tables("Employee").Rows(0)("Picture")
14.            Dim imgstremam As New MemoryStream(imgByte)
15.            PictureBox2.Image = Image.FromStream(imgstremam)
16.        ElseIf dataset.Tables("Employee") Is DBNull.Value Then
17.            PictureBox2.Image = Nothing
18.        End If 
19.    End Sub


Code (VB.NET)
view source
print?
01.Sub clearShowE() ' เป็นโปรแกรมย่อยใช้ในการ Clear ค่า DataBindings ในแต่ละ Textbox
02.       ListBox1.Items.Clear()
03.       TbxEmployeeID2.DataBindings.Clear()
04.       TbxTitleName2.DataBindings.Clear()
05.       tbxFullName2.DataBindings.Clear()
06.       TbxSex2.DataBindings.Clear()
07.       TbxAddress2.DataBindings.Clear()
08.       TbxZipCode2.DataBindings.Clear()
09.       MtbxPhoneNumber2.DataBindings.Clear()
10.       MtbxIDCard2.DataBindings.Clear()
11.       TbxBirthday.DataBindings.Clear()
12.       TbxStartDate.DataBindings.Clear()
13.       TbxPosition2.DataBindings.Clear()
14.       TbxSalary2.DataBindings.Clear()
15.       TbxEducation2.DataBindings.Clear()
16.       TbxFaculty2.DataBindings.Clear()
17.       TbxBranch2.DataBindings.Clear()
18.       TbxEmployeeID2.Text = ""
19.       TbxTitleName2.Text = ""
20.       tbxFullName2.Text = ""
21.       TbxSex2.Text = ""
22.       TbxAddress2.Text = ""
23.       TbxZipCode2.Text = ""
24.       MtbxPhoneNumber2.Text = ""
25.       MtbxIDCard2.Text = ""
26.       TbxBirthday.Text = ""
27.       TbxStartDate.Text = ""
28.       TbxPosition2.Text = ""
29.       TbxSalary2.Text = ""
30.       TbxEducation2.Text = ""
31.       TbxFaculty2.Text = ""
32.       TbxBranch2.Text = ""
33.   End Sub


Code (VB.NET)
view source
print?
01.Sub BindingsShowE() ' โปรแกรมย่อย ใช้ในการ โชว์ข้อมูลเพื่อค้นหาและแก้ไข
02.       Dim sql As String = "Select * FROM Employee"
03.       Dim cmd As New OleDbCommand(sql, connect)
04.       Dim Adapter As New OleDbDataAdapter(cmd)
05.       dataset = New DataSet
06.       Adapter.Fill(dataset, "Employee")
07.       Dim emname As String = ""
08.       For i = 0 To dataset.Tables("Employee").Rows.Count - 1
09.           emname = dataset.Tables("Employee").Rows(i)("FullName")
10.           ListBox1.Items.Add(emname)
11.       Next
12.       TbxEmployeeID2.DataBindings.Add("text", dataset, "Employee.IDEmployee")
13.       TbxTitleName2.DataBindings.Add("text", dataset, "Employee.TitleName")
14.       tbxFullName2.DataBindings.Add("text", dataset, "Employee.FullName")
15.       TbxSex2.DataBindings.Add("text", dataset, "Employee.Sex")
16.       TbxAddress2.DataBindings.Add("text", dataset, "Employee.Address")
17.       TbxZipCode2.DataBindings.Add("text", dataset, "Employee.ZipCode")
18.       MtbxPhoneNumber2.DataBindings.Add("text", dataset, "Employee.PhoneNumber")
19.       MtbxIDCard2.DataBindings.Add("text", dataset, "Employee.IDCard")
20.       TbxBirthday.DataBindings.Add("text", dataset, "Employee.Birthday")
21.       TbxStartDate.DataBindings.Add("text", dataset, "Employee.StartDate")
22.       TbxPosition2.DataBindings.Add("text", dataset, "Employee.Appointment")
23.       TbxSalary2.DataBindings.Add("text", dataset, "Employee.Salary")
24.       TbxEducation2.DataBindings.Add("text", dataset, "Employee.Education")
25.       TbxFaculty2.DataBindings.Add("text", dataset, "Employee.Faculty")
26.       TbxBranch2.DataBindings.Add("text", dataset, "Employee.Branch")
27.       Me.BindingContext(dataset, "Employee").Position = 0
28.       updateStatus()
29.   End Sub


ติดอยู่ตรง Private Sub BtnDelete3_Click คือว่า เวลาใช้ปุ่มลบ ภาพ ที่เลือก สมมุติว่าผมเลือก รหัสไปที่ E004 ของ ผมแล้ว กดปุ่มลบ
จะให้อ่านข้อมูลเข้ามาใหม่ ผมก็ให้เช็คว่า E004 ไม่มี รูป ก็ไม่ต้องโหลดรูป ถ้ามีก็ได้โหลดขึ้น ทั้งที่ไม่มีรูปมันยังจะโหลดรูปขึ้นมาจน Error
แต่ถ้าผมไปลบรูปจาก DataBase โดยตรงแล้วเปิด มันกลับอ่านได้ ยังงงอยู่อ่าครับ
If dataset.Tables("Employee").Rows(0)("Picture") IsNot DBNull.Value Then Dim imgByte() As Byte = dataset.Tables("Employee").Rows(0)("Picture")
Dim imgstremam As New MemoryStream(imgByte)
PictureBox2.Image = Image.FromStream(imgstremam)
ElseIf dataset.Tables("Employee") Is DBNull.Value Then
PictureBox2.Image = Nothing
End If



Tag : .NET, VB.NET, VS 2008 (.NET 3.x)


ประวัติการแก้ไข
2010-12-30 00:08:34
Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2010-12-30 00:07:08 By : Digitalhong View : 1146 Reply : 1
 

 

No. 1



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



สถานะออฟไลน์
Twitter Facebook Hi5 Blogger

ดันครับ อยากรู้มากครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2010-12-30 11:13:26 By : Digitalhong
 

   

ค้นหาข้อมูล
   
 

แสดงความคิดเห็น
Re : Error ครับ ช่วยด้วยครับ ใช้ Code ลบ รูปที Error เลยครับ งง มาก ช่วยดูให้ทีครับ
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ 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 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)





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