Kapalı bir dosyadaki kayıtları saymak

[tamer42]

Merhabalar,

Aşağıdaki kodlarla Kapalı bir dosyadan koşullu veri alabiliyorum...

Benim öğrenmek istediğim kayıtları sayabilmek,

yani bir koşuldan bağımsız "C:\TEMP\myLKSY.xls" dosyasında "Sayfa11" içerisinde "Adı" alanında toplam kaç satır (kayıt) var.

........
.............
Set cnt = New ADODB.Connection

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\TEMP\myLKSY.xls;" & _
"Extended Properties=""Excel 8.0;HDR=Yes"""

cnt.Open strConn

   For i = 2 To [U65536].End(3).Row

   Set rst = New ADODB.Recordset

    a = Range("U" & i).Value
  
    stsql = "SELECT * FROM [Sayfa11$]Where Adı='" & a & "'"

        rst.Open stsql, cnt, 1, 3

            s = rst("Soyad")

                Range("AI" & i).Value = s
 
                   stsql = ""
        
                  Set rst = Nothing
Next i
........
.............

İyi Çalışmalar.

 

[Ferhat Pazarçevirdi]

Merhabalar

Aşağıdaki kodla, Recordset'e Sorgu ile aldığınız kayıt adedini görüntüleyebilirsiniz.

'Diğer kodlarınız
...................
       rst.Open stsql, cnt, 1, 3
       
[COLOR=red]       With rst
          .MoveLast
           kayitadedi = .RecordCount
          .MoveFirst
       End With
       MsgBox kayitadedi & " adet kayıt var", vbInformation, "KAYIT ADEDİ"[/COLOR]
..............
'Diğer kodlarınız

Not : Rst'de cursor position'ı belirleyen parametreleri değiştirirseniz (1,3 olanlar) doğal olarak hata alırsınız. Mevcut yapı ile bir sorun çıkarmaz.

 

[tamer42]

Sn fpc ilginize teşekkürler...

Aşağıdaki kodla, Recordset'e Sorgu ile aldığınız kayıt adedini görüntüleyebilirsiniz.

'Diğer kodlarınız
...................
       rst.Open stsql, cnt, 1, 3
       
..............
'Diğer kodlarınız

Not : Rst'de cursor position'ı belirleyen parametreleri değiştirirseniz (1,3 olanlar) doğal olarak hata alırsınız. Mevcut yapı ile bir sorun çıkarmaz.

 rst.Open stsql, cnt, 1, 3

Burada

 stsql="SELECT * FROM [Sayfa11$].....

nasıl tanımlayacağız, hata veriyor yada ben genel kod içerinde uygun yere yazamadım.

 

[Ferhat Pazarçevirdi]

Aldığınız hata nedir? Bunu tam olarak yazarsanız bir önerim olabilir. Belki de, sorgunuz Rs'e kayıt getirmiyor olabilir. Böyle olursa da bir hata kontrolü koymak gerekbilir...

 

[tamer42]

Sn fpc;
kodları

 stsql = ""
  Set rst = Nothing

den sonra yazmışız.

 Set rst = New ADODB.Recordset
 "stsql="SELECT * FROM [Sayfa11$]"

rst.Open stsql, cnt, 1, 3
.....

deyince sorun çözüldü.

öğrenmek açısından

  "rst.Open stsql, cnt, 1,3"

bu sondaki yazılan (1,3) ne amlam ifade eder? (1,5) olsa ne olur?

İyi Akşamlar..

 

[Ferhat Pazarçevirdi]

Aşağıdaki linkte bir açıklama var. (7 Nolu mesaj)

http://www.excel.web.tr/showthread.php?t=37020&highlight=adOpenForwardOnly

 

[Zeki Gürsoy]

ADO Cursor Type & Lock Types
http://www.excel.web.tr/showthread.php?p=214658#post214658