Option Compare Database
Option Explicit
'deklaracija API funkcijaza ini file
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Long
'Ucitavanje
Function GetINI(ByVal AppS As String, ByVal Kljuc As String) As String
Dim BafS As String * 256
Dim BafL As Long
BafL = GetPrivateProfileString(AppS, Kljuc, "", BafS, Len(BafS), Db_Putanja() & "\INIFile.ini")
GetINI = Left$(BafS, BafL)
End Function
'Upis
Function WriteINI(ByVal AppS As String, ByVal Kljuc As String, ByVal Vrijednost As String) As String
WritePrivateProfileString AppS, Kljuc, Vrijednost, Db_Putanja() & "\INIFile.ini"
End Function
'Proba
Function UcitajSve()
Dim a As String
'Ucitavanje
a = GetINI("Grupa2", "Podatak1")
'Zapis
MsgBox a
WriteINI "Neka Grupa", "Podatak grupe", "33"
End Function
Function Db_Putanja() As String
'-------------------------------------------------
'Ova funkcija pronalazi putanju postojee baze
'Autor funkcije ZXZ
'__________________________________________________
Dim DB As Database
Dim Putanja As String
On Error Resume Next 'Ako naieš na grešku nastavi
Set DB = DBEngine(0)(0) 'Setovanje baze
Putanja = DB.Name 'Upis putanje baze i njenog imena
Do Until Right$(Putanja, 1) = "\" 'Petlja za odvajanje imena baze od putanje baze
Putanja = Left$(Putanja, Len(Putanja) - 1)
Loop
Putanja = Left$(Putanja, Len(Putanja) - 1)
Db_Putanja = Putanja
Set DB = Nothing
End Function