Avatar billede nih Novice
02. december 2012 - 20:43 Der er 1 kommentar og
1 løsning

VBA - ændre ODBC forbindelse til pivottabel

Hej
Jeg prøver via VBA at ændre ODBC-forbindelsen til en pivottabel.
Det er lige ud af landevejen og lykkedes også, MEN pivot tabellen laver hele tiden en ny forbindelse.
Min forbindelse hedder "timer" og hver gang jeg kører koden ændres forbindelsen "timer" ganske som ønsket, men pivottabellen connecter til en ny forbindelse "timer1" ???????

HVORDAN får jeg pivottabellen til at beholde den oprindelige forbindelse:

Sub opdater_timer()

    Dim d1 As Date
    Dim d2 As Date
    Dim strSQL As String
   

    If IsDate(Range("d1")) And IsDate(Range("d2")) Then
        d1 = Range("d1")
        d2 = Range("d2")
        strD1 = Format(d1, "yyyy-mm-dd")
        strD2 = Format(d2, "yyyy-mm-dd")
   
        strSQL = "SELECT * FROM vw_Timer WHERE " & _
                "Dato >= '" & strD1 & "' AND Dato <='" & strD2 & "'"
               
        With ActiveWorkbook.Connections("Timer").ODBCConnection
            .Connection = getConn
            .CommandText = strSQL
            .CommandType = xlCmdSql
            .SavePassword = True
            .Refresh
        End With
    End If

   
End Sub

'getConn returnere ODBC connection til en MySQL database:

Function getConn() As String
strConnection = "ODBC;DRIVER=" & DSN & _
            ";SERVER=" & DatabaseServer & _
            ";DATABASE=" & DatabaseName & _
            ";UID=" & DatabaseUsername & _
            ";PWD=" & DatabasePassword & _
            ";PORT=3306;"
           
getConn = strConnection

End Function
Avatar billede nih Novice
02. december 2012 - 20:46 #1
jeg har prøvet at ændre forbindelsen vha.
ActiveSheet.PivotTables("Pivottabel3").ChangeConnection ActiveWorkbook.Connections("Timer")

Virker ikke, men generere en ny forbindelse hvergang koden kører: timer1, timer2, timer3 timer_n
Avatar billede nih Novice
01. april 2013 - 01:34 #2
Lukker
Avatar billede 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. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

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