Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Otvaranje mdb kodom iz VB 6

[es] :: Visual Basic 6 :: Otvaranje mdb kodom iz VB 6

[ Pregleda: 2973 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

SvojMajstor
Kladanj

Član broj: 322589
Poruke: 5
2a02:27b0:420d:af0:2c4b:4005..



Profil

icon Otvaranje mdb kodom iz VB 616.01.2015. u 21:50 - pre 111 meseci
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.
 
Odgovor na temu

Sijedi
Elektro-održavanje, Kondiktorska
industrija
BiH; 75,35k

Član broj: 303032
Poruke: 50
92.36.201.*



+19 Profil

icon Re: Otvaranje mdb kodom iz VB 617.01.2015. u 15:06 - pre 111 meseci
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

Starac bez mora...
 
Odgovor na temu

SvojMajstor
Kladanj

Član broj: 322589
Poruke: 5
2a02:27b0:420c:b080:5812:c89..



Profil

icon Re: Otvaranje mdb kodom iz VB 617.01.2015. u 17:18 - pre 111 meseci
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


 
Odgovor na temu

SvojMajstor
Kladanj

Član broj: 322589
Poruke: 5
109.175.102.*



Profil

icon Re: Otvaranje mdb kodom iz VB 617.01.2015. u 17:31 - pre 111 meseci
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


 
Odgovor na temu

Sijedi
Elektro-održavanje, Kondiktorska
industrija
BiH; 75,35k

Član broj: 303032
Poruke: 50
109.163.139.*



+19 Profil

icon Re: Otvaranje mdb kodom iz VB 617.01.2015. u 19:07 - pre 111 meseci
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.
Starac bez mora...
 
Odgovor na temu

SvojMajstor
Kladanj

Član broj: 322589
Poruke: 5
2a02:27b0:420c:4730:99fd:a24..



Profil

icon Re: Otvaranje mdb kodom iz VB 618.01.2015. u 15:27 - pre 111 meseci
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
 
Odgovor na temu

SvojMajstor
Kladanj

Član broj: 322589
Poruke: 5
2a02:27b0:420c:4730:99fd:a24..



Profil

icon Re: Otvaranje mdb kodom iz VB 618.01.2015. u 15:32 - pre 111 meseci
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
 
Odgovor na temu

[es] :: Visual Basic 6 :: Otvaranje mdb kodom iz VB 6

[ Pregleda: 2973 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.