MS Excel

Nemyslíš náhodou:
Délka(A1)
zjištění počtů znaků v buňce.citovat

COUNT nie je nutný:Option Explicit
Sub GetNumberOfRecords()
Dim DbName As String, tblName As String, strSQL As String
Dim con As ADODB.Connection, rst As ADODB.Recordset

DbName = "C:\Users\al057494\Desktop\Test.accdb"
tblName = "tblTest"

Set con = New ADODB.Connection
con.Open "Provider = Microsoft.ACE.OLEDB.12.0; Data Source=" & DbName
Set rst = New ADODB.Recordset
strSQL = "SELECT * FROM " & tblName
rst.Open strSQL, con, adOpenStatic, adLockReadOnly
MsgBox rst.RecordCount
rst.Close
Set rst = Nothing
con.Close
Set con = Nothing
End SubPokiaľ by si chcel predsa len využiť COUNT, tak takto:Option Explicit
Sub GetNumberOfRecordsWithCount()
Dim DbName As String, tblName As String, strSQL As String
Dim con As ADODB.Connection, rst As ADODB.Recordset

DbName = "C:\Users\al057494\Desktop\Test.accdb"
tblName = "tblTest"

Set con = New ADODB.Connection
con.Open "Provider = Microsoft.ACE.OLEDB.12.0; Data Source=" & DbName
Set rst = New ADODB.Recordset
strSQL = "SELECT COUNT(*) FROM " & tblName
rst.Open strSQL, con, adOpenStatic, adLockReadOnly
MsgBox rst.GetString
rst.Close
Set rst = Nothing
con.Close
Set con = Nothing
End Subcitovat

AL díky. Ten první "rst.RecordCount" znám. Ten třetí by se mi hodil nejvíc. Ale problém je v tom, že už "Test.accdb" mám otevřený "OpenDatabase" (ne Current). A teď bych potřeboval získat "COUNT" pro sestavení sql dotazu pro "OpenRecordset". Asi budu muset ten "rst" načíst dvakrát.citovat

V tom případě DCount vrací chybu "Vyhrazená chyba 2950".
Ano před pár dny. Zatím jsem používal jen ImpEx do textových souborů Open, Input, Write.
A teď chci z Excel v Access sledovat vývoj nějakých položek (cca 24M). Zatím testuju DAO. DB mám rozdělený do 24tab s identickou strukturou po 1M záznamů. No a v tomto případě chci do Recordset načíst záznamy z celého DB tzn. z 24tab, které mají hodnotu vyšší než je průměrná. No a s tím si teď hraju. Netuším jak bych mohl zjistit AVG v celém DB, ale znám celkový SUM, no a po zjištění COUNT si ten AVG dopočítám. Pak mohu tuto hodnotu vložit do dotazu pro Recordset z celého DB.
No a s tím získáváním syntaxe přímo v Access je to tak, že už jsem to někde dočet, ale vůbec netuším jak naložit s "v takom prípade si ho cvične postavím v návrhovom zobrazení priamo v prostredí Access, následne sa prepnem do SQL zobrazenia".
Až budu mít trochu víc času, tak se pokusím seznámit.
Dík!citovat

To je předmětem testu. Záměrně jsem to rozdělil do více tabulek z důvodu snad rychlejší indexace. Teď vytvořím dva DB. Jeden s jedinou tabulkou a druhý s více tabulkami. Pak budu testovat rychlost práce s oběma. V daném čase, jednou denně, proběhne 15 tisíc přístupů (z 24M možných). Tzn. kontrola zda je daná položka již uvedena, v tom případě změna její hodnoty (+1), nebo pokud uvedena není tak jí do DB přidat s počáteční hodnotou (1). Můj předpoklad je, že práce v DB rozděleném do více tabulek bude rychlejší. Pokud však rozdíl rychlosti bude nevýznamný, pak budu samozřejmě pracovat s DB s jedinou tabulkou.citovat