(01/04/2022, 09:16)berduş yazdı: Duruma gore 2si de yapilabilir
Sorguyu ona gore oluşturabilirsiniz
Kayıt sayılarını hesaplamak için sorguda group by ve
count
beraber kullanılabilir
Aşağıdaki kodda hata veriyor. ( rs2 kısmında)
Kod:
Private Sub UserForm_Initialize()
Dim baglan As New Connection
Dim rs As New Recordset
baglan.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\master.accdb;"
rs.Open "SELECT COUNT(*) FROM personel", baglan, adOpenKeyset, adLockPessimistic
rs2.Open "SELECT COUNT(*) FROM personel where unvan='İşçi'", baglan, adOpenKeyset, adLockPessimistic
Me.Label1.Caption = rs.Fields(0)
Me.Label2.Caption = rs2.Fields(2)
rs.Close
rs2.Close
baglan.Close