Sql Sorgusunda Alan adları yerine hücre adresi

[tamer42]

Merhaba
Aşağıdaki sorguda:

Veri sayfasında;
A sütünü: [TÜR]
B sütunu: [ADET]
Burada Alan Adlarını hiç belirtmeden;

Sheets("veri").Range ("A2:B100") gibi hücre adreslerini yazarak;
1. (A) sütunda 'Bakliyat' olanların Adet değerlerini almak için nasıl bir düzenleme yapılabilir?

Sub sorguu()
Cells.ClearContents

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

yol = ThisWorkbook.FullName

Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
yol & ";extended properties=""Excel 12.0;hdr=yes"""

sorgu = "select [ADET] from[veri$] where [TÜR] = 'Bakliyat' "

Set RS = Con.Execute(sorgu)

Range("A2").CopyFromRecordset RS

x = 1
For Each baslik In RS.Fields
        Cells(1, x) = baslik.Name
        x = x + 1
Next baslik

Cells.EntireColumn.AutoFit
End Sub

teşekkürler, iyi Çalışmalar.

 

[tamer42]

Merhaba
Aşağıdaki sorguda:

Veri sayfasında;
A sütünü: [TÜR]
B sütunu: [ADET]
Burada Alan Adlarını hiç belirtmeden;

Sheets("veri").Range ("A2:B100") gibi hücre adreslerini yazarak;
1. (A) sütunda 'Bakliyat' olanların Adet değerlerini almak için nasıl bir düzenleme yapılabilir?

Sub sorguu()
Cells.ClearContents

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

yol = ThisWorkbook.FullName

Con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
yol & ";extended properties=""Excel 12.0;hdr=yes"""

sorgu = "select [ADET] from[veri$] where [TÜR] = 'Bakliyat' "

Set RS = Con.Execute(sorgu)

Range("A2").CopyFromRecordset RS

x = 1
For Each baslik In RS.Fields
        Cells(1, x) = baslik.Name
        x = x + 1
Next baslik

Cells.EntireColumn.AutoFit
End Sub

teşekkürler, iyi Çalışmalar.

Bu kadarmış...

sorgu = "select [ADET] from[veri$A2:B100"] where [TÜR] = 'Bakliyat' "