04. januar 2005 - 10:53Der er
7 kommentarer og 1 løsning
Excel - tæller records i Access
Hej Her er endnu et spørgsmål om Excel/access SQL :0)
Fra excel indsætter og henter jeg data i en access tabel med felterne: Tlf, Dato, Tid, Tekst
Jeg ville nu gerne tælle antallet af Records hvor Tlf og Dato er givet fra excel. Jeg havde forestillet mig at man måske kunne anvende DCount men jeg kan ikke få det flettet ind i min sql. Kan nedenstående tilrettes så ovenstående løses? Jeg skal bruge antallet til betinget formatering i Excel.
vh Steen
Sub AntalBesøg() 'On Error Resume Next Dim rsData As ADODB.Recordset Dim szConnect As String Dim szSQL As String Dim sPath As String Dim Tlfno As String, Dato As Date
De fleste virksomheder har efterhånden bevist, at AI virker.
Pilotprojekter leverer resultater. Medarbejdere bruger generative AI-værktøjer. Nye use cases dukker op på tværs af organisationen.
Loopet teller op antal poster der bliver returneret i dit recordset, så hvids du begrænser dit recordset med WHERE Tlf = '" & Tlfno & "' AND Dato = '" & Dato & "'", skal den ikke loope igennem flere records end hvad der bliver returneret. Har du forsøgt at checke værdien af rsData.RecordCount? Forsøg eventuelt en rsData.MoveLast inden du checker RecordCount.
Det fremgår at den ikke understøtter baglæns tælling. Værdien rsData.RecordCount melder desværre fejl (som det vist fremgår af de links du vist). Men jeg er enig med dig i at det virker underligt!
Der manglet åbenbart en linie i den kode jeg vist tidligere (rsData.MoveNext). Uden denne linie, står den looper den bare på samme record - never endig loop. RecodCount er lidt afhængig af hvilke type recordset du henter. I det første eksempel, åbnes recordsettet således: rsChants.Open strQuery, , , adCmdTable
Jeg ved ikke om du kan bruge adCmdTable?
Ellers prøv denne kode, hvor jeg nu har tilføjet rsData.MoveNext:
dim recordcount
recordcount = 0
rsData.movefirst do until rsData.eof recordcount = recordcount + 1 rsData.MoveNext loop
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.