ADO ile son kayıt bilgisine ulaşma hk.

[mumugul]

Merhaba,

Son kayda ulaşmak için sorgum nasıl olmalı ve hücreye nasıl aktarabiliriz?
Tablo başlıkları "A1", "A2", "A3", "A4", "A5", "A6" şeklinde ve 6 sütun.

Yardımcı olur musunuz?

Saygılarımla...

Sub oku()
Set con = CreateObject("Adodb.Connection")
Set rs = CreateObject("Adodb.Recordset")
con.Open "Provider=Microsoft.ace.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\1.xlsx;" & "Extended Properties=""Excel 8.0;HDR=Yes"""

sorgu = ??? ' Son kayıt

rs.Open sorgu, con, 1, 3

MsgBox rs.??? ' Son kayıt

Set rs = Nothing: Set con = Nothing

End Sub

 

[Erdem Akdemir]

Merhaba,

Tablolarınıza 1'den başlayarak sıra numarası verirseniz sorgu kodlaması açısından çok rahat olur.
Tablonuzun en başına SIRA NO alanı eklerseniz aşağıdaki sorgu ile son kayıta ulaşırsınız.

sorgu = "select top 1 * from[Sheet1$] order by [SIRA NO] desc

 

[Haluk]

Veya; "rs.MoveLast" gibi bir komut da işe yarayabilir ....

Örnek dosya ektedir.

.

 

[Erdem Akdemir]

Haluk bey,

DAO yada ADO kullanmanın avantajları nelerdir.

 

[Erdem Akdemir]

Alternatif olarak aşağıdaki sorgu'da olabilir.

Sub ddd()

Cells.Clear

Set con = VBA.CreateObject("adodb.Connection")

con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=yes"""

sorgu = "select last(A1),last(a2) from[Sheet1$] "
Set RS = con.Execute(sorgu)

Range("A1").CopyFromRecordset RS

End Sub

 

[mumugul]

Merhaba,

Erdem bey ilk cevabınızı uyarlayamadım yardımcı olur musunuz?

 

[Erdem Akdemir]

Örnek dosya ekleyebilir misiniz.

 

[mumugul]

Merhaba,

Dosyayı ekledim. Kod ve veri aynı dosyada oldu!

 

[Erdem Akdemir]

Aşağıdaki kodu kullanabilirsiniz.
HDR= YES dediğimiz için Ankara yazan satırı komple silin.

Sub oku()

Set con = CreateObject("Adodb.Connection")
con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
ThisWorkbook.FullName & ";extended properties=""Excel 12.0;hdr=yes"""

sorgu = "select last(A6) from[Sayfa1$]"
Set rs = con.Execute(sorgu)

MsgBox rs.Fields.Item(0)

Set rs = Nothing: Set con = Nothing

End Sub

 

[mumugul]

Teşekkürler...