sysop Juniormester
16. juli 2020 - 09:05 Der er 2 kommentarer

VBA/Makro hent data fra SQL server

Hej

Jeg har et velfungerende Excel ark med en VBA/Makro der henter data fra min SQL server.
Efter skift af pc virker det ikke mere og jeg får nu kun #NAVNI!/
#VÆRDI! i alle data felter.
Function VismaReal(FirmaDSN, Aar, PeriodeFra, PeriodeTil, Konto)
Set Conn = CreateObject("ADODB.Connection")
Conn.Open ("DSN=" & FirmaDSN & ";Trusted_Connection=Yes")

' OBS! Fortegn vendes
  StrSql = "SELECT (-1) * SUM(AcTr.AcAm) FROM AcTr " & _
          " WHERE (AcTr.AcYr = " & Aar & ") AND (AcTr.AcPr BETWEEN " & PeriodeFra & " AND " & PeriodeTil & ")" & _
          " AND  (AcTr.AcNo in (" & Konto & "))"
                 
Db = Conn.Execute(StrSql)
VismaReal = Db(0)
Conn.Close
End Function

jeg er ret sikker på koden virker men jeg mangler et eller andet på min pc for det virker.
Office365.

Nogen bud?
MB280SK Seniormester
16. juli 2020 - 09:48 #1
Har du defineret din kilde i ODBC Data source Administrator i dine indstillinger?
sysop Juniormester
16. juli 2020 - 09:58 #2
Ja det har jeg. Den har jeg tjekket står helt som den gamle.
Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links

Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester





Premium
Test: Lenovos seneste budget-basker kan det hele - man skal dog leve med en alt for synlig svaghed
Computerworld tester Lenovos Ideapad 5. Maskinen er stærk, prisen er skarp og designet er vellykket. Men der er stadig en god grund til at springe modellen over.
Job & Karriere
Regner din ferie væk? Brug tiden på at søge en af disse otte stillinger, der er ledige netop nu
Det sjasker ned over hele Danmark. Du kan bruge de våde sommerdage på at søge et af disse otte job, der er ledige lige nu.
White paper
Sådan kan du arbejde effektivt uanset tid, sted og type af enhed
Hvad nu hvis dit arbejde, din information, dine processer og teknologien bag ved, var organiseret på en måde så det passede til din organisation – alt sammen guidet af en intelligent udgave af det digitale arbejdsrum? Det er visionen bag Atea og Citrix´s samarbejde med digital workspace – en smartere og mere effektiv måde at arbejde på. I dette whitetpaper kan du derfor læse om, hvordan du kan skabe et mere effektivt og brugervenligt arbejdsrum uanset tid, sted og enhed. En løsning der på en gang er både enkel og som sætter brugeren i centrum.