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

HOME > .NET Framework > Forum > [VB.Net Window App] เวลา Edit ข้อมูล ข้อมูลเข้าไปใน DataGridView แต่ข้อมูลไม่ยอมบันทึกลง MS Access



 

[VB.Net Window App] เวลา Edit ข้อมูล ข้อมูลเข้าไปใน DataGridView แต่ข้อมูลไม่ยอมบันทึกลง MS Access

 



Topic : 098567

Guest




คือตอน edit ข้อมูล ข้อมูลเข้าไปในdatagridview แต่ข้อมูลไม่ยอมบันทึกลงaccess อ่ะครับ

รูปก่อน edit
1

รูปหลัง edit
2

code
 Public Sub updatePlannedItEquip(ByVal PlannedListID As Integer, ByVal ItemNo As String, ByVal ItemType As String, ByVal DateTimePicker1 As String, ByVal Contractor As String, ByVal Orderedtime As String, ByVal Qty As Integer, ByVal Unit As String, ByVal Remark As String)
        Connect()
        Dim olecom As OleDbCommand = Nothing
      
        sqlcom = "UPDATE IT_PlannedList SET ItemNo = '" & ItemNo & "',ItemType = '" & ItemType & "',Qty = '" & Qty & "',Unit = '" & Unit & "',Remark = '" & Remark & "',OrderedTimes = '" & Orderedtime & "',ContractorID = '" & Contractor & "',DateCreated = '" & DateTimePicker1 & "'WHERE PlannedListID=" & PlannedListID & " "
        

        olecom = New OleDbCommand(sqlcom, conn)
        olecom.ExecuteNonQuery()




    End Sub

  Private Sub BNedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BNedit.Click
        Connect()
        If txtPlannedListID.Text = "" Or txtItemNo.Text = "" Or cmbItemType.Text = "" Or cmbContractor.Text = "" Or txtOrderedtime.Text = "" Or txtQty.Text = "" Or cmbData.Text = "" Or cmbUnit.Text = "" Or txtRemark.Text = "" Then
            MessageBox.Show("กรุณาใส่ข้อมูล")
        Else
            Dim dt2 As DataTable = Nothing

            Dim ds2 As New DataSet


            Dim sqlCon As String = "SELECT * FROM Contractor where Contractor_Name LIKE '" & cmbContractor.Text & "'"
            'MessageBox.Show(sqlSubSec)
            Dim da2 As OleDbDataAdapter
            da2 = New OleDbDataAdapter(sqlCon, conn)
            da2.Fill(ds2, "Contractor")
            dt2 = ds2.Tables("Contractor")
            'TxtTemp
            TxtTemp.DataBindings.Add(New Binding("text", dt2, "Contractor_ID"))



            Dim NumDateM As String
            Dim NumDate As String
            NumDateM = condata.CheckData(cmbData.Text)

            ' MessageBox.Show(NumDateM)
            Dim str = cmbData.Text
            Dim strArr() As String
            strArr = str.Split(CChar(" "))
            NumDate = strArr(0) & "/" & NumDateM & "/" & strArr(2)
            '  MessageBox.Show(NumDate)
            Dim Result As MsgBoxResult
            Result = CType(MessageBox.Show("คุณต้องการบันทึกข้อมูลใช่หรือไม่", "คำเตือน", MessageBoxButtons.YesNo), MsgBoxResult)
            If Result = MsgBoxResult.Yes Then
                ' MessageBox.Show(txtCVNo.Text)
                Dim cmd As OleDbCommand = Nothing
                Dim sqlSave As String = ""

                condata.updatePlannedItEquip(PlannedListID:=txtPlannedListID.Text, ItemNo:=txtItemNo.Text, ItemType:=cmbItemType.Text, DateTimePicker1:=NumDate, Contractor:=TxtTemp.Text, Orderedtime:=txtOrderedtime.Text, Qty:=txtQty.Text, Unit:=cmbUnit.Text, Remark:=txtRemark.Text)


                MessageBox.Show("ข้อมูลถูกบันทึกเรียบร้อย")
                'MessageBox.Show(TextBox1.Text)

            ElseIf Result = MsgBoxResult.No Then
                MessageBox.Show("การบันทึก ถูกยกเลิก")
            End If
           ' clearAllData()
        End If
       

       ' DataGridView1.Refresh()
    End Sub



    Public Sub Connect()
        With conn
            If .State = ConnectionState.Open Then .Close()
           
            .ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\PMCBL_ITINV_V0.8.accdb"
            .Open()
        End With
    End Sub




Tag : .NET, Ms Access, Win (Windows App), VB.NET, VS 2010 (.NET 4.x), Windows







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2013-08-01 13:20:30 By : ปวีณวัช View : 1572 Reply : 14
 

 

No. 1



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

สมาชิกที่ใส่เสื้อไทยครีเอท

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

มี Error หรือเปล่าครับ






แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-08-01 13:34:01 By : mr.win
 


 

No. 2



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



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

1. ดูข้อมูลในฐานข้อมูลว่าลงหรือยังครับ และ Error อะไรไหม ลองนำคิวรี่ไป Insert ดูในฐานข้อมูลก่อนก็ดีครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-08-01 13:39:53 By : 01000010
 

 

No. 3

Guest


ไม่มี error ครับ ดูในaccess แล้ว ครับ ข้อมูลไม่ ที่ edit เข้าไปไม่มีอ่ะครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-08-01 13:44:11 By : ปวีณวัช
 


 

No. 4

Guest


ตอบความคิดเห็นที่ : 3 เขียนโดย : ปวีณวัช เมื่อวันที่ 2013-08-01 13:44:11
รายละเอียดของการตอบ ::
ไม่มี error ครับ ดูในaccess แล้ว ครับ ไม่มีข้อมูลที่ edit เข้าไปเลยอ่ะครับ

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-08-01 13:45:43 By : ปวีณวัช
 


 

No. 5



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



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

ตอบความคิดเห็นที่ : 4 เขียนโดย : ปวีณวัช เมื่อวันที่ 2013-08-01 13:45:43
รายละเอียดของการตอบ ::
บรรทัดที่ ExecuteNonQuery ลองเอาตัวแปร int มาเก็บค่าแล้ว Debug ดูสิครับ ว่ามันมีการ Update ไปกี่ rows

Code (VB.NET)
dim valNumberRows As Integer = olecom.ExecuteNonQuery()


สันนิษฐานนะครับ ว่า Where ID ไม่ถูกต้อง เดานะครับ

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-08-01 15:09:25 By : 01000010
 


 

No. 6

Guest


ลองเอา dim valNumberRows As Integer = olecom.ExecuteNonQuery() ใส่
 Public Sub updatePlannedItEquip(ByVal PlannedListIDA As String, ByVal ItemNo As String, ByVal ItemType As String, ByVal DateTimePicker1 As String, ByVal Contractor As String, ByVal Orderedtime As String, ByVal Qty As Integer, ByVal Unit As String, ByVal Remark As String)
        Connect()
        Dim olecom As OleDbCommand = Nothing
        'MessageBox.Show(CStr(_time))
        '  MessageBox.Show(PlannedListID)
        sqlcom = "UPDATE IT_PlannedList SET ItemNo = '" & ItemNo & "',ItemType = '" & ItemType & "',Qty = '" & Qty & "',Unit = '" & Unit & "',Remark = '" & Remark & "',OrderedTimes = '" & Orderedtime & "',ContractorID = '" & Contractor & "',DateCreated = '" & DateTimePicker1 & "'WHERE PlannedListID=" & PlannedListIDA & " "
        ' sqlcom = "UPDATE IT_PlannedList SET Qty = '" & Qty & "',Unit = '" & Unit & "',Remark = '" & Remark & "' WHERE IT_PlannedList.PlannedListID=" & PlannedListIDA & " "

        ' MessageBox.Show(sqlcom)
        olecom = New OleDbCommand(sqlcom, conn)
        ' olecom.ExecuteNonQuery()

        Dim valNumberRows As Integer = olecom.ExecuteNonQuery()
        MessageBox.Show(CStr(valNumberRows))

    End Sub



3
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-08-01 15:21:30 By : ปวีณวัช
 


 

No. 7



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



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

ตอบความคิดเห็นที่ : 6 เขียนโดย : ปวีณวัช เมื่อวันที่ 2013-08-01 15:21:30
รายละเอียดของการตอบ ::
ข้อมูลก็มีการอัพเดทหนิครับ แต่อัพเดทถูก PlannedListIDA หรือเปล่า อันนี้ก็ไม่รู้ ค่อย ๆ ดูไปครับ

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-08-01 15:43:15 By : 01000010
 


 

No. 8

Guest


คือ ตัวข้อมูลที่ อัพเดท อ่ะครับมานก็ลงในdatagridview อ่ะครับ แต่มานไม่ยอมลงในaccess ด้วยอ่ะครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-08-01 15:47:32 By : ปวีณวัช
 


 

No. 9



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



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

ตอบความคิดเห็นที่ : 8 เขียนโดย : ปวีณวัช เมื่อวันที่ 2013-08-01 15:47:32
รายละเอียดของการตอบ ::
คือจะอัพเดท หรือจะเพิ่มข้อมูลเข้าไปครับ ?

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-08-01 15:54:18 By : 01000010
 


 

No. 10

Guest


edit ข้อมูลอ่ะครับ

คือ ตัวข้อมูลที่ edit อ่ะครับ มานก็ลงในdatagridview อ่ะครับตามที่วงกลมสีแดงรูปด้านบน แต่ข้อมูลมานไม่ยอมลงในaccess ด้วยอ่ะครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-08-01 16:00:17 By : ปวีณวัช
 


 

No. 11



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



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

ตอบความคิดเห็นที่ : 10 เขียนโดย : ปวีณวัช เมื่อวันที่ 2013-08-01 16:00:17
รายละเอียดของการตอบ ::
งงเหมือนกันครับ ตอน Execute มันก็ส่งค่ากลับมาแล้วว่ามัน Update ได้ 1 Rows

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-08-01 17:12:58 By : 01000010
 


 

No. 12

Guest


ได้แหละครับ

ผมไม่ได้แก้ path Connection access ให้เปนตัวเต็มทีครับ

Code
Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\PMCBL_ITINV_V0.8.accdb

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-08-02 10:42:25 By : ปวีณวัช
 


 

No. 13



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



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

ตอบความคิดเห็นที่ : 12 เขียนโดย : ปวีณวัช เมื่อวันที่ 2013-08-02 10:42:25
รายละเอียดของการตอบ ::


แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-08-02 10:48:07 By : 01000010
 


 

No. 14



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

สมาชิกที่ใส่เสื้อไทยครีเอท

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

ตอบความคิดเห็นที่ : 12 เขียนโดย : ปวีณวัช เมื่อวันที่ 2013-08-02 10:42:25
รายละเอียดของการตอบ ::
คิดอยู่น่าจะเป็นกับตัวนี้

แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2013-08-02 17:21:39 By : mr.win
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : [VB.Net Window App] เวลา Edit ข้อมูล ข้อมูลเข้าไปใน DataGridView แต่ข้อมูลไม่ยอมบันทึกลง MS Access
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ 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 05
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 อัตราราคา คลิกที่นี่