Execute yöntemiyle kapalı dosyada mükerrer kayıt işlemi

[orkuncan5]

Ekteki dosyada execute yöntemiyle mükerrer kayıt işlemini nasıl yaparım.

 

[Orion1]

Ekteki dosyada execute yöntemiyle mükerrer kayıt işlemini nasıl yaparım.

ad soyad sogulanıp sayılıyor.
Dosyanız ektedir.

Set rs = New ADODB.Recordset
Set rs = conn.Execute("Select count(Ad) from Tablo1 where Ad='" & TextBox1.Text & "';")
If rs(0).Value >= 1 Then
    MsgBox "Bu kayıt daha önce girilmiş." & vbLf & "İşlem İptal Oldu", vbCritical, "U Y A R I"
    Set rs = Nothing
    Exit Sub
End If

 

[orkuncan5]

Evren Bey teşekkür ederim.Zaten sizin yazmış olduğunuz kodlardı.Sağolun.

 

[yerbakili]

@Orion1, ben de sizin yazmış olduğunuz uygulamayı epey bir değiştirip yeni bir uygulama oluşturdum. Ancak uygulama bir süre sonra yeni kaydı listboxda en altta gösterme yerine en üstte göstermeye başlıyor. Verileri Accessden çekerken listbox'a ID numarasına göre küçükten büyüğüe doğru sıralatarak aldıramaz mıyız acaba?

 

[Orion1]

@Orion1, ben de sizin yazmış olduğunuz uygulamayı epey bir değiştirip yeni bir uygulama oluşturdum. Ancak uygulama bir süre sonra yeni kaydı listboxda en altta gösterme yerine en üstte göstermeye başlıyor. Verileri Accessden çekerken listbox'a ID numarasına göre küçükten büyüğüe doğru sıralatarak aldıramaz mıyız acaba?

dosyanız ektedri.
asc artan desc azalan sıralama.

Set rs = conn.Execute(strsql & " order by ID Asc;")