Kamis, 14 Juli 2011
Using DataGridView in VB.NET Program-1
16.42
Ocu Nael
No comments
Setup:
Drag DataGridView1 and Add Column and and two column is textbox type and one column is Combobox type
Select comobobox type datasoucre, displaymember,and value member selected
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'EmployeeDataSet.dept' table. You can move, or remove it, as needed.
Me.DeptTableAdapter.Fill(Me.EmployeeDataSet.dept)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i As Integer
For i = 0 To DataGridView1.RowCount - 1
ListBox1.Items.Add(DataGridView1.Item(0, i).Value & " " & DataGridView1.Item(1, i).Value & " " & DataGridView1.Item(2, i).Value)
Next
End Sub
DataGridivew
Program-2.
Public Class Form1
Dim srno As Integer
Dim tRow As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'EmployeeDataSet.dept' table. You can move, or remove it, as needed.
Me.DeptTableAdapter.Fill(Me.EmployeeDataSet.dept)
srno = 1
tRow = 0
End Sub
Private Sub DataGridView1_CellLeave(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellLeave
Dim t As Integer
t = DataGridView1.CurrentRow.Index
DataGridView1.Item(3, t).Value = (DataGridView1.Item(2, t).Value)
End Sub
Private Sub DataGridView1_RowsAdded(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowsAddedEventArgs) Handles DataGridView1.RowsAdded
DataGridView1.Item(0, tRow).Value = srno
srno = srno + 1
tRow = tRow + 1
End Sub
Private Sub DataGridView1_RowsRemoved(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowsRemovedEventArgs) Handles DataGridView1.RowsRemoved
Dim i As Integer
srno = 1
tRow = 0
For i = 0 To DataGridView1.RowCount - 1
DataGridView1.Item(0, tRow).Value = srno
srno = srno + 1
tRow = tRow + 1
Next
End Sub
End Class
Program-3
Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
DateTimePicker1.Visible = True
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DateTimePicker1.Visible = False
End Sub
Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged
DataGridView1.Item(2, DataGridView1.CurrentRow.Index).Value = Format(DateTimePicker1.Value, "dd-MM-yyyy")
DateTimePicker1.Visible = False
End Sub
Program -3
Imports System.Data
Imports System.Data.SqlClient
Public Class Form1
Dim sqlCon As SqlConnection
Dim sqlstr As String
Dim ds As New DataSet
Dim tRow As Integer
Dim sqlCmd As SqlCommand
Dim r As SqlDataReader
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'EmployeeDataSet.dept' table. You can move, or remove it, as needed.
Me.DeptTableAdapter.Fill(Me.EmployeeDataSet.dept)
sqlstr = "Data Source=dcs;Initial Catalog=Employee;Integrated Security=True"
sqlCon = New SqlConnection(sqlstr)
sqlCon.Open()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
sqlstr = "SELECT * FROM emp"
Dim i As Integer
i = 0
sqlCmd = New SqlCommand(sqlstr, sqlCon)
r = sqlCmd.ExecuteReader
Do While r.Read()
DataGridView1.RowCount = DataGridView1.RowCount + 1
i = i + 1
Loop
r.Close()
sqlCmd.Dispose()
sqlstr = "SELECT * FROM emp"
i = 0
sqlCmd = New SqlCommand(sqlstr, sqlCon)
r = sqlCmd.ExecuteReader
Do While r.Read()
DataGridView1.Item(0, i).Value = r("empno")
DataGridView1.Item(1, i).Value = r("ename")
DataGridView1.Item(2, i).Value = r("deptno")
i = i + 1
Loop
End Sub
End Class
Free Music at divine-music.info
0 komentar:
Posting Komentar