Pivot/SQL

det er ikke helt sikkert at det funker, da jeg ikke kan teste på dine data, men her er et bud, u måske selv kan modificere lidt

Sub LavQT()
  Dim sConn As New ADODB.Connection
  Dim RS As New ADODB.Recordset
  Dim sSql As String
  Dim PC As PivotCache
  Dim PT As PivotTable

  Dim oQt As QueryTable
  Dim Konto As String

  sConn = "ODBC;DSN=xaltest;"
  sConn = sConn & "UID=xal_supervisor;PWD=xal_supervisor_pwd;APP=Microsoft Office 2003;WSID=SERVER;DATABASE=XALDB2;LANGUAGE=Dansk;Network=DBMSLPCN"
  sSql = "SELECT LEDTABLE.ACCOUNTNUMBER, LEDTABLE.ACCOUNTNAME, LEDTRANS.LASTCHANGED ,LEDTRANS.DATE_, LEDTRANS.AMOUNTMST " & _
  "FROM XALDB2.dbo.LEDTABLE LEDTABLE, XALDB2.dbo.LEDTRANS LEDTRANS " & _
  "WHERE LEDTABLE.ACCOUNTNUMBER = LEDTRANS.ACCOUNTNUMBER AND LEDTABLE.DATASET = LEDTRANS.DATASET AND ((LEDTRANS.DATE_>{ts '2004-12-31 00:00:00'}))"
  sConn.Open


  'åbn recordsettet...
  Set RS = New ADODB.Recordset
  Set RS.ActiveConnection = sConn
  RS.Open sSql

  'klargør data til  pivottabellen....
  Set PC = ActiveWorkbook.PivotCaches.Add(SourceType:=xlExternal)
  Set PC.Recordset = RS

  'opret pivottabellen ....
  Worksheets.Add Before:=Sheets(1)
  Set PT = ActiveSheet.PivotTables.Add(PivotCache:=PC, _
                                        TableDestination:=Range("A1"))

  With PT
      .NullString = "0"
      .SmallGrid = False
      .AddFields ColumnFields:="ACCOUNTNUMBER"
      .PivotFields("AMOUNTMST").Orientation = xlDataField
  End With
End Sub

Ps, husk at lukke sconn og rs igen efter brug

Det virker udmiddelbart men jeg får en fejl på linien sConn.open

run-time error -2147467259(80004005)
[Microsoft][ODBC Driver manager]Data Source name not found and no default driver specified.

Jeg kan sagtes lave en normal QT connection til databasen så jeg ved at connection strengen virker. Jeg har også checket at DSN'en er korrekt og servernavn er korrekt.

Håber du/i kan hjælpe mig med dette?

Sub LavQT()
  Dim sConn As New ADODB.Connection
  Dim RS    As New ADODB.Recordset
  Dim sSql  As String
  Dim PC    As PivotCache
  Dim PT    As PivotTable

  Dim oQt  As QueryTable
  Dim Konto As String
 
  sConn = "ODBC;DSN=xaltest;"
  sConn = sConn & "UID=xal_supervisor;PWD=xal_supervisor_pwd;APP=Microsoft Office 2003;WSID=SERVER;DATABASE=XALDB2;LANGUAGE=Dansk;Network=DBMSLPCN"
 
  sSql = "SELECT LEDTABLE.ACCOUNTNUMBER, LEDTABLE.ACCOUNTNAME, LEDTRANS.LASTCHANGED ,LEDTRANS.DATE_, LEDTRANS.AMOUNTMST " & _
        "FROM XALDB2.dbo.LEDTABLE LEDTABLE, XALDB2.dbo.LEDTRANS LEDTRANS " & _
        "WHERE LEDTABLE.ACCOUNTNUMBER = LEDTRANS.ACCOUNTNUMBER AND LEDTABLE.DATASET = LEDTRANS.DATASET AND ((LEDTRANS.DATE_>{ts '2004-12-31 00:00:00'}))"
 
  sConn.Open
   
  'åbn recordsettet...
  Set RS = New ADODB.Recordset
  Set RS.ActiveConnection = sConn
 
  RS.Open sSql

  'klargør data til  pivottabellen....
  Set PC = ActiveWorkbook.PivotCaches.Add(SourceType:=xlExternal)
  Set PC.Recordset = RS

  'opret pivottabellen ....
  Worksheets.Add Before:=Sheets(1)
  Set PT = ActiveSheet.PivotTables.Add(PivotCache:=PC, _
                                        TableDestination:=Range("A1"))

  With PT
      .NullString = "0"
      .SmallGrid = False
      .AddFields ColumnFields:="ACCOUNTNUMBER"
      .PivotFields("AMOUNTMST").Orientation = xlDataField
  End With

End Sub

ok,måske kan dette gøre det

Sub LavQT()
  Dim sTemp as String
  Dim sConn As New ADODB.Connection
  Dim RS    As New ADODB.Recordset
  Dim sSql  As String
  Dim PC    As PivotCache
  Dim PT    As PivotTable

  Dim oQt  As QueryTable
  Dim Konto As String

  sTemp = "ODBC;DSN=xaltest;"
  sTemp = sTemp & "UID=xal_supervisor;PWD=xal_supervisor_pwd;APP=Microsoft Office 2003;WSID=SERVER;DATABASE=XALDB2;LANGUAGE=Dansk;Network=DBMSLPCN"
 
  sSql = "SELECT LEDTABLE.ACCOUNTNUMBER, LEDTABLE.ACCOUNTNAME, LEDTRANS.LASTCHANGED ,LEDTRANS.DATE_, LEDTRANS.AMOUNTMST " & _
        "FROM XALDB2.dbo.LEDTABLE LEDTABLE, XALDB2.dbo.LEDTRANS LEDTRANS " & _
        "WHERE LEDTABLE.ACCOUNTNUMBER = LEDTRANS.ACCOUNTNUMBER AND LEDTABLE.DATASET = LEDTRANS.DATASET AND ((LEDTRANS.DATE_>{ts '2004-12-31 00:00:00'}))"

  sConn.Open sTemp
 
  'åbn recordsettet...
  Set RS = New ADODB.Recordset
  Set RS.ActiveConnection = sConn

  RS.Open sSql

  'klargør data til  pivottabellen....
  Set PC = ActiveWorkbook.PivotCaches.Add(SourceType:=xlExternal)
  Set PC.Recordset = RS

  'opret pivottabellen ....
  Worksheets.Add Before:=Sheets(1)
  Set PT = ActiveSheet.PivotTables.Add(PivotCache:=PC, _
                                        TableDestination:=Range("A1"))

  With PT
      .NullString = "0"
      .SmallGrid = False
      .AddFields ColumnFields:="ACCOUNTNUMBER"
      .PivotFields("AMOUNTMST").Orientation = xlDataField
  End With

End Sub

Hej bak

Det virkede - Tak

Godt :-)

Hej Bak
Har du fået 150 point?

Nej, dem fik du selv