AutoItSetOption ("MustDeclareVars", 1)

#include "Access.au3"

MsgBox (0, "Ex.1", "Example_AccessOpen()")
	Example_AccessOpen()
MsgBox (0, "Ex.2", "Example_AccessTableExists()")
	Example_AccessTableExists()
MsgBox (0, "Ex.7", "Example_AccessTablesList()")
	Example_AccessTablesList()
MsgBox (0, "Ex.8", "Example_AccessFieldsList()")
	Example_AccessFieldsList()


Func Example_AccessOpen()
	Local $o_DataBase = _AccessOpen(@ScriptDir & "\NewCallbackLog.accdb")
	If $o_DataBase = 0 Then
		MsgBox(0, "Information", "Database file is not found :-" & @CR & @ScriptDir & "\NewCallbackLog.accdb")
		Return
	Else
		MsgBox(0, "Information", "Database file was opened :-" & @CR & @ScriptDir & "\NewCallbackLog.accdb")
	EndIf

	_AccessClose($o_DataBase)
 EndFunc   ;==>Example_AccessOpen

Func Example_AccessTableExists()
	Local $o_DataBase = _AccessOpen(@ScriptDir & "\NewCallbackLog.accdb")
	Local $O_TableObject

	If $o_DataBase = 0 Then
		MsgBox(0, "Information", "Database file is not found :-" & @CR & @ScriptDir & "\NewCallbackLog.accdb")
		Return
	EndIf

	$O_TableObject = _AccessTableExists ($o_DataBase, "tblTable1")
	If $O_TableObject = 0 Then
		MsgBox(0, "Information", "Table is not Exists. ")
		Return
	Else
		MsgBox(0, "Information", "Table is Exists. ")
	EndIf

	_AccessClose($o_DataBase)
EndFunc   ;==>Example_AccessTableExists

Func Example_AccessTablesList()
	Local $o_DataBase = _AccessOpen(@ScriptDir & "\NewCallbackLog.accdb")
	Local $avArray_Tables

	If $o_DataBase = 0 Then
		MsgBox(0, "Information", "Database file is not found :-" & @CR & @ScriptDir & "\NewCallbackLog.accdb")
		Return
	EndIf

	$avArray_Tables = _AccessTablesList ($o_DataBase)
	_ArrayDisplay ($avArray_Tables)

	$avArray_Tables = _AccessTablesList ($o_DataBase, False)
	_ArrayDisplay ($avArray_Tables)

	_AccessClose($o_DataBase)

EndFunc

Func Example_AccessFieldsList()
	Local $o_DataBase = _AccessOpen(@ScriptDir & "\NewCallbackLog.accdb")
	Local $O_TableObject, $avArray_Fields ;, $O_TableObject

	If $o_DataBase = 0 Then
		MsgBox(0, "Information", "Database file is not found :-" & @CR & @ScriptDir & "\NewCallbackLog.accdb")
		Return
	EndIf


	$avArray_Fields = _AccessFieldsList ($o_DataBase, "tblTable1")
	_ArrayDisplay ($avArray_Fields)
	_AccessClose($o_DataBase)
EndFunc