Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Veri Tabanı Kayıt Sayısı Hk

H@K@N
H@K@N
Excel Cevaplanmış Soruları
8
928

Veri Tabanı Kayıt Sayısı Hk

Çözüldü #1
H@K@N
Aktif Üye
H@K@N
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 38
Konum:
Ofis Versiyonu:
Son Oturumu: 15/06/2022,09:55
Yorumları: 51
Konuları: 20
Kayıt Tarihi: 12/03/2020
Teşekkür Puanı: 0
Merhaba Access veri tabanında bulunan kayıtlara ilişkin verileri userform da bulunan labellara aktarabilir miyiz?
1-Toplam kayıt sayısı
2-Alana göre kayıt sayısı (Örn:personel tablosunda unvanı işçi olan personel sayısı)
Cevapla
#2
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,12:18
Yorumları: 8.597
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.059
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
Cevapla
#3
H@K@N
Aktif Üye
H@K@N
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 38
Konum:
Ofis Versiyonu:
Son Oturumu: 15/06/2022,09:55
Yorumları: 51
Konuları: 20
Kayıt Tarihi: 12/03/2020
Teşekkür Puanı: 0
Aşağıdaki kod ile toplam sayıyı labele aktardım.

Kod:
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 where id", baglan, adOpenKeyset, adLockPessimistic
Me.Label1.Caption = rs.Fields(0)

rs.Close
baglan.Close
Cevapla
#4
H@K@N
Aktif Üye
H@K@N
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 38
Konum:
Ofis Versiyonu:
Son Oturumu: 15/06/2022,09:55
Yorumları: 51
Konuları: 20
Kayıt Tarihi: 12/03/2020
Teşekkür Puanı: 0
(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
Cevapla
#5
berduş
Berduş
berduş
Bul
Uzman
Adı Soyadı: ha....
Konum: -
Ofis Versiyonu: Ofis 2019 64 Bit
Son Oturumu: Bugün,12:18
Yorumları: 8.597
Konuları: 94
Kayıt Tarihi: 30/07/2014
Teşekkür Puanı: 1.059
bu konudaki son uyarım dosyanızı ekleyin dosya olmadan hangi tablolarınızın, hangi alanlarınızın olduğunu anlayamayız
çalışmanıza çözüm üretemeyiz
1 - rs için Dim rs As New Recordset ile tanımlama yapmışsınız ama rs2 için yok
2 - rs2 için tek alan tanımlamışsınız COUNT(*) ama rs2.Fields(2) de 2 yazmanız demek 3. alanı getir demektir orası da rs2.Fields(0) olmalı
Cevapla
#6
H@K@N
Aktif Üye
H@K@N
Bul
Aktif Üye
Adı Soyadı:
Yaşı: 38
Konum:
Ofis Versiyonu:
Son Oturumu: 15/06/2022,09:55
Yorumları: 51
Konuları: 20
Kayıt Tarihi: 12/03/2020
Teşekkür Puanı: 0
Dim rs2 As New Recordset tanımlamasını unutmuşum ekleyince sorun çözüldü.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task