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

• #7781 adam_ senior tag adam_ #7778

  Új Válasz 2014-02-12 20:14:50 #7781

  Ú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

  

  adam_

  senior tag

  válasz adam_ #7778 üzenetére

  Közben ezzel az alternatívával sikerült megoldanom, bár kíváncsi lennék arra, hogy az előző miért nem megy.

  Sub DBReader()
  
  Dim varConn As String
  Dim varSQL As String
  
  Range("A1").CurrentRegion.ClearContents
  
  varConn = "ODBC;DBQ=C:\Users\Desktop\konyvesbolt.mdb;Driver={Driver do Microsoft Access (*.mdb)}"
  
  varSQL = "SELECT Könyv_Tábla.Könyv_Név FROM Könyv_Tábla"
  
  With ActiveSheet.QueryTables.Add(Connection:=varConn, Destination:=Range("A1"))
  .CommandText = varSQL
  .Name = "Query-39008"
  .Refresh BackgroundQuery:=False
  End With
  
  End Sub

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