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

• #7778 adam_ senior tag

  Új Válasz 2014-02-12 19:19:02 #7778

  Ú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

  Sziasztok! A lenti kóddal mi a probléma? "Compile error"-t ad ki rá, pedig a referenciák között be van kapcsolva a Microsoft Access 12 Object Library is. Esetleg más a hiba? Sajnos amikor elkezdtem beütni a cnt As New... sort fel sem ajánlja az ADODB.Connect részt.. pedig elvileg fel kellene hogy dobja, ha be van kapcsolva az Access Object Referencia.

  Sub DBReader()
  
  Dim cnt As New ADODB.Connection
  Dim rst As New Recordset
  Dim strConnectStr As String
  Dim Qry As String
  
  strConnectStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "C:\Users\Desktop\konyvesbolt.mdb" & ";"
  
  Qry = "SELECT tblOurTable.[Könyv_Név]"
  
  ActiveSheet.Cells.ClearContents
  
  cnt.Open strConnectStr
  
  rst.Open Qry, cnt
  
  Range("A1").CopyFromRecordset rst
  
  
  End Sub

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