Predmet:Koristan VB kod
Dao konekcija na mdb bazu.
PreuzmiIzvorni kôd (Visual Basic):Public Sub Main()
#If Win16 Then
DBEngine.IniPath = ""
#Else
'DBEngine.SystemDB = App.Path & "\sys.mdw"
#End If
Set wks = CreateWorkspace("ImePrijekta", "Admin", "")
Set Db = wks.OpenDatabase(App.Path & "\ImeBaze.mdb")
End Sub
Potrebno ukljuciti refercu:
\Program Files\Common Files\Microsoft Shared\DAO\DAO350.DLL ili neki drugi
Podrska 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.