การสร้างฟอร์มด้วย DataGridView เบื้องต้นแบบ Step by Step [ VB.NET (Windows App+SQL Server) ]
ขั้นตอนเริ่มต้น
Date :
2010-12-17 10:52:34By :
หางอึ่ง
ขั้นตอนต่อมาคือการสร้าง TableAdapter
Date :
2010-12-17 10:56:44By :
หางอึ่ง
หน้าจอการสร้าง DataConnection อาจจะแตกต่างกันไป
Date :
2010-12-17 11:00:20By :
หางอึ่ง
เลือก DataConnection แล้วกดปุ่ม Next
Date :
2010-12-17 11:02:12By :
หางอึ่ง
เลือก Use SQL Statement
Date :
2010-12-17 11:06:35By :
หางอึ่ง
พิมพ์คำสั่งเลือกข้อมูลตาราง ExpType
Date :
2010-12-17 11:10:18By :
หางอึ่ง
สร้าง MExpenseTableAdapter
Date :
2010-12-17 11:13:16By :
หางอึ่ง
ที่ Data Sources View ควรจะเป็นตามภาพนี้
Date :
2010-12-17 11:17:38By :
หางอึ่ง
ลาก MExpense จาก MyDataSet มาใส่ในฟอร์ม
Date :
2010-12-17 11:21:21By :
หางอึ่ง
คลิกที่ DataGridView เลือกเป็น Dock in Parent Container
Date :
2010-12-17 11:28:19By :
หางอึ่ง
เข้าไปแก้ไข Columns คลิก "Edit Columns."
Date :
2010-12-17 12:43:17By :
หางอึ่ง
ลองเข้าไปดู Code ViewCode (VB.NET) Public Class TestDataGrid
Private Sub MExpenseBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MExpenseBindingNavigatorSaveItem.Click
Me.Validate()
Me.bsMExpense.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.dsMain)
End Sub
Private Sub TestDataGrid_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'MyDataSet.MExpense' table. You can move, or remove it, as needed.
Me.ExpTypeTableAdapter.Fill(Me.dsMain.ExpType)
'TODO: This line of code loads data into the 'MyDataSet.MExpense' table. You can move, or remove it, as needed.
Me.taMExpense.Fill(Me.dsMain.MExpense)
End Sub
End Class
Date :
2010-12-17 12:47:31By :
หางอึ่ง
ขอบคุณ +1 สำหรับบทความดี ๆ ครับ เก็บลงคลังกระทู้ให้เรียบร้อยแล้วครับ
Date :
2010-12-17 12:52:06By :
webmaster
ในที่นี้ ผมต้องการCode (VB.NET) Public Class TestDataGrid
Private Sub MExpenseBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MExpenseBindingNavigatorSaveItem.Click
Me.Validate()
Me.bsMExpense.EndEdit()
'---------------------------------------------
' ใส่ข้อมูลผู้ใช้งาน และวันที่แก้ไขตรงนี้
'---------------------------------------------
Dim stUser As String
Dim SysDate As Date = Date.Now
stUser = My.User.Name
stUser = "CurrentUser" ' ของจริงบรรทัดนี้ไม่ต้องใส่
For Each dr As DataRow In Me.dsMain.MExpense.Rows
If (dr.RowState And 20) > 0 Then ' เช็คกับ 20 ถ้าเป็นจริง แสดงว่าเป็นการเพิ่มหรือไม่ก็แก้ไข
If dr.RowState = DataRowState.Added Then
dr("usrInsert") = stUser
dr("dtInsert") = SysDate
End If
dr("usrModify") = stUser
dr("dtModify") = SysDate
End If
Next
'---------------------------------------------
' แก้ไขตรงนี้
'---------------------------------------------
' Me.TableAdapterManager.UpdateAll(Me.dsMain)
Me.taMExpense.Update(Me.dsMain.MExpense)
End Sub
Private Sub TestDataGrid_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
' เนื่องจากใน Combo ExpTypeID ต้องการแสดงรายการที่ ExpTypeID>0 จึงต้องแก้ไขคำสั่ง
' Me.ExpTypeTableAdapter.Fill(Me.dsMain.ExpType)
Dim SQL As String = "SELECT ExpTypeID, ExpTypeName FROM ExpType WHERE ExpTypeID>0"
Dim da As New SqlClient.SqlDataAdapter(SQL, My.Settings.BudgetConnectionString)
da.Fill(Me.dsMain.ExpType)
'TODO: This line of code loads data into the 'MyDataSet.MExpense' table. You can move, or remove it, as needed.
Me.taMExpense.Fill(Me.dsMain.MExpense)
End Sub
End Class
ประวัติการแก้ไข
Date :
2010-12-17 12:53:20By :
หางอึ่ง
ลองรันแล้วใส่ข้อมูล
ประวัติการแก้ไข
Date :
2010-12-17 12:56:25By :
หางอึ่ง
ที่ได้รหัสตอนแรกเป็นลบ
Date :
2010-12-17 13:01:38By :
หางอึ่ง
Instance ExpTypeTableAdapter ถูกสร้างอัตโนมัติโดย VS
Date :
2010-12-17 13:03:57By :
หางอึ่ง
ขอบคุณมากค่ะ ได้ความรู้เพิ่มขึ้นจริงๆ
Date :
2011-07-14 10:09:42By :
แค่เด็กตัวเล๊กๆคนนึง
ขอบคุณมากครับ สำหรับตัวอย่างดี ๆแบบนี้
Date :
2011-07-24 12:40:27By :
Somporn
ใช้ฐานข้อมูลอะไรขอรับ
Date :
2011-07-24 19:15:37By :
watcharop
ลองทั้ง 2 แบบแล้วเป็นเหมือนกันครับ
Date :
2011-07-24 20:24:23By :
Somporn
อาจเป็นเพราะทุกครั้งที่รันใน VS
Date :
2011-07-24 22:24:59By :
watcharop
พี่ครับ ผมมือใหม่มากๆ ..พอจะมีแนวทางสอนทำปุ่ม Save ให้มันทำงานได้ไหมฮะ
ประวัติการแก้ไข
Date :
2011-12-24 00:21:35By :
shadowromeo
ขอถามคุณหางอึ่งหน่อยครับ
ประวัติการแก้ไข
Date :
2012-05-01 19:58:34By :
geo1209
เมื่อจะบันทึกก็เรียกคำสั่งข้างล่างนี้
Date :
2012-05-02 09:53:08By :
watcharop
มือใหม่ค่ะ รบกวนผู้รู้ช่วยหน่อยค่ะ ทำโปรเจ็คจบ แต่ติดขั้นตอนการคำนวณ ใช้ Database SQL Server 2008 R2 และ เขียนด้วย VB 2010 ค่ะ Code (VB.NET) Private Sub BtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSave.Click
connection = New SqlConnection(conStr)
If connection.State = ConnectionState.Closed Then
connection.Open()
End If
BtnSearch.Enabled = False
BtnSave.Enabled = False
BtnExit.Enabled = True
Dim CusID As String = txtID.Text
Dim processID As String = Process_ID.Text
Dim POID As String = PO_ID.Text
Dim Remarks As String = Remark.Text
Dim MSG As String = ""
If status = "S" Then
MSG = "คุณต้องการเพิ่มข้อมูล ใช่หรือไม่?"
ElseIf status = "E" Then
MSG = "คุณต้องการแก้ไขข้อมูล ใช่หรือไม่?"
End If
If MessageBox.Show(MSG, "คำยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = Windows.Forms.DialogResult.Yes Then
Select Case UCase(status)
Case "S"
Dim sql As String = "INSERT INTO Process_Product(Process_ID,PO_ID,Cus_ID,Date_Process,Date_Receiving_Pro, Remark) values ('" & processID & "','" & POID & "','" & CusID & "','" & DateTimeProcess.Value.AddYears(-543).ToString("MM/dd/yyyy") & "','" & DateTimeReceProcess.Value.AddYears(-543).ToString("MM/dd/yyyy") & "','" & Remarks & "')"
Dim cmd2 As New SqlCommand(sql, connection)
Dim adapter As New SqlDataAdapter(cmd2)
Dim data As New DataSet()
cmd2.Parameters.Clear()
cmd2.ExecuteNonQuery()
Dim data3 As New DataSet()
Dim sql3 As String = "Insert into Process_Product_ Lists(Process_ID, Product_ID, Qty, Unit) values (@Process_ID, @Product_ID, @Qty, @Unit)"
'MessageBox.Show(sql3)
Dim cmd3 As New SqlCommand(sql3, connection)
For i As Integer = 0 To MyDataGridView1.RowCount - 2
With cmd3
.Parameters.AddWithValue("processID", (Process_ID.Text))
.Parameters.AddWithValue("Product_ID", MyDataGridView1.Rows(i).Cells(0).Value)
'.Parameters.AddWithValue("Price", MyDataGridView1.Rows(i).Cells(2).Value)
.Parameters.AddWithValue("Qty", CDbl(MyDataGridView1.Rows(i).Cells(2).Value))
.Parameters.AddWithValue("Unit", MyDataGridView1.Rows(i).Cells(3).Value)
End With
cmd3.ExecuteNonQuery()
cmd3.Parameters.Clear()
Next i
MessageBox.Show("บันทึกข้อมูลเรียบร้อยแล้ว", "ข้อความ", MessageBoxButtons.OK, MessageBoxIcon.None)
' End If
'End If
clear()
MyDataGridView1.Columns.Clear()
MyDataGridView1.Rows.Clear()
MyDataGridView1.DataSource = Nothing
DataGrid1()
BtnSave.Enabled = False
BtnSearch.Enabled = False
BtnDelete.Enabled = False
MyDataGridView1.Enabled = False
Process_ID.Enabled = True
PO_ID.Enabled = False
locktext()
Case "E"
'Dim sql As String = "Update Process_Product set Date_Process ='" & DateTimeProcess.Value.AddYears(-543).ToString("MM/dd/yyyy") & "',"
'sql &= "Cus_ID ='" & txtID.Text & "',"
''sql &= "Amount1 ='" & Amount1.Text & "',"
''sql &= "Discount ='" & Discount.Text & "',"
''sql &= "SumDis ='" & SumDiscount.Text & "',"
''sql &= "Amount2 ='" & Amount2.Text & "',"
''sql &= "Vat ='" & Vat.Text & "',"
''sql &= "SumVat ='" & SumVat.Text & "',"
''sql &= "Total ='" & Total.Text & "',"
''sql &= "Remark ='" & Remark.Text & "'WHERE Accounts_ID ='" & Account_ID.Text & "'"
'Dim cmd As New SqlCommand(sql, connection)
'Dim cmd1 As New SqlCommand(sql, connection)
''For i As Integer = 0 To DataGridView2.RowCount - 2
'With cmd1
' Dim sql2 As String = "Delete From Process_Product_ Lists Where Process_ID='" & Process_ID.Text & "'"
' With cmd1
' .CommandType = CommandType.Text
' .CommandText = sql2
' .Connection = connection
' .ExecuteNonQuery()
' End With
' cmd1.ExecuteNonQuery()
' cmd1.Parameters.Clear()
'End With
''Next i
'Dim sql3 As String = "Insert into Process_Product_ Lists(Process_ID,Product_ID, Qty, Unit) values (@ProcessID,@Product_ID,@Qty, @Unit)"
'Dim cmd3 As New SqlCommand(sql3, connection)
'For i As Integer = 0 To MyDataGridView1.RowCount - 2
' With cmd3
' .Parameters.AddWithValue("Process_ID", (Process_ID.Text))
' .Parameters.AddWithValue("Product_ID", MyDataGridView1.Rows(i).Cells(0).Value)
' '.Parameters.AddWithValue("Price", MyDataGridView1.Rows(i).Cells(2).Value)
' .Parameters.AddWithValue("Qty", CDbl(MyDataGridView1.Rows(i).Cells(2).Value))
' .Parameters.AddWithValue("Unit", CDbl(MyDataGridView1.Rows(i).Cells(3).Value))
' End With
' cmd3.ExecuteNonQuery()
' cmd3.Parameters.Clear()
'Next i
'With cmd
' .CommandType = CommandType.Text
' .CommandText = sql
' .Connection = connection
' .ExecuteNonQuery()
'End With
'cmd.ExecuteNonQuery()
'cmd.Parameters.Clear()
'MessageBox.Show("แก้ไขข้อมูลเรียบร้อยแล้ว", "ข้อความ", MessageBoxButtons.OK, MessageBoxIcon.None)
'clear()
'MyDataGridView1.Columns.Clear()
'MyDataGridView1.Rows.Clear()
'MyDataGridView1.DataSource = Nothing
'DataGrid1()
'BtnSave.Enabled = False
'BtnAdd.Enabled = True
'BtnSearch.Enabled = False
'BtnDelete.Enabled = False
'MyDataGridView1.Enabled = False
'PO_ID.Enabled = True
'Process_ID.Enabled = False
'locktext()
End Select
End If
End Sub
Date :
2012-05-17 10:37:32By :
surinda
ขอบคุณคับ^^
Date :
2013-09-06 17:13:24By :
TheSkyPy
Date :
2013-09-18 15:41:33By :
kkk
ขอถามเพิมเติมหน่อยค่ะ ถ้าเกิดว่า อิมพอร์ตไฟล์ Excel ให้เข้ามาอยู่ในรูป datagridview ได้แล้วถ้าต้องการแก้ไขบางเซลล์ในนั้น Ex.ค่าตัวเลข
Date :
2013-11-07 12:08:48By :
alice
อยากได้ตัวอย่างโค้ด vb.net Import ข้อมูลจาำกไฟล์ Excel เข้า Access ค่ะ รบกวนด้วยนะคะ
Date :
2013-11-08 10:00:29By :
annsan
แล้วถ้าต้องการไม่ให้คอลัมน์ใน DataGrid ไม่สามารถทำงานได้ล่อครับ
Date :
2017-08-20 12:05:34By :
zen
Server 04
Load balance : Server 04
