Ado ile Datagrid içindeki satırı silmek

[k0081]

Merhaba arkadaşlar;

Datagrid içindeki verilerden mouse ile seçim yapıyorum. Seçili olanı command buton kullanarak nasıl silebilirim ?

yardımcı arkadaşa şimdiden teşekkürler.

 

[Zeki Gürsoy]

Grid'e listeyi hangi yöntem ile yüklediğinize bağlı bir durumdur.

.

 

[k0081]

Grid'e listeyi hangi yöntem ile yüklediğinize bağlı bir durumdur.

.

Ado ile yüklüyorum . Kayıt eklemede sıkıntı yok. Kayıt bulmada da sıkıntı yok.

Silme : bununla ilgili daha önce yazdığım bi kod mevcut. Ama ondada şöyle bir hata varmış; tek olarak silmiyor. Aynı isimde başka veri varsa onlarıda siliyor...

 

[k0081]

bu hatayı alıyorum...

Private Sub cmdlt_Click()
confirm = MsgBox("Kayıt silinecek ?", vbYesNo + vbExclamation, "Kayıt sil")
If confirm = vbYes Then
Adogrid.Recordset.Delete
MsgBox "Kayıt silindi", vbInformation, "Kayıt"
Else
MsgBox "Kayıt silinemedi.", vbInformation, "Kayıt sil"
End If
End Sub

 

[Zeki Gürsoy]

#3 nolu mesajdan ve hata iletisinden anladığım kadarıyla tablonuzda Primary Key alanı mevcut değil. Tablonuza tekil (unique) değerler içeren bir alan yani kayıtları birbirinden ayıran Primary Key alanı eklediğinizde, aynı zamanda Grid'e de eklediğinizde problemin düzeleceğini tahmin ediyorum.

Kolay gelsin...

.

 

[k0081]

#3 nolu mesajdan ve hata iletisinden anladığım kadarıyla tablonuzda Primary Key alanı mevcut değil. Tablonuza tekil (unique) değerler içeren bir alan yani kayıtları birbirinden ayıran Primary Key alanı eklediğinizde, aynı zamanda Grid'e de eklediğinizde problemin düzeleceğini tahmin ediyorum.

Kolay gelsin...

.

Hocam ; bende aynı fikirdeyim de, yalnız bunu nasıl düzenleyeceğim ? Yani primary key. Dosyayı birazdan eklerim

 

[k0081]

Dosya ektedir

Arsiv.rar dosyasını indir - download

Arsiv.rar dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s4.dosya.tc

 

[Zeki Gürsoy]

Ekli veritabanı, kullandığınız yönteme göre kötü bir tasarım... Tekil bir alana ihtiyacı olduğu belli.

MS Access yüklü ise tablo üzerinde sağ tuş menüsü ile "tasarım" modunda açarak "satır ekle" ve "otomatik artan" seçerek "birincil anahtar" alanı olarak belirleyin.

MS Access yüklü değilse veya mdb çok eski olduğundan (Access 2000) açamıyorsanız/düzenleyemiyorsanız, aşağıdaki örnek komutları "otomatik artan sayı" olarak "birincil anahtar" olarak belirleyebilirsiniz. Bu alan ile kayıtlarınız birbirlerinden ayrılmış olacak.

Set cn = CreateObject("ADODB.Connection")

cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\pc\Desktop\Arsiv.mdb"

cn.Execute "alter table [WebCad] add column [row_id] Long;"
cn.Execute "alter table [WebCad] add primary key([row_id]);"

cn.Close

.

 

[k0081]

Zeki bey ;

Acces üzerinden yapamadım. versiğiniz kod ile yaptım. webcad içinde "row_id" isminde field oluştu.

* bunu diğer tablolarda da uygulayacak mıyım ?


Teşekkürler.

 

[Haluk]

Veri tabanının mantığı budur, her kayıtın birbirinden ayırt edilebilir bir özelliği olması gerekir ki; yapılan sorgulamalar sonucunda istenilen veriler alınabilsin. Bunu da, verilerin "tekil" özelliğini sağlamak amacıyla "ID" ile yapabilirsiniz.

Bu, tıpkı sınıftaki öğrencilerin okul numarası, günlük hayatta insanların TC No'su, faturaların Seri No'su gibi bir şeydir.

Kullanın veya kullanmayın, her tabloya bunu uygulayın.... alışkanlık edinin.

.

 

[k0081]

Haluk;

Anladım hocam. Teşekkürler.