2007'den beri405 mesaj
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]