Form1.vb
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim baglan As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Northwind.mdb;")
Dim da As OleDbDataAdapter = New OleDbDataAdapter("Select CustomerID,CompanyName,ContactName,Address,City From Customers", baglan)
Dim ds As DataSet = New DataSet()
baglan.Open()
da.Fill(ds, "Customers")
DataGridView1.DataSource = ds.Tables(0)
baglan.Close()
End Sub
Private Sub DataGridView1_CellMouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseDown
If e.Button = Windows.Forms.MouseButtons.Right Then
DataGridView1.Rows.Item(e.RowIndex).Selected = True
DataGridView1.Item(e.ColumnIndex, e.RowIndex).Selected = True
End If
MsgBox("Seçili Satır Sayısı: " & DataGridView1.SelectedRows.Count)
End Sub
End Class
Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek üzere. Hoşçakalın. Bahadır ŞAHİN
3 comments:
Geri giderken 5satırı silince 4 yazmasını istiyorum ama halen 5 yazıyor 4 sildiğimde 3 yazması gerekirkende 4 yazıyor bunu nasıl yaparız
csharp lada yazabilir misiniz?
Üstat c sharp kodlarınıda yazabilir misin?
Yorum Gönder