SQL Çoklu Sorgu

[msoauy]

Merhabalar,

SQL sorgusu yaparken bazı sayılar gerekmekte ve bunun için 2 sorgu yazdım. Bu 2 değeri tek sorgu ile yapabilir miyim?

Sub KayıtSayilariGuncelle(ByVal DBConnection As Object, ByRef KriterSayi As Double, ByRef YazarSayi As Double, ByRef KitapSayi As Double)
        Dim rs As Object
        Set rs = CreateObject("ADODB.RecordSet")
        rs.Open Source:="SELECT * FROM Kitaplar;", ActiveConnection:=DBConnection
        WriteRSData recSet:=rs, WorkSht:=ws, RowNum:=5, FieldOption:=True
        KriterSayisi = 0
        YazarSayisi = 0
        KitapSayi = 0
        
        KriterSayi = rs.Fields.Count
        rs.Close
        
        rs.Open Source:="SELECT COUNT([Kitap Adı]) FROM Kitaplar;", ActiveConnection:=DBConnection
        KitapSayi = rs(0).Value
        rs.Close
        
        rs.Open Source:="SELECT Count(*) FROM (SELECT DISTINCT [Kitap Yazarı] FROM Kitaplar);", ActiveConnection:=DBConnection
        YazarSayi = rs(0).Value
        rs.Close
End Sub

Teşekkürler.

 

[Asri]

Yanlış anlamadıysam ,
birinde kaç kitap olduğunu (mükerrer kitap isimleri dahil)
diğerinde kaç yazar olduğunu mükerrer yazar isimleri dahil değil.

Bu iki sonucu siz tek sorguda nasıl bir sonuç olarak görmek istiyorsunuz.

 

[msoauy]

Yanlış anlamadıysam ,
birinde kaç kitap olduğunu (mükerrer kitap isimleri dahil)
diğerinde kaç yazar olduğunu mükerrer yazar isimleri dahil değil.

Bu iki sonucu siz tek sorguda nasıl bir sonuç olarak görmek istiyorsunuz.

Dediğiniz doğrudur. Bu iki bilgiyi almam gerkiyor ve sistemden sürekli kontrol ediyorum bu fonksiyon ile.

Tek sonuç ile bu RecordSet değerine rs(0) ve rs(1) ile bir atama yapılabilir mi? 2 kere sorgu yapmaktan ziyade tek sorguda bitirilebilir mi? Aslında bilgi amaçlı soruyorum.