Új hozzászólás Aktív témák

• #43454 bucihost senior tag Fferi50 #43449

  Új Válasz 2020-03-31 10:15:45 #43454

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  bucihost

  senior tag

  válasz Fferi50 #43449 üzenetére

  Sub ExcelSqlTeszt()
    Windows("Munkafüzet2").Activate
    ActiveWorkbook.Queries.Add Name:="Lekérdezés1", Formula:= _
        "let" & Chr(13) & "" & Chr(10) & "    Forrás = MySQL.Database(""X.X.X.X"", ""dbname"", [ReturnSingleDatabase=true, Query=""SELECT#(lf)SUM(MENNYS * EGYSAR) AS ERTEK,#(lf)DATUM,#(lf)SID#(lf)#(lf)FROM tabla#(lf)WHERE DATUM between '2020-03-30' AND '2020-03-30'#(lf)GROUP BY DATUM, SID;""])" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & "    Forrás"
    ActiveWorkbook.Worksheets.Add
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
        "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=Lekérdezés1;Extended Properties=""""" _
        , Destination:=Range("$A$1")).QueryTable
        .CommandType = xlCmdSql
        .CommandText = Array("SELECT * FROM [Lekérdezés1]")
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .ListObject.DisplayName = "Lekérdezés1"
        .Refresh BackgroundQuery:=False
    End With
    Range("O12").Select
    ActiveWindow.SmallScroll Down:=-12
End Sub

Új hozzászólás Aktív témák