Otvaranje mdb kodom iz VB 6

Otvaranje mdb kodom iz VB 6 16.01.2015. u 21:50 · pre 143 meseci #1

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.

Re: Otvaranje mdb kodom iz VB 6 17.01.2015. u 15:06 · pre 143 meseci #2

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

Potpis

Starac bez mora...

Re: Otvaranje mdb kodom iz VB 6 17.01.2015. u 17:18 · pre 143 meseci #3

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

Re: Otvaranje mdb kodom iz VB 6 17.01.2015. u 17:31 · pre 143 meseci #4

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

Re: Otvaranje mdb kodom iz VB 6 17.01.2015. u 19:07 · pre 143 meseci #5

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.

Potpis

Starac bez mora...

Re: Otvaranje mdb kodom iz VB 6 18.01.2015. u 15:27 · pre 143 meseci #6

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

Re: Otvaranje mdb kodom iz VB 6 18.01.2015. u 15:32 · pre 143 meseci #7

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

Srodne teme