İçeriğe geç
ShiftDelete.Net
Haber ara/ SDN'ye SorGiriş
Haber Akışı SDNTV İnceleme Forum Yapay Zeka Akıllı Telefon Elektrikli Otomobil Oyun ShiftDelete.Net Global Teknoloji Haberleri Mobil Otomobil Donanım Savunma Bilim Sosyal Medya İnternet Giyilebilir Teknoloji Rehber Ürünler Son dakika Yazarlar
  1. Ana sayfa
  2. Topluluk
  3. Programlama
  4. Programlama Dilleri
Programlama Dilleri

VB.NET'te DataGridView'de sağ tuş ile tıklatınca seçme problemi

Vatansever26.06.20110 cevap3.743 görüntüleme
2007'den beri405 mesaj
#1
Arkadaşlar sorun umu anlatan çok basit bir örnek hazırladım kodları aşağıdadır sorunum formumda bir DataGridView1 bir contexmenustrip textbox1 ve textbox2 var, DataGridView1'e bir access database'ine bağladım DataGridView1'de bir satıra tıklayınca sütunlardan birinde yazan yazı textbox1'de diğer sütundaki bilgide textbox2'de görüntüleniyor proje örneği bu kadar basit tabi bilgileri silmek için DataGridView1'e bir contexmenustrip bağladım ve buna sil seçeneği ekledim sol tuş ile seçim yapınca herşey çalışıyor gereken bilgile textbox'larda görüntüleniyor ama sağ tuş ile seçim yapınca görüntülenmiyor bu birinci sorun ikinciside sil kodunu textbox1'de yazan yazının satırını access'te silsin diye yaptım tabi sağ tuş ile seçilen satırdaki bilgiler textbox'lara dolmayınca silme işide en son sol tıklanarak seçilmiş satırın silinmesi ile sonuçlanıyor benim kodlarımdaki problem nedir?



[COLOR=blue]Imports System.Data.OleDb

Public Class Form1
    Private baglanti As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & Application.StartupPath & "/Bilgi.mdb;Persist Security Info=True;Jet OLEDB:Database Password=")
    Private komut As New OleDbCommand()
    Private guc As New OleDbDataAdapter()
    Private gecici_tablo As New DataSet()

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        doldur()
    End Sub

    Private Sub BankDataGridView_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DataGridView1.MouseDown
        If e.Button = Windows.Forms.MouseButtons.Right Then
            Dim hit As DataGridView.HitTestInfo = DataGridView1.HitTest(e.X, e.Y)
            DataGridView1.Rows(hit.RowIndex).Selected = True
            ContextMenuStrip1.Show()
        End If
    End Sub

    Sub doldur()


        baglanti.Open()
        Dim guc As New OleDbDataAdapter("select * From BilgiBankasi", baglanti)
        guc.Fill(gecici_tablo, "BilgiBankasi")

        guc.Dispose()
        baglanti.Close()

        DataGridView1.DataSource = gecici_tablo
        DataGridView1.DataMember = "BilgiBankasi"
        TextBox1.DataBindings.Add("Text", gecici_tablo, "BilgiBankasi.AD")
        TextBox2.DataBindings.Add("Text", gecici_tablo, "BilgiBankasi.NOTLAR")

    End Sub

    Private Sub SilToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SilToolStripMenuItem.Click
        Dim cevap As DialogResult
        cevap = MessageBox.Show("Kaydı Silmek İstiyormusunuz ?", "Uyarı", MessageBoxButtons.YesNo, MessageBoxIcon.Warning)
        If cevap = DialogResult.Yes Then
            baglanti.Open()
            komut.Connection = baglanti
            komut.CommandText = "DELETE FROM BilgiBankasi WHERE AD='" + TextBox1.Text & "'"
            komut.ExecuteNonQuery()
            komut.Dispose()
            baglanti.Close()
            gecici_tablo.Clear()

            DataGridView1.DataSource = Nothing
            DataGridView1.DataMember = Nothing
            TextBox1.DataBindings.Clear()
            TextBox2.DataBindings.Clear()
                doldur()
        End If
    End Sub
End Class[/COLOR]

Cevabını yaz

Cevap yazmak için giriş yap ya da üye ol. Eski forum kullanıcı adın ve parolanla girebilirsin.