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
Public Property SeciliHucre(ByVal SatirNo As Integer, ByVal SutunNo As Integer) As String
Get
Dim sonuc As String = ""
If (SatirNo <= DataGridView1.Rows.Count) And (SutunNo <= DataGridView1.Columns.Count) Then
'Eger hücre içeriği Null değilse değer döndür
sonuc = IIf(IsDBNull(Me.DataGridView1.Rows(SatirNo).Cells(SutunNo).Value), "", Me.DataGridView1.Rows(SatirNo).Cells(SutunNo).Value)
MsgBox("Seçili Hücre İçeriği:" & Me.DataGridView1.Rows(SatirNo).Cells(SutunNo).Value, MsgBoxStyle.OkOnly)
Else
sonuc = "Satir ve Sutun numaraları uymuyor."
MsgBox("Oooops Hata", MsgBoxStyle.Critical)
End If
Return sonuc
End Get
Set(ByVal value As String)
If (SatirNo <= DataGridView1.Rows.Count) And (SutunNo <= DataGridView1.Columns.Count) Then
Me.DataGridView1.Rows(SatirNo).Cells(SutunNo).Value = value
End If
End Set
End Property
Private Sub DataGridView1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DataGridView1.MouseClick
Dim satirno, sutunno As Integer
'Datagridview da seçili hücrenin satir, sutun un olduğu kısım alınıyor.
satirno = DataGridView1.CurrentCellAddress.Y
sutunno = DataGridView1.CurrentCellAddress.X
SeciliHucre(satirno, sutunno).ToString()
End Sub
End Class
Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek dileğiyle. Hoşçakalın. Bahadır ŞAHİN
0 comments:
Yorum Gönder