04. marts 2010 - 21:12Der er
17 kommentarer og 1 løsning
Problemer med adodc recordsource
Hej jeg har lavet et pogram i visual basic 6 hvor jeg henter nogle data fra en database ud fra nogle forskellige kriterier men efter jeg har installeret windows 7 vil den ikke hente dem mere...
her er min kode
Adodc5.RecordSource = "SELECT Sum([Løn]) AS SumLøn FROM skatteoplysninger GROUP BY Year([DatoFra]), [Førernr] HAVING (((Year([DatoFra]))=Year(Date())) AND (([Førernr])='" & Førernr & "'))"
Adodc5.Refresh
If Adodc5.Recordset.EOF Then Løn = "0,00" Else Løn = Round(Adodc5.Recordset.Fields("sumløn") & "", 2) End If
prøv at lave en on error resume next og fyld et par msgbox(err.description) på.. tit kan man få lidt mere forståelige fejlmeddelelser på den måde..
dog er adodc fra før biblen blev skrevet, så måske er den udfaset i windows 7. prøv om du kan downloade en adodc ocx-fil et sted og registrere den. (via http://support.microsoft.com/kb/146219)
Hej Den laver ikke nogen error og den gemmer fint i databasen den siger bare at Adodc5.Recordset.EOF er true men den har ikke læst de dataer der ligger i tabellen
Nu har jeg fundet fejlen det er fordi jeg går ned i databasen og kigger efter år 2010 da det er det år vi er i. Men jeg skal kigge efter året som jeg har valgt ud fra et datofelt der hedder txtSlutdato
Adodc5.RecordSource = "SELECT sum([Løn]) AS sumløn FROM skatteoplysninger GROUP BY Year([Dato]), [Førernr] HAVING (((Year([Dato]))=Year(Date())) AND (([Førernr])='" & Førernr & "'))" men jeg skal ud fra et felt der hedder txtførernr tage årstallet og gå ned i databasen i tabellen dato og hente alle de felter der passer med årstallet og førernummeret.
Adodc5.RecordSource = "SELECT Sum([Løn]) AS SumLøn FROM skatteoplysninger GROUP BY Year([DatoFra]), [Førernr] HAVING (((Year([DatoFra]))= " & Year([txtSlutDato]) & ")) AND (([Førernr])='" & Førernr & "'))"
This is assuming txtSlutDato is a dato field and you want to get the year from the field (Year([txtSlutDato]) )
If the field only contains the year then you just [txtSlutDato]
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.