Forgot Password ??

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

	Registered : 109,038

HOME > .NET Framework > Forum > บันทึกข้อมูลจาก Datagrid ลง DB กดบันทึกเเล้วขึ้น Debug ตรง .ExecutNoncury() คับ ช่วยที่คับ

[.NET] บันทึกข้อมูลจาก Datagrid ลง DB กดบันทึกเเล้วขึ้น Debug ตรง .ExecutNoncury() คับ ช่วยที่คับ

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

WooDy

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

Code (VB.NET)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Using con As New SqlConnection("data source=tiger;initial catalog=transport;uid=sa;pwd=47222420322")
            con.Open()
            Dim tr As SqlTransaction = con.BeginTransaction
            For i As Integer = 0 To DataGridView1.RowCount - 1
                Dim cm As New SqlCommand("insert into tblbbk1 (keydate,tranid,proid,proname,box,trancost,bill,amount,typeid,zone) values (@a,@b,@c,@d,@e,@f,@g,@h,@i,@j)", con, tr)
                With cm
                    .Parameters.AddWithValue("@a", dtp.Value.ToString("MM/dd/yyyy"))
                    .Parameters.AddWithValue("@b", cb1.SelectedValue)
                    .Parameters.AddWithValue("@c", DataGridView1.Rows(i).Cells(0))
                    .Parameters.AddWithValue("@d", DataGridView1.Rows(i).Cells(1))
                    .Parameters.AddWithValue("@e", DataGridView1.Rows(i).Cells(2))
                    .Parameters.AddWithValue("@f", DataGridView1.Rows(i).Cells(3))
                    .Parameters.AddWithValue("@g", txt6.Text)
                    .Parameters.AddWithValue("@h", DataGridView1.Rows(i).Cells(4))
                    .Parameters.AddWithValue("@i", ty.Text)
                    .Parameters.AddWithValue("@j", tz.Text)
                    .ExecuteNonQuery()
                End With
            Next
            tr.Commit()
            MessageBox.Show("บันทึกการแก้ไขข้อมูลเรียบร้อยแล้ว", "Database", MessageBoxButtons.OK)
            DataGridView1.Rows.Clear()
        End Using
End Sub

บันทึกข้อมูลจาก Datagrid ลง DB กดบันทึกเเล้วขึ้น Debug ตรง .ExecutNoncury () คับ ช่วยที่คับ

Tag : .NET, VB.NET

Date : 2011-06-14 16:58:21

By : crazy-Ugly

View : 3025

Reply : 61

No. 1

TC Admin

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

Error ว่าอะไรครับ

Date : 2011-06-14 18:05:55

By : webmaster

No. 2

TC Admin

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

ตัวอย่างการใช้ SqlParameter ครับ

Code (VB.NET)

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()

Go to : ASP.NET SQL Server BLOB Binary Data and Parameterized Query

Go to : ASP.NET System.Data.SqlClient - Parameter Query (SqlParameter)

Date : 2011-06-14 20:53:30

By : webmaster

No. 3

WooDy

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

นี่คับ มัน error ตรงนี้คับ ขึ้นข้อความแบบนี้คับ

Date : 2011-06-15 08:19:51

By : crazy-Ugly

No. 4

WooDy

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

ช่วยทีคับพี่ วิน ผมพยายามเขียนอยู่เป็นอาทิดละคับตรงบันทึก ไม่ได้จิงๆคับ เลยมาโพสขอความช่วยเหลือคับ

คือ ผม บันทึกข้อมูลที่มีอยู่ใน Datagrid เลยคับไม่ได้ผูกกับ textbox คับ ผมกระทำการใน Datagrid เลยคับ

โดยข้อมูลใน datagrid ผมดึงข้อมูลมาจาก tabal อื่นคับ ดึงเอาเฉพาะ รหัสสินค้า ชื่อสินค้า เเละจำนวนกล่อง มาคับ เพื่อจะมากรอกค่า Rate เพราะข้อมูลมันเหมือนกันแต่หาผลลัพพ์คนละส่วนงานคับ โดยใช้ Datagrid ตัวนี้เเหละคับเป็นตัวเชื่อม แต่มันบันทึกไม่ได้คับ

ข้อ Debug ดังภาพด้านบนครับ

ขอคุณครับ

ประวัติการแก้ไข
2011-06-15 08:53:57
2011-06-15 08:55:08

Date : 2011-06-15 08:23:00

By : crazy-Ugly

No. 5

WooDy

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

Error อย่างนี้คับ

Date : 2011-06-15 09:24:21

By : crazy-Ugly

No. 6

หางอึ่ง

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

ลองเพิ่ม .Value
Original

1..Parameters.AddWithValue("@c", DataGridView1.Rows(i).Cells(0))

เป็นแบบนี้
Revised

1..Parameters.AddWithValue("@c", DataGridView1.Rows(i).Cells(0).Value)

เพิ่มเติม
1. ถ้าจะให้ดีควรใช้ BindingSource ช่วย จะทำให้การเขียนโค้ดไม่ยึดติด Index ของ Column
2. ถ้าจะใช้ SqlTransaction ให้ครบหลักสูตร ต้องมีการเรียกใช้ Method Commit และ Rollback (เรียกเมื่อ Error)

Code (VB.NET)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Using con As New SqlConnection("data source=tiger;initial catalog=transport;uid=sa;pwd=47222420322")
            con.Open()
            Dim bs As BindingSource = DataGridView1.DataSource   ' จะ Error ถ้าไม่ได้ใช้ BindingSource เป็น DataSource ในตอนแรก
            Dim tr As SqlTransaction = con.BeginTransaction
            Try
 
            For i As Integer = 0 To DataGridView1.RowCount - 1
                Dim cm As New SqlCommand("insert into tblbbk1 (keydate,tranid,proid,proname,box,trancost,bill,amount,typeid,zone) values (@a,@b,@c,@d,@e,@f,@g,@h,@i,@j)", con, tr)
                With cm
                    .Parameters.AddWithValue("@a", dtp.Value.ToString("MM/dd/yyyy"))
                    .Parameters.AddWithValue("@b", cb1.SelectedValue)
                    .Parameters.AddWithValue("@c", bs.List(i)("proid"))
                    .Parameters.AddWithValue("@d", bs.List(i)("proname"))
                    .Parameters.AddWithValue("@e", bs.List(i)("box"))
                    .Parameters.AddWithValue("@f", bs.List(i)("trancost"))
                    .Parameters.AddWithValue("@g", txt6.Text)
                    .Parameters.AddWithValue("@h", bs.List(i)("amount"))
                    .Parameters.AddWithValue("@i", ty.Text)
                    .Parameters.AddWithValue("@j", tz.Text)
                    .ExecuteNonQuery()
                End With
            Next
            tr.Commit()
            MessageBox.Show("บันทึกการแก้ไขข้อมูลเรียบร้อยแล้ว", "Database", MessageBoxButtons.OK)
            DataGridView1.Rows.Clear()
            Catch ex As Exception
                  tr.Rollback()               ' ถ้าจะใช้ SqlTransaction ก็ควรจะมี tr.Rollback() เพื่อให้ทำงานได้เต็มรูปแบบ
                  MessageBox.Show(ex.Message)
            Finally
                  tr.Dispose
            End Try
        End Using
End Sub

Date : 2011-06-15 13:15:10

By : watcharop

No. 7

WooDy

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

เคยใส่ . value ต่อท้ายเเล้วคับ Error จุดเดิมคับ แต่ข้อความที่Debug มาบอกเป็นแบบนี้คับ

value error

Date : 2011-06-15 14:35:55

By : crazy-Ugly

No. 8

WooDy

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

ช่วยทีคับ

Date : 2011-06-15 14:47:02

By : crazy-Ugly

No. 9

WooDy

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

Code (VB.NET)

Private Sub butsup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butsup.Click
        Using con As New SqlConnection("data source=tiger;initial catalog=transport;uid=sa;pwd=47222420322")
            con.Open()
            Dim bs As BindingSource = DataGridView1.DataSource 'จะ Error ถ้าไม่ได้ใช้ BindingSource เป็น DataSource ในตอนแรก
            Dim tr As SqlTransaction = con.BeginTransaction
            Try
                For i As Integer = 0 To DataGridView1.RowCount - 1
                    Dim cm As New SqlCommand("insert into tblbbk1 (keydate,tranid,proid,proname,box,trancost,bill,amount,typeid,zone) values (@a,@b,@c,@d,@e,@f,@g,@h,@i,@j)", con, tr)
                    With cm
                        .Parameters.AddWithValue("@a", dtp.Value.ToString("MM/dd/yyyy"))
                        .Parameters.AddWithValue("@b", cb1.SelectedValue)
                        .Parameters.AddWithValue("@c", bs.List(i)("proid"))
                        .Parameters.AddWithValue("@d", bs.List(i)("proname"))
                        .Parameters.AddWithValue("@e", bs.List(i)("box"))
                        .Parameters.AddWithValue("@f", bs.List(i)("trancost"))
                        .Parameters.AddWithValue("@g", txt6.Text)
                        .Parameters.AddWithValue("@h", bs.List(i)("amount"))
                        .Parameters.AddWithValue("@i", ty.Text)
                        .Parameters.AddWithValue("@j", tz.Text)
                        .ExecuteNonQuery()
                    End With
                Next
                tr.Commit()
                MessageBox.Show("บันทึกข้อมูลเรียบร้อยแล้ว", "Database", MessageBoxButtons.OK)
                DataGridView1.Rows.Clear()
                'หากโปรแกรม Error ให้เเสดงข้อมความของ Debug โดยใช้ Catch . . . as Exception
            Catch ex As Exception
                tr.Rollback()
                MessageBox.Show(ex.Message)
            Finally
                tr.Dispose()
            End Try
        End Using
End Sub

ผมลองเขียนตามที่พี่แนะนำครับ ยัง Error จุดเดิมคับ .ExecutNonQuery()

มันขึ้น Error แบบนี้คับ

Error message

ประวัติการแก้ไข
2011-06-15 16:42:27

Date : 2011-06-15 14:52:25

By : crazy-Ugly

No. 10

WooDy

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

ช่วยผมด้วยคร๊าป

Date : 2011-06-16 08:06:31

By : crazy-Ugly

No. 11

TC Admin

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

ลอง Debug ดูครับ Error ตรง Line ไหนครับ

Date : 2011-06-16 08:39:28

By : webmaster

No. 12

WooDy

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

Code (VB.NET)

Using con As New SqlConnection("data source=tiger;initial catalog=transport;uid=sa;pwd=47222420322")
            con.Open()
            Dim bs As BindingSource = DataGridView1.DataSource 'จะ Error ถ้าไม่ได้ใช้ BindingSource เป็น DataSource ในตอนแรก
            Dim tr As SqlTransaction = con.BeginTransaction
            Try
                For i As Integer = 0 To DataGridView1.RowCount - 1
                    Dim cm As New SqlCommand("insert into tblbbk1 (keydate,tranid,proid,proname,box,trancost,bill,amount,typeid,zone) values (@a,@b,@c,@d,@e,@f,@g,@h,@i,@j)", con, tr)
                    With cm
                        .Parameters.AddWithValue("@a", dtp.Value.ToString("MM/dd/yyyy"))
                        .Parameters.AddWithValue("@b", cb1.SelectedValue)
                        .Parameters.AddWithValue("@c", bs.List(i)("proid"))
                        .Parameters.AddWithValue("@d", bs.List(i)("proname"))
                        .Parameters.AddWithValue("@e", bs.List(i)("box"))
                        .Parameters.AddWithValue("@f", bs.List(i)("trancost"))
                        .Parameters.AddWithValue("@g", txt6.Text)
                        .Parameters.AddWithValue("@h", bs.List(i)("amount"))
                        .Parameters.AddWithValue("@i", ty.Text)
                        .Parameters.AddWithValue("@j", tz.Text)
                        .ExecuteNonQuery()
                    End With
                Next
                tr.Commit()
                MessageBox.Show("บันทึกข้อมูลเรียบร้อยแล้ว", "Database", MessageBoxButtons.OK)
                DataGridView1.Rows.Clear()
                'หากโปรแกรม Error ให้เเสดงข้อมความของ Debug โดยใช้ Catch . . . as Exception
            Catch ex As Exception
                tr.Rollback()
                MessageBox.Show(ex.Message)
            Finally
                tr.Dispose()
            End Try
        End Using
End Sub

พี่วินครับ จากโค๊ดข้างบนนี้ เวลากด บันทึก rate เเล้วมัน show message เเบบนี้คับ

message error

Date : 2011-06-16 10:13:00

By : crazy-Ugly

No. 13

หางอึ่ง

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

ลองเปลี่ยน
For i As Integer = 0 To DataGridView1.RowCount - 1
เป็น
For i As Integer = 0 To bs.Count - 1

Code (VB.NET)

Private Sub butsup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butsup.Click
        Using con As New SqlConnection("data source=tiger;initial catalog=transport;uid=sa;pwd=47222420322")
            con.Open()
            Dim bs As BindingSource = DataGridView1.DataSource 'จะ Error ถ้าไม่ได้ใช้ BindingSource เป็น DataSource ในตอนแรก
            Dim tr As SqlTransaction = con.BeginTransaction
            Try
                For i As Integer = 0 To bs.Count - 1
                    Dim cm As New SqlCommand("insert into tblbbk1 (keydate,tranid,proid,proname,box,trancost,bill,amount,typeid,zone) values (@a,@b,@c,@d,@e,@f,@g,@h,@i,@j)", con, tr)
                    With cm
                        .Parameters.AddWithValue("@a", dtp.Value.ToString("MM/dd/yyyy"))
                        .Parameters.AddWithValue("@b", cb1.SelectedValue)
                        .Parameters.AddWithValue("@c", bs.List(i)("proid"))
                        .Parameters.AddWithValue("@d", bs.List(i)("proname"))
                        .Parameters.AddWithValue("@e", bs.List(i)("box"))
                        .Parameters.AddWithValue("@f", bs.List(i)("trancost"))
                        .Parameters.AddWithValue("@g", txt6.Text)
                        .Parameters.AddWithValue("@h", bs.List(i)("amount"))
                        .Parameters.AddWithValue("@i", ty.Text)
                        .Parameters.AddWithValue("@j", tz.Text)
                        .ExecuteNonQuery()
                    End With
                Next
                tr.Commit()
                MessageBox.Show("บันทึกข้อมูลเรียบร้อยแล้ว", "Database", MessageBoxButtons.OK)
                DataGridView1.Rows.Clear()
                'หากโปรแกรม Error ให้เเสดงข้อมความของ Debug โดยใช้ Catch . . . as Exception
            Catch ex As Exception
                tr.Rollback()
                MessageBox.Show(ex.Message)
            Finally
                tr.Dispose()
            End Try
        End Using
End Sub

Date : 2011-06-16 12:54:12

By : watcharop

No. 14

WooDy

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

เหมือนเดิมคับพี่ ขึ้น message เหมือนเดิมคับ

ขอบใจมากคับที่ช่วยผม ไม่ได้จิงๆ คับ ขอบคุณมากคับ

ประวัติการแก้ไข
2011-06-16 17:16:24

Date : 2011-06-16 17:09:58

By : crazy-Ugly

No. 15

WooDy

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

ช่วยผมทีคับ มันติดตรงไหนเหรอคับ ?

Date : 2011-06-17 08:36:54

By : crazy-Ugly

No. 16

WooDy

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

อุปสรรค์จิงๆคับ จะเสดก็ไม่เสด ช่วยผมด้วยครับพี่ๆ

Date : 2011-06-17 08:38:56

By : crazy-Ugly

No. 17

WooDy

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

ผมลองเปลี่ยนโดยไม่ใช้ Try คับ มัน error ตรงนี้คับ

test 2

ประวัติการแก้ไข
2011-06-17 08:55:47

Date : 2011-06-17 08:51:42

By : crazy-Ugly

No. 18

WooDy

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

จากภาพด้านบนผมลองเปลี่ยน แบบเป็นนี้คับ

test 3

Date : 2011-06-17 09:03:28

By : crazy-Ugly

No. 19

หางอึ่ง

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

ตอนเขียนโค้ด
กำหนดอะไรให้เป็น DataSource ของ DataGridView1

Date : 2011-06-17 09:12:21

By : watcharop

No. 20

WooDy

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

Dim bs As BindingSource = DataGridView1.DataSource คับ

ประวัติการแก้ไข
2011-06-17 10:47:49

Date : 2011-06-17 10:44:30

By : crazy-Ugly

No. 21

WooDy

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

Date : 2011-06-17 10:49:41

By : crazy-Ugly

No. 22

หางอึ่ง

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

ไม่ได้หมายถึงอย่างนั้น
งั้นลองใส่ MessageBox.Show("DataSource: " & DataGridView1.DataSource.GetType.ToString)
แล้วดูว่ามี Message ว่าอย่างไร

Code (VB.NET)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MessageBox.Show("DataSource: " & DataGridView1.DataSource.GetType.ToString)
        Using con As New SqlConnection("data source=tiger;initial catalog=transport;uid=sa;pwd=47222420322")
            con.Open()
            Dim bs As BindingSource = DataGridView1.DataSource   ' จะ Error ถ้าไม่ได้ใช้ BindingSource เป็น DataSource ในตอนแรก
            Dim tr As SqlTransaction = con.BeginTransaction
            Try
 
            For i As Integer = 0 To DataGridView1.RowCount - 1
                Dim cm As New SqlCommand("insert into tblbbk1 (keydate,tranid,proid,proname,box,trancost,bill,amount,typeid,zone) values (@a,@b,@c,@d,@e,@f,@g,@h,@i,@j)", con, tr)
                With cm
                    .Parameters.AddWithValue("@a", dtp.Value.ToString("MM/dd/yyyy"))
                    .Parameters.AddWithValue("@b", cb1.SelectedValue)
                    .Parameters.AddWithValue("@c", bs.List(i)("proid"))
                    .Parameters.AddWithValue("@d", bs.List(i)("proname"))
                    .Parameters.AddWithValue("@e", bs.List(i)("box"))
                    .Parameters.AddWithValue("@f", bs.List(i)("trancost"))
                    .Parameters.AddWithValue("@g", txt6.Text)
                    .Parameters.AddWithValue("@h", bs.List(i)("amount"))
                    .Parameters.AddWithValue("@i", ty.Text)
                    .Parameters.AddWithValue("@j", tz.Text)
                    .ExecuteNonQuery()
                End With
            Next
            tr.Commit()
            MessageBox.Show("บันทึกการแก้ไขข้อมูลเรียบร้อยแล้ว", "Database", MessageBoxButtons.OK)
            DataGridView1.Rows.Clear()
            Catch ex As Exception
                  tr.Rollback()               ' ถ้าจะใช้ SqlTransaction ก็ควรจะมี tr.Rollback() เพื่อให้ทำงานได้เต็มรูปแบบ
                  MessageBox.Show(ex.Message)
            Finally
                  tr.Dispose
            End Try
        End Using
End Sub

Date : 2011-06-17 10:53:42

By : watcharop

No. 23

หางอึ่ง

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

ถ้าจะให้ดี เอาโค้ด ทั้งฟอร์มมาแปะด้วยจะดีกว่า
อยากดูตอนโหลดข้อมูล

Date : 2011-06-17 10:57:11

By : watcharop

No. 24

WooDy

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

คับ แปป คับ

Date : 2011-06-17 11:38:22

By : crazy-Ugly

No. 25

WooDy

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

Code (VB.NET)

Private Sub butre_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butre.Click
        If MessageBox.Show("คุณต้องการเรียกข้อมูลใช่หรือไม่?", "Database", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
            '****การดึงข้อมูลมาโชว์ใน DataGrid****'
            DataGridView1.Show()
            lv.Hide()
            Using con As New SqlConnection("data source=tiger;initial catalog=transport;uid=sa;pwd=47222420322")
                con.Open()
                Dim sql As String = "select * from tblsum where keydate ='" & dtp.Value.ToString("MM/dd/yyyy") & "'and tranid ='" & cb1.SelectedValue & "'"
                Dim cmd As SqlCommand = New SqlCommand(sql, con)
                Dim dr As SqlDataReader = cmd.ExecuteReader
                Dim dt = New DataTable
                If dr.HasRows Then
                    Dim r As Integer = 0
                    While dr.Read
                        With DataGridView1
                            r = .RowCount - 1
                            .Rows.Add()
                            .Rows(r).Cells(0).Value = dr.Item(2)
                            .Rows(r).Cells(1).Value = dr.Item(3)
                            .Rows(r).Cells(2).Value = dr.Item(4)
                        End With
                    End While
                End If
            End Using
        End If
        DataGridView1.Focus()

อันนี้เป็นการเรียกข้อมูลคับ อิงจากวันที่ และ รหัสสินค้าคับ

Date : 2011-06-17 11:40:24

By : crazy-Ugly

No. 26

WooDy

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

ประวัติการแก้ไข
2011-06-17 11:46:25
2011-06-17 11:48:19
2011-06-17 15:02:36

Date : 2011-06-17 11:44:01

By : crazy-Ugly

No. 27

หางอึ่ง

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

จากโค้ดที่ให้มา
DataGridView1 มิได้ผูกข้อมูลกับ Object ใดๆ เลย
ซึ่งเป็นวิธีที่ไม่ค่อยนิยมทำกันนัก

เพราะฉะนั้นจึงไม่สามารถใช้โค้ดที่ผมเคยให้ไปได้ (โค้ดที่เกี่ยวเนื่องกับ bs)
ต้องใช้วิธีอ่านข้อมูลจาก DataGridView1 โดยตรง
อย่างที่คุณเขียนไว้แต่แรก

ช่วงนี้ลองหาตัวอย่างการใช้ DataGridView มาศึกษาก่อนดีกว่า
ใน WebSite นี้ก็มี
จะช่วยลดการเขียนโค้ดไปได้เยอะเลยล่ะ

Date : 2011-06-17 12:44:10

By : watcharop

No. 28

WooDy

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

ไม่มีหนทางเลยเหรอคับพี่ คือผมใช้ datagrid มาเป็นตัวกลางในการเรียกข้อมูลมาใช้คับ ข้อมูลเดียวกันแต่นำไปใช้คนละส่วนคับ
ส่วนที่ 1 add ข้อมูลจาก การหาค่าประกันสินค้าคับ จะเก็บข้อมูลไว้ใน tblsum
ส่วนที่ 2 (ส่วนที่ผมนำมาตั้งกระทู้อ่ะคับ) ผมดึงข้อมูลมาจาก tblsum เอาเฉพาะ รหัสสินค้า ชื่อสินค้า และ จำนวนกล่อง คับ เพื่อมาหาค่า Rate คับ
เลยไม่ได้ผูกกับวัตถุใดๆ คับ ตอนเเรกลองดึงข้อมูลมาใส่ใน Listview เเต่ไม่ Listview ไม่สามารถเเทรข้อมูลต่อท้ายข้อมูลที่ดุงมาได้คับ เลยลองมาใช้ datagrid ผลลัพพ์คือ สามารถกระทำการได้ แต่ติดตรง บีนทึกลง DB นี่แหละคับ จนปัญญาจิงๆคับ

ประวัติการแก้ไข
2011-06-17 15:10:51

Date : 2011-06-17 15:03:02

By : crazy-Ugly

No. 29

WooDy

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

ช่วยผมด้วยคับ

ประวัติการแก้ไข
2011-06-18 08:19:01

Date : 2011-06-18 08:17:36

By : crazy-Ugly

No. 30

WooDy

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

มีส่วนไหมคับที่เวลาผมดึงข้อมูลมา จะมี Record ที่ว่างอยู่สุดท้ายเสมอ อะคับ ส่วนนี้จะทำให้ Error ได้เป่าคับ

exam

เเล้วจะสามารถทำให้เวลาดึงข้อมูลมา ไม่เอา record ที่เป็นค่า ว่างได้เป่าคับ ให้พอดีกับข้อมูลที่ดึงมาเลยคับ

โค๊ด ดึงข้อมูล

Code (VB.NET)

f MessageBox.Show("คุณต้องการเรียกข้อมูลใช่หรือไม่?", "Database", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
            '****การดึงข้อมูลมาโชว์ใน DataGrid****'
            DataGridView1.Show()
            lv.Hide()
            Using con As New SqlConnection("data source=tiger;initial catalog=transport;uid=sa;pwd=47222420322")
                con.Open()
                Dim sql As String = "select * from tblsum where keydate ='" & dtp.Value.ToString("MM/dd/yyyy") & "'and tranid ='" & cb1.SelectedValue & "'"
                Dim cmd As SqlCommand = New SqlCommand(sql, con)
                Dim dr As SqlDataReader = cmd.ExecuteReader
                Dim dt = New DataTable
                If dr.HasRows Then
                    Dim r As Integer = 0
                    While dr.Read
                        With DataGridView1
                            r = .RowCount - 1
                            .Rows.Add()
                            .Rows(r).Cells(0).Value = dr.Item(2)
                            .Rows(r).Cells(1).Value = dr.Item(3)
                            .Rows(r).Cells(2).Value = dr.Item(4)
                        End With
                    End While
                End If
            End Using
        End If
        DataGridView1.Focus()

Date : 2011-06-18 09:25:37

By : crazy-Ugly

No. 31

WooDy

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

Date : 2011-06-18 13:44:39

By : crazy-Ugly

No. 32

หางอึ่ง

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

ใน DataGridViewRow จะมี Property
ชื่อ IsnewRow (ถ้าจำไม่ผิด) ก็ใช้ประโยชน์จากตัวนี้แหละ

Date : 2011-06-18 17:19:27

By : watcharop

No. 33

WooDy

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

ขอเป็น Code ได้ไหมคับพี่ คือผมดูเเล้วมันไม่มีคับ IsnewRow

Date : 2011-06-20 08:39:38

By : crazy-Ugly

No. 34

หางอึ่ง

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

ใช้ Tool ตัวไหนอยู่ครับ
มันจะเริ่มมีใน .NET 2.0
ซึ่งต้องใช้ VS2005 เป็นต้นไป

DataGridView1.Rows(0).IsNewRow

http://msdn.microsoft.com/en-US/library/system.windows.forms.datagridviewrow_members(v=VS.80).aspx

ตัวอย่างอยู่ล่างๆ หน่อย
http://msdn.microsoft.com/en-US/library/system.windows.forms.datagridviewrow.isnewrow(v=VS.80).aspx

ประวัติการแก้ไข
2011-06-20 09:47:28

Date : 2011-06-20 09:45:49

By : watcharop

No. 35

WooDy

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

ผมใช้ 3.5 + SQL 2005 คับ

Code (VB.NET)

If MessageBox.Show("คุณต้องการเรียกข้อมูลใช่หรือไม่?", "Database", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
            '****การดึงข้อมูลมาโชว์ใน DataGrid****'
            DataGridView1.Show()
            lv.Hide()
            Using con As New SqlConnection("data source=tiger;initial catalog=transport;uid=sa;pwd=47222420322")
                con.Open()
                Dim sql As String = "select * from tblsum where keydate ='" & dtp.Value.ToString("MM/dd/yyyy") & "'and tranid ='" & cb1.SelectedValue & "'"
                Dim cmd As SqlCommand = New SqlCommand(sql, con)
                Dim dr As SqlDataReader = cmd.ExecuteReader
                Dim dt = New DataTable
                If dr.HasRows Then
                    Dim r As Integer = 0
                    While dr.Read
                        With DataGridView1
                            r = .RowCount - 1
                            .Rows.Add()
                            .Rows(r).Cells(0).Value = dr.Item(2)
                            .Rows(r).Cells(1).Value = dr.Item(3)
                            .Rows(r).Cells(2).Value = dr.Item(4)
                        End With
                    End While
                End If
            End Using
        End If
        DataGridView1.Focus()

จากโค๊ดด้านบนนี้ ผมต้องเขียนยังไงคับ ช่วยที่คับพี่ ตรงนี้ได้ก็เสร็จครับโปรแกรมนี้

Date : 2011-06-20 10:54:01

By : crazy-Ugly

No. 36

Guest

ตอบความคิดเห็นที่ : 30 เขียนโดย : crazy-Ugly เมื่อวันที่ 2011-06-18 09:25:37

รายละเอียดของการตอบ ::

มุมขวาของ datagrid เอาเครื่องหมายถูกออกสิ พวก enable Add ,enable edit

Date : 2011-06-20 11:23:19

By : test

No. 37

หางอึ่ง

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

ตอบความคิดเห็นที่ : 35 เขียนโดย : crazy-Ugly เมื่อวันที่ 2011-06-20 10:54:01

รายละเอียดของการตอบ ::

เอ่อ ไม่รู้ว่าคุยกันประเด็นเดียวกันรึเปล่า
Property IsNewRow ใช้ตอนบันทึกข้อมูล
ส่วนตอนอ่านข้อมูลจาก DataReader เข้า DataGridView ไม่เกี่ยวกับ Property ตัวนี้

Date : 2011-06-20 13:21:21

By : watcharop

No. 38

WooDy

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

ตอบความคิดเห็นที่ : 36 เขียนโดย : test เมื่อวันที่ 2011-06-20 11:23:19

รายละเอียดของการตอบ ::

" มุมขวาของ datagrid เอาเครื่องหมายถูกออกสิ พวก enable Add ,enable edit "

... ขอบคุณครับ
ผมเอาออกเเล้วคับ มันไม่เเสดงข้อมูลคับ เวลากดเรียกข้อมูล.......

ประวัติการแก้ไข
2011-06-21 08:16:18
2011-06-21 08:17:15

Date : 2011-06-21 08:15:36

By : crazy-Ugly

No. 39

WooDy

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

โค๊ดบันทึกคับ จะต้องเขียนยังไงคับ ไม่ทราบจิงๆคับ

Code (VB.NET)

Private Sub butsup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butsup.Click
        Using con As New SqlConnection("data source=tiger;initial catalog=transport;uid=sa;pwd=47222420322")
            con.Open()
            'Dim bs As BindingSource = DataGridView1.DataSource 'จะ Error ถ้าไม่ได้ใช้ BindingSource เป็น DataSource ในตอนแรก
            Dim tr As SqlTransaction = con.BeginTransaction
            'Try
            For i As Integer = 0 To DataGridView1.RowCount - 1
 
                Dim cm As New SqlCommand("insert into tblbbk1 (keydate,tranid,proid,proname,box,trancost,bill,amount,typeid,zone) values (@a,@b,@c,@d,@e,@f,@g,@h,@i,@j)", con, tr)
                With cm
                    .Parameters.AddWithValue("@a", dtp.Value.ToString("MM/dd/yyyy"))
                    .Parameters.AddWithValue("@b", cb1.SelectedValue)
                    .Parameters.AddWithValue("@c", DataGridView1.Rows(i).Cells(0).Value)
                    .Parameters.AddWithValue("@d", DataGridView1.Rows(i).Cells(1).Value)
                    .Parameters.AddWithValue("@e", DataGridView1.Rows(i).Cells(2).Value)
                    .Parameters.AddWithValue("@f", DataGridView1.Rows(i).Cells(3).Value)
                    .Parameters.AddWithValue("@g", txt6.Text)
                    .Parameters.AddWithValue("@h", DataGridView1.Rows(i).Cells(4).Value)
                    .Parameters.AddWithValue("@i", ty.Text)
                    .Parameters.AddWithValue("@j", tz.Text)
                    .ExecuteNonQuery()
                End With
            Next
            tr.Commit()
            MessageBox.Show("บันทึกข้อมูลเรียบร้อยแล้ว", "Database", MessageBoxButtons.OK)
            DataGridView1.Rows.Clear()
            '' ''หากโปรแกรม Error ให้เเสดงข้อมความของ Debug โดยใช้ Catch . . . as Exception
            'Catch ex As Exception
            '    tr.Rollback()
            '    MessageBox.Show(ex.Message)
            'Finally
            '    tr.Dispose()
            'End Try
        End Using
    End Sub

Date : 2011-06-21 08:39:22

By : crazy-Ugly

No. 40

หางอึ่ง

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

มันยาก
เลยไม่เคยอยากเขียนให้ดู เหนื่อย
ผมไม่เคยใช้ DataGridView เก็บข้อมูลตรงๆ แบบนี้
เพราะมันจะวุ่นวายทั้งตอนโหลดข้อมูล และตอนบันทึกนี่แหละ

Date : 2011-06-21 09:00:24

By : watcharop

No. 41

หางอึ่ง

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

ตัวอย่างที่ผมใช้ จะประมาณนี้
https://www.thaicreate.com/dotnet/forum/053293.html

Date : 2011-06-21 09:04:19

By : watcharop

No. 42

WooDy

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

พอมีหนทางอื่นไหมครับพี่ที่พอจะทำได้นอกจาก ที่ผมทำ

Date : 2011-06-21 13:22:07

By : crazy-Ugly

No. 43

KaimuK

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

จากกระทู้ 39 จขกท. ทดสอบส่งค่าเป็น ข้อมูลตรงๆดูได้ไหมครับ ว่าผ่านหรือไม่ โดยไม่ต้องอ้างอิงไป Gridview ได้ผลอย่างไรบอกให้ทราบด้วยครับ

Date : 2011-06-21 14:35:59

By : kaimuk

No. 44

WooDy

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

อธิบายก่อนน่ะครับ คือผมดึงข้อมูลมาจากตารางอื่นน่ะคับ ไม่ได้ Add ข้อมูลเข้าDatagrid ทั้งหมด และไม่ได้ผูก กับ เครื่องมือใดๆ คับ
แบบว่าใช้ Datagrid เป็นตัวแสดงผลเฉยๆคับ

แบบนี้คับ
rate

จากภาพด้านบน ผมจะคีย์ค่า Rate ลงไป (คีย์ในตาราง Datagrid เลยน่ะคับ ไม่ได้คีย์ใน Txtbox)
แล้วในช่อง Amount = จำนวนกล่อง * Rate

ผมใช้ Code นี้คับในการคำนวน
Private Sub DataGridView1_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
Dim i As Integer
For i = 0 To DataGridView1.RowCount - 1
DataGridView1.Rows(i).Cells(4).Value = DataGridView1.Rows(i).Cells(3).Value * DataGridView1.Rows(i).Cells(2).Value
Next
End Sub

ดังภาพนี้คับ

amount

ปัญหาคือ พอผมคีย์ค่า Rate ครบตามข้อมูลที่ดึงมา เสร็จ แล้วกดบันทึก มันข้อ Error debug คับ (กระทู้ที่ 7)

ช่วยทีคับ

ประวัติการแก้ไข
2011-06-21 16:47:18
2011-06-21 16:52:11
2011-06-21 16:53:05
2011-06-21 16:55:27
2011-06-21 16:57:55
2011-06-21 16:59:53

Date : 2011-06-21 16:43:46

By : crazy-Ugly

No. 45

KaimuK

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

Code (VB.NET)

With cm
.Parameters.AddWithValue("@a", dtp.Value.ToString("MM/dd/yyyy"))
.Parameters.AddWithValue("@b", cb1.SelectedValue)
.Parameters.AddWithValue("@c", DataGridView1.Rows(i).Cells(0).Value)
.Parameters.AddWithValue("@d", DataGridView1.Rows(i).Cells(1).Value)
.Parameters.AddWithValue("@e", DataGridView1.Rows(i).Cells(2).Value)
.Parameters.AddWithValue("@f", DataGridView1.Rows(i).Cells(3).Value)
.Parameters.AddWithValue("@g", txt6.Text)
.Parameters.AddWithValue("@h", DataGridView1.Rows(i).Cells(4).Value)
.Parameters.AddWithValue("@i", ty.Text)
.Parameters.AddWithValue("@j", tz.Text)
.ExecuteNonQuery()
End With

ตรง DataGridView1.Rows(i).Cells(0).Value บราๆๆ ทั้งหลายเนี้ยครับ กรณีที่เราใส่ค่าไปตรงๆเลย จะผ่านหรือไม่ จะได้พอสรุปได้ว่าเป็นกับ DataGrid หรือไม่น่ะครับ

Date : 2011-06-21 16:59:17

By : kaimuk

No. 46

WooDy

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

ยังไงเหรอคับ ส่งค่าโดยตรง ผมดึงข้อมูลมาครับ ดูกระทู้ 44 คับ

อย่าว่ากันน่ะคับผมไม่รู้จิงๆ มือใหม่คับ

ประวัติการแก้ไข
2011-06-21 17:07:48
2011-06-21 17:08:35
2011-06-21 17:09:14

Date : 2011-06-21 17:05:56

By : crazy-Ugly

No. 47

WooDy

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

ช่วยผมทีครับ

Date : 2011-06-22 08:09:01

By : crazy-Ugly

No. 48

หางอึ่ง

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

ทำไมไม่ลอง Insert เริ่มจากจำนวน Column น้อยๆ ก่อนล่ะ
จะได้รู้ว่า Column ไหนมีปัญหา
เช่นจาก Column ทั้งหมด keydate,tranid,proid,proname,box,trancost,bill,amount,typeid,zone
ก็ลอง Insert แค่ ฟิล์ดที่เป็นตัวเลข กับเป็น Text ก่อน และก็ฟิล์ด ที่ไม่เกี่ยวข้องกับ DataGridView
จะได้มั่นใจว่า ปัญหาเกิดจากฟิล์ดวันที่ หรือฟิล์ดใน DataGridView

ปัญหาของมนุษย์หลายๆ ท่าน ก็เกิดจากการ Insert ฟิล์ดวันที่

Code (VB.NET)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Using con As New SqlConnection("data source=tiger;initial catalog=transport;uid=sa;pwd=47222420322")
            con.Open()
            Dim tr As SqlTransaction = con.BeginTransaction
            For i As Integer = 0 To DataGridView1.RowCount - 1
                Dim cm As New SqlCommand("insert into tblbbk1 (keydate,tranid,proid,proname,box,trancost,bill,amount,typeid,zone) values (@a,@b,@c,@d,@e,@f,@g,@h,@i,@j)", con, tr)
                With cm
                    .Parameters.AddWithValue("@a", dtp.Value.ToString("MM/dd/yyyy"))
                    .Parameters.AddWithValue("@b", cb1.SelectedValue)
                    .Parameters.AddWithValue("@c", DataGridView1.Rows(i).Cells(0))
                    .Parameters.AddWithValue("@d", DataGridView1.Rows(i).Cells(1))
                    .Parameters.AddWithValue("@e", DataGridView1.Rows(i).Cells(2))
                    .Parameters.AddWithValue("@f", DataGridView1.Rows(i).Cells(3))
                    .Parameters.AddWithValue("@g", txt6.Text)
                    .Parameters.AddWithValue("@h", DataGridView1.Rows(i).Cells(4))
                    .Parameters.AddWithValue("@i", ty.Text)
                    .Parameters.AddWithValue("@j", tz.Text)
                    .ExecuteNonQuery()
                End With
            Next
            tr.Commit()
            MessageBox.Show("บันทึกการแก้ไขข้อมูลเรียบร้อยแล้ว", "Database", MessageBoxButtons.OK)
            DataGridView1.Rows.Clear()
        End Using
End Sub

Date : 2011-06-22 08:39:24

By : watcharop

No. 49

KaimuK

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

ตอบความคิดเห็นที่ : 48 เขียนโดย : watcharop เมื่อวันที่ 2011-06-22 08:39:24

รายละเอียดของการตอบ ::

ตามที่ท่านหางอึ่งกล่าวแหละครับ วันที่นี้ตัวปราบเซียนเลย ทดลองประมาณนี้ครับ

Code (VB.NET)

With cm
.Parameters.AddWithValue("@a", "'2011-06-22 00:00:00'")
.Parameters.AddWithValue("@b", "B")
.Parameters.AddWithValue("@c", "B")
.Parameters.AddWithValue("@d", "B")
.Parameters.AddWithValue("@e", "B")
.Parameters.AddWithValue("@f", "B")
.Parameters.AddWithValue("@g", "B")
.Parameters.AddWithValue("@h", "B")
.Parameters.AddWithValue("@i", "B")
.Parameters.AddWithValue("@j", "B")
.ExecuteNonQuery()
End With

ส่วนอันไหนที่มันเป็น FK ก็ทำให้มันตรง ทดลอง Run ดูว่าผ่านหรือไม่น่ะครับ

Date : 2011-06-22 08:49:06

By : kaimuk

No. 50

WooDy

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

เหมือนเดิมคับ

Date : 2011-06-22 10:40:58

By : crazy-Ugly

No. 51

WooDy

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

Database คับ

Date : 2011-06-22 10:45:56

By : crazy-Ugly

No. 52

WooDy

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

" ทำไมไม่ลอง Insert เริ่มจากจำนวน Column น้อยๆ ก่อนล่ะ
จะได้รู้ว่า Column ไหนมีปัญหา
เช่นจาก Column ทั้งหมด keydate,tranid,proid,proname,box,trancost,bill,amount,typeid,zone
ก็ลอง Insert แค่ ฟิล์ดที่เป็นตัวเลข กับเป็น Text ก่อน และก็ฟิล์ด ที่ไม่เกี่ยวข้องกับ DataGridView
จะได้มั่นใจว่า ปัญหาเกิดจากฟิล์ดวันที่ หรือฟิล์ดใน DataGridView

ปัญหาของมนุษย์หลายๆ ท่าน ก็เกิดจากการ Insert ฟิล์ดวันที่ "

try

แบบนี้บันทึกได้คับ ข้อมูลเข้า DB คับ

ประวัติการแก้ไข
2011-06-22 10:54:29
2011-06-22 10:55:05

Date : 2011-06-22 10:51:47

By : crazy-Ugly

No. 53

หางอึ่ง

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

ก็เป็นนิมิตหมายที่ดี
งั้นต่อไปก็ลองกับ DataGridView
ทีละ Column
เดี๋ยวก็เจอล่ะ

Date : 2011-06-22 11:02:51

By : watcharop

No. 54

WooDy

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

ไม่ได้เลยคับ บันทึกข้อมุลใน Datagrid ไม่ได้ซัก Column เลยคับ

และผมลองเอา Code คำนวนออก ก็บันทึกไม่ได้คับ แต่มันขึ้น debug แบบนี้คับ
try3

ประวัติการแก้ไข
2011-06-22 14:14:27
2011-06-22 14:29:37
2011-06-22 14:31:58

Date : 2011-06-22 14:13:50

By : crazy-Ugly

No. 55

หางอึ่ง

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

เริ่มจาก บันทึกเฉพาะ proid ซึ่งมีชนิดข้อมูลเป็น nvarchar(2)

Code (VB.NET)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Using con As New SqlConnection("data source=tiger;initial catalog=transport;uid=sa;pwd=47222420322")
            con.Open()
            Dim tr As SqlTransaction = con.BeginTransaction
 
            ' ส่วนของการสร้าง Parameters ไว้ก่อน For Loop
           Dim cm As New SqlCommand("insert into tblbbk1 (keydate,tranid,proid,bill,typeid,zone) values (@a,@b,@proid,@g,@i,@j)", con, tr)
                With cm
                    .Parameters.AddWithValue("@a", dtp.Value.ToString("MM/dd/yyyy"))
                    .Parameters.AddWithValue("@b", cb1.SelectedValue)
                    .Parameters.Add("@proid", SqlDbType.NVarChar,2)    ' แนะนำให้ Add Parameters ด้วยวิธีนี้ การ AddWithValue อาจทำให้ระบบตีความหมายของชนิดตัวแปรไม่ตรงกับที่ต้องการ
 
                    .Parameters.AddWithValue("@g", txt6.Text)
 
                    .Parameters.AddWithValue("@i", ty.Text)
                    .Parameters.AddWithValue("@j", tz.Text)
            End With
             
            For i As Integer = 0 To DataGridView1.RowCount - 1
               If Not DataGridView1.Rows(i).IsNewRow Then
                  ' Parameters ใดที่ไม่มีการแก้ไขข้อมูล ก็ไม่จำเป็นต้องใส่ใน For Loop
                  cm.Parameters("@proid").Value = DataGridView1.Rows(i).Cells(0).Value
                  cm.ExecuteNonQuery()
               End If
            Next
 
            tr.Commit()
            MessageBox.Show("บันทึกการแก้ไขข้อมูลเรียบร้อยแล้ว", "Database", MessageBoxButtons.OK)
            DataGridView1.Rows.Clear()
        End Using
End Sub

Date : 2011-06-22 14:44:03

By : watcharop

No. 56

WooDy

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

จาก Code กระทู้งด้านบนครับ

ได้ครับ พี่หางอึ่ง บันทึกได้ครับ

ข้อมูลใน Datagrid ส่วนของ proid บันทึกได้ครับ ลงใน DB แล้วครับ

(พอมีความหวังเเล้วครับ)

ประวัติการแก้ไข
2011-06-22 16:47:32
2011-06-22 16:49:15
2011-06-22 16:50:07

Date : 2011-06-22 16:45:46

By : crazy-Ugly

No. 57

WooDy

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

Code (VB.NET)

Private Sub butsup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butsup.Click
        Using con As New SqlConnection("data source=tiger;initial catalog=transport;uid=sa;pwd=47222420322")
            con.Open()
            Dim tr As SqlTransaction = con.BeginTransaction
            ' ส่วนของการสร้าง Parameters ไว้ก่อน For Loop
            Dim cm As New SqlCommand("insert into tblbbk1 (keydate,tranid,proid,proname,box,trancost,bill,amount,typeid,zone) values (@a,@b,@c,@d,@e,@f,@g,@h,@i,@j)", con, tr)
            With cm
                .Parameters.AddWithValue("@a", dtp.Value.ToString("MM/dd/yyyy"))
                .Parameters.AddWithValue("@b", cb1.SelectedValue)
                .Parameters.Add("@c", SqlDbType.NVarChar, 2)    ' แนะนำให้ Add Parameters ด้วยวิธีนี้ การ AddWithValue อาจทำให้ระบบตีความหมายของชนิดตัวแปรไม่ตรงกับที่ต้องการ
                .Parameters.Add("@d", SqlDbType.NVarChar, 50)
                .Parameters.Add("@e", SqlDbType.Int)
                .Parameters.Add("@f", SqlDbType.NVarChar, 20)
                .Parameters.AddWithValue("@g", txt6.Text)
                .Parameters.Add("@h", SqlDbType.Float)
                .Parameters.AddWithValue("@i", ty.Text)
                .Parameters.AddWithValue("@j", tz.Text)
            End With
            Try
                For i As Integer = 0 To DataGridView1.RowCount - 1
                    If Not DataGridView1.Rows(i).IsNewRow Then
                        ' Parameters ใดที่ไม่มีการแก้ไขข้อมูล ก็ไม่จำเป็นต้องใส่ใน For Loop
                        cm.Parameters("@c").Value = DataGridView1.Rows(i).Cells(0).Value
                        cm.Parameters("@d").Value = DataGridView1.Rows(i).Cells(1).Value
                        cm.Parameters("@e").Value = DataGridView1.Rows(i).Cells(2).Value
                        cm.Parameters("@f").Value = DataGridView1.Rows(i).Cells(3).Value
                        cm.Parameters("@h").Value = DataGridView1.Rows(i).Cells(4).Value
                        cm.ExecuteNonQuery()
                    End If
                Next
                tr.Commit()
                If MessageBox.Show("คุณต้องการบันทึกข้อมูลใช่หรือไม่?", "Database", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = Windows.Forms.DialogResult.Yes Then
                    MessageBox.Show("บันทึกข้อมูลเรียบร้อยเเล้ว", "Database", MessageBoxButtons.OK, MessageBoxIcon.Information)
                    DataGridView1.Rows.Clear()
                    DataGridView1.Hide()
                    lv.Show()
                    butsup.Enabled = False
                    butre.Enabled = False
                End If
            Catch ex As Exception
                tr.Rollback()               ' ถ้าจะใช้ SqlTransaction ก็ควรจะมี tr.Rollback() เพื่อให้ทำงานได้เต็มรูปแบบ
                MessageBox.Show(ex.Message)
            Finally
                tr.Dispose()
            End Try
        End Using
        butre.Enabled = True
        butadd.Enabled = True
        butprint.Enabled = True
        buts.Enabled = True
End Sub

ได้เเล้วครับ พี่ ขอบคุณมากครับ สุดยอดครับ ขอบคุณๆๆๆๆๆๆ มากๆ ครับ

Date : 2011-06-23 09:44:21

By : crazy-Ugly

No. 58

TC Admin

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

เห็นต่อเนื่องหลายวัน ก็เอาใจช่วยอยู่ครับ

Cheer !!

Date : 2011-06-24 09:40:06

By : webmaster

No. 59

หางอึ่ง

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

เพิ่งเห็นว่า Mr.Win บอกวิธีตั้งแต่ Post#2
ถ้าจขกท. เชื่อตั้งแต่ตอนแรก ก็เสร็จไปนานแล้ว

Date : 2011-06-24 10:37:27

By : watcharop

No. 60

Guest

ขอบคุณครับ i Love ThaiCreate.Com

Date : 2011-06-24 10:43:24

By : คุณศุภกร

No. 61

WooDy

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

ขอบคุณมากครับ

น้ำใจงามจิงๆครับ

Date : 2011-06-25 11:14:48

By : crazy-Ugly

ค้นหาข้อมูล

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

Re : บันทึกข้อมูลจาก Datagrid ลง DB กดบันทึกเเล้วขึ้น Debug ตรง .ExecutNoncury() คับ ช่วยที่คับ

รายละเอียด

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

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

Notice

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

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

โดย

อีเมล์

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

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

Registered : 109,038

document.write("<font color=996600>[.NET]</font>"); [.NET] บันทึกข้อมูลจาก Datagrid ลง DB กดบันทึกเเล้วขึ้น Debug ตรง .ExecutNoncury() คับ ช่วยที่คับ

No. 1

No. 2

No. 3

No. 4

No. 5

No. 6

No. 7

No. 8

No. 9

No. 10

No. 11

No. 12

No. 13

No. 14

No. 15

No. 16

No. 17

No. 18

No. 19

No. 20

No. 21

No. 22

No. 23

No. 24

No. 25

No. 26

No. 27

No. 28

No. 29

No. 30

No. 31

No. 32

No. 33

No. 34

No. 35

No. 36

No. 37

No. 38

No. 39

No. 40

No. 41

No. 42

No. 43

No. 44

No. 45

No. 46

No. 47

No. 48

No. 49

No. 50

No. 51

No. 52

No. 53

No. 54

No. 55

No. 56

No. 57

No. 58

No. 59

No. 60

No. 61

ค้นหาข้อมูล

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

Notice

[.NET] บันทึกข้อมูลจาก Datagrid ลง DB กดบันทึกเเล้วขึ้น Debug ตรง .ExecutNoncury() คับ ช่วยที่คับ