Prikazi cijelu temu 15.12.2010 13:45
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Koristan VB kod
Dao konekcija na mdb bazu.
PreuzmiIzvorni kôd (Visual Basic):
  1. Public Sub Main()
  2.     #If Win16 Then
  3.         DBEngine.IniPath = ""
  4.     #Else
  5.         'DBEngine.SystemDB = App.Path & "\sys.mdw"
  6.    #End If
  7.     Set wks = CreateWorkspace("ImePrijekta", "Admin", "")
  8.     Set Db = wks.OpenDatabase(App.Path & "\ImeBaze.mdb")
  9. End Sub

Potrebno ukljuciti refercu:
\Program Files\Common Files\Microsoft Shared\DAO\DAO350.DLL ili neki drugi
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
Ovaj post je ureden 2 puta. Posljednja izmjena 12.10.2021 12:46 od strane zxz.