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

• bugizozi őstag

  #8920 2010-12-21 14:17:06

  Új Válasz

  Ú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

  

  bugizozi

  őstag

  Sziasztok!

  Megint egy kérdéssel fordulnék hozzátok!
  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 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