Otvaranje mdb kodom iz VB 6

[ SvojMajstor @ 16.01.2015. 21:50 ] @

Pozdrav svima.

Kako da otvorim kodom iz VB 6 vec kreiranu access bazu mdb te kodom da postavim neki Data Filter kao npr. Last Month?
Kodom bi trebao da otvorim i query1 radi printanja.

[ Sijedi @ 17.01.2015. 15:06 ] @

Recimo:

Code:

  Set Baza = OpenDatabase(MagDIR & "\dokument.mdb")
   UslovU = "select * from tblstavkeu where su_sifra =" & "'" & RadSifra & "'" & _
            " and su_datdok >= " & Dat & "and su_datdok <= " & Datum2 & "" _
            & " order by su_datdok,su_brojdok"
    Set TablicaU = Baza.OpenRecordset(UslovU, dbOpenSnapshot)
   With TablicaU
      itd,itd

[ SvojMajstor @ 17.01.2015. 17:18 ] @

Hvala na odgovoru.
Na prvoj liniji mi daje gresku: Unrecognized databaze format

Treba da mi fizicki otvori mdb fajl. Excel fajl otvaram ovim kodom:

Dim oXL As Excel.Application
Dim oWB As Excel.Workbook
Dim oWS As Excel.Worksheet
Dim FileName As String
FileName = Text2.Text
Set oXL = New Excel.Application
Set oWB = oXL.Workbooks.Open("C:\Antena\Elementi.xlsx")
Set oWS = oWB.Worksheets("Dipoli")
oXL.Visible = True
oWB.SaveAs FileName

[ SvojMajstor @ 17.01.2015. 17:31 ] @

[ Sijedi @ 17.01.2015. 19:07 ] @

Uh sorry, nisam napomenuo da se radi o MDB bazama 2.0 (stari acces iz offica '97). Ove nove verzije ne bih znao, davno se to radilo.....
Imaš dosta primjera na net-u, doduše na engleskom.

[ SvojMajstor @ 18.01.2015. 15:27 ] @

Uspio sam ovim kodom da otvaram tabele u mdb fajlu:

Set appAccess = CreateObject("Access.application")
appAccess.OpenCurrentDatabase ("C:\Faktura1.mdb")
appAccess.DoCmd.OpenTable "Fakture"
appAccess.Visible = True

Sta treba izmijeniti da bi otvorio Query ili Report

pokusao sam promijeniti u trecoj liniji :appAccess.DoCmd.OpenReport "Fakture"

ali mi daje error: the report name you entered in either the property sheet or macro is misspelled or refers to a report that does not exist

[ SvojMajstor @ 18.01.2015. 15:32 ] @