Forgot Password ??

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

	Registered : 109,038

HOME > .NET Framework > Forum > ต้องการดึงข้อมูลจาก database มาแสดงในใน Datagrid view vb.net ค่ะ หลังจากดึงมาแสดงแล้ว สามารถกดปุ่ม add เพิ่มข้อมูลใน datagrid view ได้ด้วยจะเขียนยังไงคะ

[.NET] ต้องการดึงข้อมูลจาก database มาแสดงในใน Datagrid view vb.net ค่ะ หลังจากดึงมาแสดงแล้ว สามารถกดปุ่ม add เพิ่มข้อมูลใน datagrid view ได้ด้วยจะเขียนยังไงคะ

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

Nan

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

ต้องการดึงข้อมูลจาก database มาแสดงในใน Datagrid view vb.net ค่ะ หลังจากดึงมาแสดงแล้ว สามารถกดปุ่ม add เพิ่มข้อมูลใน datagrid view ได้ด้วยจะเขียนยังไงคะ

คือทำหน้าแสดงรายการตามหมายเลข Order ไว้ เมื่อผู้ใช้งาน double click รายการนั้น ก็ต้องการให้แสดงหน้า ข้อมูลที่สามารถแก้ไขเพิ่มเติม ข้อมูลได้ ซึ่งข้อมูลมีการแสดง datagrid view ที่เคยมีการบันทึกไว้ด้วย และเมื่อผู้ใช้ต้องการเพิ่มรายการใหม่ จะเพิ่มยังไงคะ
รบกวนช่วยแนะนำหน่อยค่ะ

code แสดงข้อมูลใน datagrid ที่ดึงออกมาค่ะ แต่ตอนจะ add เพิ่ม ต้องเขียนยังไงคะ
Code

Sub showdatagrid()
        
       Dim strselect As String = "select s.s_pro,f.fgname,s.s_qty,s.s_unit,s.s_cost,s.s_disc,s.s_amt,s.s_range from PTsalediy s left join PTfg f on  s.s_pro = f.fgpro where s.s_saleid = '" & txtsaleid.Text & "' "
       connection()
       dsdgrid.Clear()
       With da
           .SelectCommand = New SqlCommand(strselect, conn)
           .Fill(dsdgrid, "PTsalediy")
       End With
       With DataGridView2
           .DataSource = dsdgrid.Tables("PTsalediy")
           .Columns(0).HeaderText = "รหัสสินค้า"
           .Columns(1).HeaderText = "ชื่อสินค้า"
           .Columns(2).HeaderText = "จำนวน"
           .Columns(3).HeaderText = "ราคา"
           .Columns(4).HeaderText = "หน่วย"
           .Columns(5).HeaderText = "ส่วนลด"
           .Columns(6).HeaderText = "รวมเงิน"
           .Columns(7).HeaderText = "Rang"
 
 
           .Columns(0).Width = 105
           .Columns(1).Width = 520
           .Columns(2).Width = 100
           .Columns(3).Width = 100
           .Columns(4).Width = 65
           .Columns(5).Width = 100
           .Columns(6).Width = 100
           .Columns(7).Width = 100
 
           DataGridView2.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
           DataGridView2.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
           DataGridView2.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
           DataGridView2.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
           DataGridView2.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
           DataGridView2.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
           DataGridView2.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
           DataGridView2.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
           DataGridView2.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
 
 
           .Columns(0).SortMode = DataGridViewColumnSortMode.NotSortable
           .Columns(1).SortMode = DataGridViewColumnSortMode.NotSortable
           .Columns(2).SortMode = DataGridViewColumnSortMode.NotSortable
           .Columns(3).SortMode = DataGridViewColumnSortMode.NotSortable
           .Columns(4).SortMode = DataGridViewColumnSortMode.NotSortable
           .Columns(5).SortMode = DataGridViewColumnSortMode.NotSortable
           .Columns(6).SortMode = DataGridViewColumnSortMode.NotSortable
           .Columns(7).SortMode = DataGridViewColumnSortMode.NotSortable
 
           .Columns(2).DefaultCellStyle.Format = "#,##0.00"
           .Columns(3).DefaultCellStyle.Format = "#,##0.00"
           .Columns(5).DefaultCellStyle.Format = "#,##0.00"
           .Columns(6).DefaultCellStyle.Format = "#,##0.00"
 
           .Columns(0).ReadOnly = True
           .Columns(1).ReadOnly = True
           .Columns(4).ReadOnly = True
           .Columns(6).ReadOnly = True
           .Columns(7).ReadOnly = True
 
 
           .AlternatingRowsDefaultCellStyle.SelectionBackColor = Color.Gold
           .AlternatingRowsDefaultCellStyle.SelectionForeColor = Color.Black
           .DefaultCellStyle.SelectionBackColor = Color.Gold
           .DefaultCellStyle.SelectionForeColor = Color.Black
           .AlternatingRowsDefaultCellStyle.BackColor = Color.WhiteSmoke
 
           DataGridView2.Font = New Font("Microsoft Sans Serif", 9, FontStyle.Regular)
           .AllowUserToResizeRows = False
           .AllowUserToResizeColumns = False
           .AllowUserToAddRows = False
           '.ReadOnly = True
           .Show()
       End With
       'Catch ex As Exception
       'End Try
   End Sub

Tag : .NET, VB.NET

Date : 2016-03-26 14:51:30

By : ID Line:nunan13

View : 10599

Reply : 16

No. 1

TOR_CHEMISTRY

โพสกระทู้ ( 4,440 )
บทความ ( 23 )

โค้ด ปุ่ม เพิ่มละครับ ขาดตัวไหนรึ

Date : 2016-03-26 16:40:58

By : lamaka.tor

No. 2

Nan

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

ตอบความคิดเห็นที่ : 1 เขียนโดย : lamaka.tor เมื่อวันที่ 2016-03-26 16:40:58

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

ปุ่มเพิ่มค่ะ ต้องปรับใช้ยังไงคะ

Code

Public Items As List(Of selectitems) 'ประกาศแบบ Public เปลี่ยน Integer เป็น String หรือ อย่างอื่น
   Public Sub btnpro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpro.Click
       'Try
       If txtcusid.Text = "" Then
           MessageBox.Show("กรุณาเลือกรหัสลูกค้าก่อนค่ะ", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Warning)
           txtcusid.SelectAll()
           txtcusid.Focus()
           Exit Sub
       Else
           'initializeForm()
           'ds.DataSource = dt
 
           Dim f As frmcodepro = New frmcodepro
           f.ShowDialog()
           Me.Items = f.Item
           If (f.Item.Count > 0) Then
               '  Headergrid()
               For Each str As selectitems In Me.Items
                   '  MessageBox.Show(str.Key & " " & str.named & " " & str.costs & " " & str.units & " " & str.srang
                   Dim r As DataRow
                   r = tbl.NewRow
                   'tbl.Rows.Add(r)
                   With DataGridView2
                       r = tbl.NewRow
                       r("key") = str.Key
                       r("named") = str.named
                       r("costs") = str.costs
                       r("qtys") = numzero
                       r("disc") = numzero
                       r("units") = str.units
                       r("srang") = str.srang
 
                       tbl.Rows.Add(r)
 
                       'chkdatagrid = False
                   End With
               Next
           End If
       End If
       ' Catch ex As Exception
 
       ' End Try
   End Sub

Code

Sub Headergrid()
        'Dim strselect As String = "select s.s_pro as key,f.fgname as named,s.s_qty as qtys ,s.s_unit as units,s.s_cost as costs,s.s_disc as disc,s.s_amt as amt,s.s_range ans  from PTsalediy s left join PTfg f on  s.s_pro = f.fgpro where s.s_saleid = '" & txtsaleid.Text & "' "
        'connection()
        ''dsdgrid.Clear()
        ''With da
        ''    .SelectCommand = New SqlCommand(strselect, conn)
        ''    .Fill(dsdgrid, "PTsalediy")
        ''End With
 
        tbl = New DataTable
 
 
        tbl.Columns.Add(New DataColumn("key", GetType(System.String)))
        tbl.Columns.Add(New DataColumn("named", GetType(System.String)))
        tbl.Columns.Add(New DataColumn("qtys", GetType(System.Double)))
        tbl.Columns.Add(New DataColumn("costs", GetType(System.Double)))
        tbl.Columns.Add(New DataColumn("units", GetType(System.String)))
        tbl.Columns.Add(New DataColumn("disc", GetType(System.Double)))
        tbl.Columns.Add(New DataColumn("amt", GetType(System.String)))
        tbl.Columns.Add(New DataColumn("srang", GetType(System.String)))
        DataGridView1.DataSource = tbl
 
        With DataGridView1 'หัวของ datagrid
            .Columns(0).HeaderText = "รหัสสินค้า"
            .Columns(1).HeaderText = "ชื่อสินค้า"
            .Columns(2).HeaderText = "จำนวน"
            .Columns(3).HeaderText = "ราคา"
            .Columns(4).HeaderText = "หน่วย"
            .Columns(5).HeaderText = "ส่วนลด"
            .Columns(6).HeaderText = "รวมเงิน"
            .Columns(7).HeaderText = "Rang"
 
 
            .Columns(0).Width = 105
            .Columns(1).Width = 520
            .Columns(2).Width = 100
            .Columns(3).Width = 100
            .Columns(4).Width = 65
            .Columns(5).Width = 100
            .Columns(6).Width = 100
            .Columns(7).Width = 100
 
            DataGridView1.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            DataGridView1.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
            DataGridView1.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
            DataGridView1.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
            DataGridView1.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
            DataGridView1.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
            DataGridView1.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
            DataGridView1.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
            DataGridView1.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
 
 
            .Columns(0).SortMode = DataGridViewColumnSortMode.NotSortable
            .Columns(1).SortMode = DataGridViewColumnSortMode.NotSortable
            .Columns(2).SortMode = DataGridViewColumnSortMode.NotSortable
            .Columns(3).SortMode = DataGridViewColumnSortMode.NotSortable
            .Columns(4).SortMode = DataGridViewColumnSortMode.NotSortable
            .Columns(5).SortMode = DataGridViewColumnSortMode.NotSortable
            .Columns(6).SortMode = DataGridViewColumnSortMode.NotSortable
            .Columns(7).SortMode = DataGridViewColumnSortMode.NotSortable
 
            .Columns(2).DefaultCellStyle.Format = "#,##0.00"
            .Columns(3).DefaultCellStyle.Format = "#,##0.00"
            .Columns(5).DefaultCellStyle.Format = "#,##0.00"
            .Columns(6).DefaultCellStyle.Format = "#,##0.00"
 
            .Columns(0).ReadOnly = True
            .Columns(1).ReadOnly = True
            .Columns(4).ReadOnly = True
            .Columns(6).ReadOnly = True
            .Columns(7).ReadOnly = True
 
 
            .AlternatingRowsDefaultCellStyle.SelectionBackColor = Color.Gold
            .AlternatingRowsDefaultCellStyle.SelectionForeColor = Color.Black
            .DefaultCellStyle.SelectionBackColor = Color.Gold
            .DefaultCellStyle.SelectionForeColor = Color.Black
            .AlternatingRowsDefaultCellStyle.BackColor = Color.WhiteSmoke
 
            DataGridView1.Font = New Font("Microsoft Sans Serif", 9, FontStyle.Regular)
            .AllowUserToResizeRows = False
            .AllowUserToResizeColumns = False
            .AllowUserToAddRows = False
        End With
 
    End Sub

Date : 2016-03-26 17:28:15

By : ID Line:nunan13

No. 3

TOR_CHEMISTRY

โพสกระทู้ ( 4,440 )
บทความ ( 23 )

เหมือน Datagrid view ใน ฟอร์มหลักไม่ใช่แบบ Enable Adding ใช่ไม๊ครับ

111

แบบนี้จะสามารถเพิ่มได้ทั้งแบบที่เราพิมเอง กับที่ Add มาจาก ฟอร์มลูกครับ

ปล. ลองเพิ่มลูกเล่นอีกซักหน่อย

Code (VB.NET)

Private Sub DataGridView1_CellEndEdit(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit
        DataGridView1(1, e.RowIndex).Value = "TOR " + 555
        DataGridView1(2, e.RowIndex).Value = "TOR " + 666
        DataGridView1(3, e.RowIndex).Value = "TOR " + 777
        DataGridView1(4, e.RowIndex).Value = "TOR " + 888
    End Sub

แบบนี้พอเราพิพเสรจมันก็จะเซ็ตค่าต่างๆให้เราเองครับ
เอาไปใช้กับ

Code

r("qtys") = numzero
r("disc") = numzero
r("units") = str.units
r("srang") = str.srang

อาจจะต้องให้มันอยู่ภายใตเงื่อนไข If เพื่อความเหมาะสม

Date : 2016-03-26 18:07:09

By : lamaka.tor

No. 4

Nan

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

ตอบความคิดเห็นที่ : 3 เขียนโดย : lamaka.tor เมื่อวันที่ 2016-03-26 18:07:09

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

คือตอนนี้ ยังไม่ค่อยเข้าใจเรื่องการดึงข้อมูลจาก database มาแสดงที่ datagrid view น่ะคะ เพราะความต้องการของแนน คือ ต้องการดึงข้อมูลมาแสดง ใน datagrid และ ต้องการกดปุ่มเพิ่ม ข้อมูลใน datagrid /แก้ไขข้อมูลที่เคยบันทึกไว้ ได้ด้วยอ่ะค่ะ
1. มีหน้าแสดงรายการที่เคยบันทึก ตามรูปค่ะ และเมื่อ เลือกรายการและ double click ให้แสดงหน้าที่สามารถเพิ่มหรือแก้ไขข้อมูล
doub

2.แสดงหน้าแก้ไขข้อมูล

ที่หน้า datagrid เขียนโค๊ดไว้แบบนี้ค่ะ
Code

Sub Headergrid()
'Dim strselect As String = "select s.s_pro as key,f.fgname as named,s.s_qty as qtys ,s.s_unit as units,s.s_cost as costs,s.s_disc as disc,s.s_amt as amt,s.s_range ans from PTsalediy s left join PTfg f on s.s_pro = f.fgpro where s.s_saleid = '" & txtsaleid.Text & "' "
'connection()
''dsdgrid.Clear()
''With da
'' .SelectCommand = New SqlCommand(strselect, conn)
'' .Fill(dsdgrid, "PTsalediy")
''End With

tbl = New DataTable

tbl.Columns.Add(New DataColumn("key", GetType(System.String)))
tbl.Columns.Add(New DataColumn("named", GetType(System.String)))
tbl.Columns.Add(New DataColumn("qtys", GetType(System.Double)))
tbl.Columns.Add(New DataColumn("costs", GetType(System.Double)))
tbl.Columns.Add(New DataColumn("units", GetType(System.String)))
tbl.Columns.Add(New DataColumn("disc", GetType(System.Double)))
tbl.Columns.Add(New DataColumn("amt", GetType(System.String)))
tbl.Columns.Add(New DataColumn("srang", GetType(System.String)))
DataGridView2.DataSource = tbl

With DataGridView2 'หัวของ datagrid
.Columns(0).HeaderText = "รหัสสินค้า"
.Columns(1).HeaderText = "ชื่อสินค้า"
.Columns(2).HeaderText = "จำนวน"
.Columns(3).HeaderText = "ราคา"
.Columns(4).HeaderText = "หน่วย"
.Columns(5).HeaderText = "ส่วนลด"
.Columns(6).HeaderText = "รวมเงิน"
.Columns(7).HeaderText = "Rang"

.Columns(0).Width = 105
.Columns(1).Width = 520
.Columns(2).Width = 100
.Columns(3).Width = 100
.Columns(4).Width = 65
.Columns(5).Width = 100
.Columns(6).Width = 100
.Columns(7).Width = 100

DataGridView2.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
DataGridView2.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
DataGridView2.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
DataGridView2.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
DataGridView2.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
DataGridView2.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
DataGridView2.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
DataGridView2.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
DataGridView2.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

.Columns(0).SortMode = DataGridViewColumnSortMode.NotSortable
.Columns(1).SortMode = DataGridViewColumnSortMode.NotSortable
.Columns(2).SortMode = DataGridViewColumnSortMode.NotSortable
.Columns(3).SortMode = DataGridViewColumnSortMode.NotSortable
.Columns(4).SortMode = DataGridViewColumnSortMode.NotSortable
.Columns(5).SortMode = DataGridViewColumnSortMode.NotSortable
.Columns(6).SortMode = DataGridViewColumnSortMode.NotSortable
.Columns(7).SortMode = DataGridViewColumnSortMode.NotSortable

.Columns(2).DefaultCellStyle.Format = "#,##0.00"
.Columns(3).DefaultCellStyle.Format = "#,##0.00"
.Columns(5).DefaultCellStyle.Format = "#,##0.00"
.Columns(6).DefaultCellStyle.Format = "#,##0.00"

.Columns(0).ReadOnly = True
.Columns(1).ReadOnly = True
.Columns(4).ReadOnly = True
.Columns(6).ReadOnly = True
.Columns(7).ReadOnly = True

.AlternatingRowsDefaultCellStyle.SelectionBackColor = Color.Gold
.AlternatingRowsDefaultCellStyle.SelectionForeColor = Color.Black
.DefaultCellStyle.SelectionBackColor = Color.Gold
.DefaultCellStyle.SelectionForeColor = Color.Black
.AlternatingRowsDefaultCellStyle.BackColor = Color.WhiteSmoke

DataGridView2.Font = New Font("Microsoft Sans Serif", 9, FontStyle.Regular)
.AllowUserToResizeRows = False
.AllowUserToResizeColumns = False
.AllowUserToAddRows = False
End With

End Sub

ต้องเขียนโค๊ดเพิ่มยังไง เพื่อให้ดึงข้อมูลมาแสดงใน datagrid คะ
ที่ datagrid กำหนด ให้สามารถแก้ไขได้ตามที่พี่แนะนำแล้วค่ะ

Date : 2016-03-28 09:16:33

By : ID Line:nunan13

No. 5

TOR_CHEMISTRY

โพสกระทู้ ( 4,440 )
บทความ ( 23 )

แนะนำ เอา โค้ดในการ display หน้าตา ฟอร์ม ไปไว้ใน method แยกต่างหากครับ
เพื่อสะดวกต่อการแก้ไขโค๊ด หรืออาจจะสร้าง class มาจัดการก็ได้ครับ

ส่วนรูปแบบการทำงานของโปรแกรมแบบบ้านๆก็น่าจะประมาณนี้

1. เพิ่ม Lot Invoice มาก่อน
2. เพิ่ม Invoice Detail จากการพิม หรือ เลือกจาก ฟอร์มลูก
3. แก้ไขข้อมูงต่าง
4. บันทึกข้อมูล

เหตการณ์

1.เปิดหน้า Lot Invoice
2. คลิกที่ Lot Invoice ที่ต้องการ หรือเพิ่ม Lot Invoice
3. Invoice Detail Show ขึ้นมาเพื่อให้แก้ไข
4.คลิกเพิ่มข้อมูล หรือ จะพิม ข้อมูลใหม่ก็ได้
5.บันทึกหน้า Invoice Detail แล้วออกจาก Invoice Detail

Date : 2016-03-28 09:38:57

By : lamaka.tor

No. 6

Nan

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

ตอบความคิดเห็นที่ : 5 เขียนโดย : lamaka.tor เมื่อวันที่ 2016-03-28 09:38:57

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

ตอนนี้ติดข้อ 3 ที่จะเอาข้อมูลใน datagrid view มาแสดงอ่ะค่ะ เพราะตอนแรกที่ทำ ดึงข้อมูลมาแสดงได้ แบบ sub showdatagrid()
สามารถนำข้อมูลมาแสดงได้ค่ะ แต่แก้ไขไม่ได้ และพอจะเพิ่มใหม่ เพิ่มไม่ได้

Date : 2016-03-28 09:45:35

By : ID Line:nunan13

No. 7

TOR_CHEMISTRY

โพสกระทู้ ( 4,440 )
บทความ ( 23 )

ตอบความคิดเห็นที่ : 6 เขียนโดย : ID Line:nunan13 เมื่อวันที่ 2016-03-28 09:45:35

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

ติดยังไงเรอะครับ

Date : 2016-03-28 13:48:19

By : lamaka.tor

No. 8

Nan

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

ตอบความคิดเห็นที่ : 7 เขียนโดย : lamaka.tor เมื่อวันที่ 2016-03-28 13:48:19

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

พี่มีเว็บตัวอย่างให้ดู ตามแบบที่แนนต้องการไหมคะ ประมาณว่า ดึงข้อมูลจาก Database มาแสดงใน gridview แล้วสามารถ add ข้อมูลเพิ่มได้แล้วบันทึกลงในฐานข้อมูลอ่ะค่ะ

Date : 2016-03-31 17:10:30

By : ID Line:nunan13

No. 9

TOR_CHEMISTRY

โพสกระทู้ ( 4,440 )
บทความ ( 23 )

ตอบความคิดเห็นที่ : 8 เขียนโดย : ID Line:nunan13 เมื่อวันที่ 2016-03-31 17:10:30

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

น่าจะมีอยู่นะครับ

แต่ก็ติดใจว่า ติดตรงไหน

1. เพิ่มข้อมูลใน DataGridView ไม่ได้
2. เพิ่มข้อมูลใน Database ไม่ได้

เพราะจากที่เห็น ก็สามารถ ดึงจาก form sub มาลงใน form main ได้แล้วนี่ครับ

Date : 2016-03-31 18:02:58

By : lamaka.tor

No. 10

Nan

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

ตอบความคิดเห็นที่ : 9 เขียนโดย : lamaka.tor เมื่อวันที่ 2016-03-31 18:02:58

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

ตรงข้อมูลที่ดึงมาลงใน datagrid ดึงได้แล้วค่ะ แต่ทำการแก้ไขข้อมูลใน row นั้นๆ ไม่ได้ และ ติดตรงที่จะเพิ่ม row ใหม่เข้าไป เพิ่มไม่ได้อ่ะคะ

Date : 2016-04-01 09:29:50

By : ID Line:nunan13

No. 11

TOR_CHEMISTRY

โพสกระทู้ ( 4,440 )
บทความ ( 23 )

ตอบความคิดเห็นที่ : 10 เขียนโดย : ID Line:nunan13 เมื่อวันที่ 2016-04-01 09:29:50

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

Error คืออะไรครับ

Date : 2016-04-01 09:36:34

By : lamaka.tor

No. 12

TOR_CHEMISTRY

โพสกระทู้ ( 4,440 )
บทความ ( 23 )

ถ้ายังตั้งค่าตาม No.4

.Columns(0).ReadOnly = True
.Columns(1).ReadOnly = True
.Columns(4).ReadOnly = True
.Columns(6).ReadOnly = True
.Columns(7).ReadOnly = True

เมื่อผมเจอปัญหาเกี่ยวกับการเขียนโปรแกรม

ผมมักจะแยกปัญหาออกเป็นส่วนๆเช่น

1. การตั้งค่าฟอร์ม แก้โดยสร้างฟอร์มใหม่ขึ้นมา เพิ่ม control เอาค่า default control ,ใช้ก่อน
2. โค้ด แก้โดยเปลี่ยนโค้ด หรือ ลบโค้ดที่สงสัยไปก่อน

วิธีนี้สามารถแก้ไขได้เกือบทุกหาที่เจอครับ

ลอง แคป หน้าตอนที่ พิม แล้วไม่ได้มาดูครับ คนอื่นจะได้เป็นแนวทางด้วยครับ

บางครั้งการเริ่มจาก 0 ก็เร็วกว่า เริ่มจาก 10 เพราะเราไม่ต้องมาห่วงว่าจะน้อยไปกว่านี้อีกแล้ว

Date : 2016-04-01 09:48:39

By : lamaka.tor

No. 13

Nan

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

ตอบความคิดเห็นที่ : 12 เขียนโดย : lamaka.tor เมื่อวันที่ 2016-04-01 09:48:39

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

พอลองแก้ไขแล้ว error อ่ค่ะCode

Sub showdatagrid()
        
       Dim strselect As String = "select s.s_pro,f.fgname,s.s_qty ,s.s_cost,s.s_unit,s.s_disc,s.s_amt,s.s_range from PTsalediy s left join PTfg f on  s.s_pro = f.fgpro where s.s_saleid = '" & txtsaleid.Text & "' "
       connection()
       dsdgrid.Clear()
       With da
           .SelectCommand = New SqlCommand(strselect, conn)
           .Fill(dsdgrid, "PTsalediy")
       End With
       With DataGridView2
           .DataSource = dsdgrid.Tables("PTsalediy")
           .Columns(0).HeaderText = "รหัสสินค้า"
           .Columns(1).HeaderText = "ชื่อสินค้า"
           .Columns(2).HeaderText = "จำนวน"
           .Columns(3).HeaderText = "ราคา"
           .Columns(4).HeaderText = "หน่วย"
           .Columns(5).HeaderText = "ส่วนลด"
           .Columns(6).HeaderText = "รวมเงิน"
           .Columns(7).HeaderText = "Rang"
 
 
           .Columns(0).Width = 105
           .Columns(1).Width = 520
           .Columns(2).Width = 100
           .Columns(3).Width = 100
           .Columns(4).Width = 65
           .Columns(5).Width = 100
           .Columns(6).Width = 100
           .Columns(7).Width = 100
 
           DataGridView2.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
           DataGridView2.Columns(0).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
           DataGridView2.Columns(1).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleLeft
           DataGridView2.Columns(2).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
           DataGridView2.Columns(3).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
           DataGridView2.Columns(4).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
           DataGridView2.Columns(5).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
           DataGridView2.Columns(6).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
           DataGridView2.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
 
 
           .Columns(0).SortMode = DataGridViewColumnSortMode.NotSortable
           .Columns(1).SortMode = DataGridViewColumnSortMode.NotSortable
           .Columns(2).SortMode = DataGridViewColumnSortMode.NotSortable
           .Columns(3).SortMode = DataGridViewColumnSortMode.NotSortable
           .Columns(4).SortMode = DataGridViewColumnSortMode.NotSortable
           .Columns(5).SortMode = DataGridViewColumnSortMode.NotSortable
           .Columns(6).SortMode = DataGridViewColumnSortMode.NotSortable
           .Columns(7).SortMode = DataGridViewColumnSortMode.NotSortable
 
           .Columns(2).DefaultCellStyle.Format = "#,##0.00"
           .Columns(3).DefaultCellStyle.Format = "#,##0.00"
           .Columns(5).DefaultCellStyle.Format = "#,##0.00"
           .Columns(6).DefaultCellStyle.Format = "#,##0.00"
 
           .Columns(0).ReadOnly = True
           .Columns(1).ReadOnly = True
           .Columns(7).ReadOnly = True
 
 
           .AlternatingRowsDefaultCellStyle.SelectionBackColor = Color.Gold
           .AlternatingRowsDefaultCellStyle.SelectionForeColor = Color.Black
           .DefaultCellStyle.SelectionBackColor = Color.Gold
           .DefaultCellStyle.SelectionForeColor = Color.Black
           .AlternatingRowsDefaultCellStyle.BackColor = Color.WhiteSmoke
 
           DataGridView2.Font = New Font("Microsoft Sans Serif", 9, FontStyle.Regular)
           .AllowUserToResizeRows = False
           .AllowUserToResizeColumns = False
           .AllowUserToAddRows = False
           '.ReadOnly = True
           .Show()
       End With
       'Catch ex As Exception
       'End Try
   End Sub

Date : 2016-04-01 12:57:11

By : ID Line:nunan13

No. 14

TOR_CHEMISTRY

โพสกระทู้ ( 4,440 )
บทความ ( 23 )

1. รูปแบบนี้จะเพิ่ม rows โดยการ พิม ไม่ได้ .AllowUserToAddRows = False
2. Error นี้ น่าจะเกี่ยวกับ format data
ลองลบ
.Columns(2).DefaultCellStyle.Format = "#,##0.00"
.Columns(3).DefaultCellStyle.Format = "#,##0.00"
.Columns(5).DefaultCellStyle.Format = "#,##0.00"
.Columns(6).DefaultCellStyle.Format = "#,##0.00"

ออกดูครับ

เหมือนตามที่บอกเปะเลยครับ

1. การตั้งค่าฟอร์ม แก้โดยสร้างฟอร์มใหม่ขึ้นมา เพิ่ม control เอาค่า default control ,ใช้ก่อน
2. โค้ด แก้โดยเปลี่ยนโค้ด หรือ ลบโค้ดที่สงสัยไปก่อน

Date : 2016-04-01 14:35:49

By : lamaka.tor

No. 15

p_pat

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

ตอบความคิดเห็นที่ : 1 เขียนโดย : lamaka.tor เมื่อวันที่ 2016-03-26 16:40:58

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

พี่ค่ะแนะนำโค้ด การ ค้นหาข้อมูลจาก ชื่อ ( โดยพิมพ์ชื่อลงใน textbox )จากนั้นเมื่อค้นหา ข้อมูลก็จะมาแสดงที่ dataGridView (ตอนนี้ใช้ VB C# เชื่อมต่อกับฐานข้อมูล sQL server 2012 ค่ะ)

Date : 2016-06-15 16:46:54

By : panpat

No. 16

TOR_CHEMISTRY

โพสกระทู้ ( 4,440 )
บทความ ( 23 )

บ้านๆเลยครับ
เอามันมาลง datatable

Code (C#)

public static System.Data.DataTable GetTableForm(string _SQL, string strConn )
 
        {
             
            System.Data.DataSet ds = new System.Data.DataSet();
             
                    System.Data.SqlClient.SqlConnection conn = new  System.Data.SqlClient.SqlConnection(strConn);
                    conn.Open();
                    System.Data.SqlClient.SqlDataAdapter adapter = new  System.Data.SqlClient.SqlDataAdapter(_SQL, conn);
                    adapter.Fill(ds);
 
            return ds.Tables[0];
 
        }

Code (C#)

1.DataTable DTable = GetTableForm("Select ทูน่า from กระป๋อง",connstring);

2.dataGridView.DataSource = DTable ;

หรือ

Code (C#)

1.dataGridView.DataSource = GetTableForm("Select ทูน่า from กระป๋อง",connstring);

เพียงแค่นี้ก็จะได้ ข้อมูลมาลงใน dataGridView แล้วครับ

Date : 2016-06-15 17:13:21

By : lamaka.tor

ค้นหาข้อมูล

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

Re : ต้องการดึงข้อมูลจาก database มาแสดงในใน Datagrid view vb.net ค่ะ หลังจากดึงมาแสดงแล้ว สามารถกดปุ่ม add เพิ่มข้อมูลใน datagrid view ได้ด้วยจะเขียนยังไงคะ

รายละเอียด

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

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

Notice

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

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

โดย

อีเมล์

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

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

Registered : 109,038

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

ค้นหาข้อมูล

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

Notice