Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    LOGOUT

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #8920 bugizozi őstag
    Új Válasz #8920
    Ú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

    bugizozi

    őstag

    Sziasztok!

    Megint egy kérdéssel fordulnék hozzátok! :B
    A következő kóddal kapcsolódok egy accesshez és futtattok lekérdezést excelben.

    With ActiveSheet.QueryTables.Add(Connection:=Array( _
    "OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=" & CurDir & ";Mode=Share Deny Write;Extended Propertie" _
    , _
    "s="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password=*****;Jet OLEDB:Engine Type=5;Jet O" _
    , _
    "LEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Pas" _
    , _
    "sword="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Je" _
    , "t OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False"), _
    [B]Destination:=Range("A2")[/B])
    .CommandType = xlCmdSql
    [B].CommandText = Array( _
    "SELECT Munkaszámok.Munkaszam" & Chr(10) & "FROM Munkaszámok" & Chr(10) & "ORDER BY Munkaszámok.Munkaszam" _
    )[/B]
    .Name = "ora_2"
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = xlOverwriteCells
    .SavePassword = True
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .PreserveColumnInfo = True
    .SourceDataFile = " & CurDir & "
    .Refresh BackgroundQuery:=False
    End With

    Lényeg: Meg van adva hogy hova tegye az excelben a lekérdezett adatokat (kiemelt részek).
    Az lenne a kérdésem hogy át lehet e módosítani ezt a kódot úgy, hogy még egy lekérdezést futtassak amit egy másik mezőtől kezdve tesz az excelbe. Eddig úgy csináltam, hogy beletettem a programba mégegy komplett ilyen részt, amiben módosítottam a kiemelt részeket, de úgy gondolom ha nem 2x csatlakozna az adatbázishoz, hanem egy ilyen kódban meg tudnám oldani a két lekérdezést akkor gyorsabban lefutna a progi. vagy rosszul gondolom :U meg maga a programkód is kevesebb lenne.
    Szóval van erre lehetőség, vagy csak úgy megoldható, ahogy most csinálom, még többször teszek a kódba ilyen részeket?!
    Előre is köszönöm a választ! :)

    ui: google-ban keresgettem, de nem igazán találtam ilyen megoldást :(

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

Hirdetés