Ado ile Datagrid içindeki satırı silmek

Katılım
17 Haziran 2008
Mesajlar
1,836
Excel Vers. ve Dili
Microsoft Ofis Profesyonel 2019 x64 TR
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

Uzman
Uzman
Katılım
31 Aralık 2005
Mesajlar
4,225
Excel Vers. ve Dili
Office 2019 (64 bit) - Türkçe
Grid'e listeyi hangi yöntem ile yüklediğinize bağlı bir durumdur.

.
 
Katılım
17 Haziran 2008
Mesajlar
1,836
Excel Vers. ve Dili
Microsoft Ofis Profesyonel 2019 x64 TR
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...
 
Katılım
17 Haziran 2008
Mesajlar
1,836
Excel Vers. ve Dili
Microsoft Ofis Profesyonel 2019 x64 TR
bu hatayı alıyorum...

Kod:
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
214585
 

Zeki Gürsoy

Uzman
Uzman
Katılım
31 Aralık 2005
Mesajlar
4,225
Excel Vers. ve Dili
Office 2019 (64 bit) - Türkçe
#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...

.
 
Katılım
17 Haziran 2008
Mesajlar
1,836
Excel Vers. ve Dili
Microsoft Ofis Profesyonel 2019 x64 TR
#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
 

Zeki Gürsoy

Uzman
Uzman
Katılım
31 Aralık 2005
Mesajlar
4,225
Excel Vers. ve Dili
Office 2019 (64 bit) - Türkçe
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.

PHP:
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
.
 
Katılım
17 Haziran 2008
Mesajlar
1,836
Excel Vers. ve Dili
Microsoft Ofis Profesyonel 2019 x64 TR
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.
 

Ekli dosyalar

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,268
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
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.

.
 
Katılım
17 Haziran 2008
Mesajlar
1,836
Excel Vers. ve Dili
Microsoft Ofis Profesyonel 2019 x64 TR
Haluk;

Anladım hocam. Teşekkürler.
 
Üst