Şarta uyan kayıt sayısı.

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Merhaba.
Aşağıdaki kodla ISIM alanındaki textbox1 de bulunan kayıt sayısını almak istiyorum.ISIM alanı stringtir.
Ama sonuç -1 olarak çıkıyor.Oysa en az 1 kayıt var.
VT ms sql compact 3,5
Teşekkür ederim.
Kod:
Set rs1 = New ADODB.Recordset
Set rs1 = UserForm1.conn.Execute("select Count(ISIM) from [ISIM]" _
& " where ISIM = '" & TextBox1.Text & "';")
MsgBox rs1.RecordCount
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Aşağıdaki kodla tüm kayıtlar için yaptım ama yine -1 veriyor sonucu. :(
Kod:
Set rs1 = UserForm1.conn.Execute("select Count(ISIM) from [ISIM];")
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Aşağıdaki kodla listeleme yapıyorum kayıtları ama kayıt sayısını öğrenmek için msgbox rs1.recordcount deyuyince -1 çıkarıyor yine
Kod:
rs1.Open "select ISIM_ID,ISIM from [ISIM] order by ISIM", conn, adOpenKeyset, adLockReadOnly
 

Zeki Gürsoy

Uzman
Uzman
Katılım
31 Aralık 2005
Mesajlar
4,344
Excel Vers. ve Dili
Office 365 (64 bit) - Türkçe
Merhaba,

Kayıt çekme ve kilit tipinden kaynaklı bir durum var. MoveLast uygularsanız kayıt kümesindeki satırlara fetch uygulanır ve kayıt sayısı döner. Ayrıca, diğer açma ve kilit tipini kullandığınızda bu işlem kendiliğinden yapıldığından record.count property doğru sayıyı verecektir.
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Merhaba,

Kayıt çekme ve kilit tipinden kaynaklı bir durum var. MoveLast uygularsanız kayıt kümesindeki satırlara fetch uygulanır ve kayıt sayısı döner. Ayrıca, diğer açma ve kilit tipini kullandığınızda bu işlem kendiliğinden yapıldığından record.count property doğru sayıyı verecektir.
Zeki hocam kodları aşğıdaki şekilde yaptım.Sonoç yine hatalı çıkıyor -1 çıkıyor.
Kod:
rs1.Open "select ISIM_ID,ISIM from [ISIM] order by ISIM", UserForm1.conn, adOpenKeyset, adLockReadOnly
rs1.MoveLast
MsgBox rs1.RecordCount
 

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Merhaba sorun çözüldü.
Sayın Beab aşğıdaki kodu verdi.
Sorun çözüldü.En başa yazıyoruz.:D Sanırım server ler için geçerli.
Kod:
rs1.CursorLocation = adUseClient
 
Katılım
25 Aralık 2005
Mesajlar
4,160
Excel Vers. ve Dili
MS Office 2010 Pro Türkçe
Evren Bey,

Bir de sorgunuza anahtar alanı ekleyerek bir deneme yapabilirmisiniz?
 
Üst