Работа с SQL Lite

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Res_Description=For Public
#AutoIt3Wrapper_Res_LegalCopyright=(c) = MalyaWka (aka TheBloodTear)
#AutoIt3Wrapper_Res_Field=Автор|MalyaWka
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <SQLite.au3>
#include <SQLite.dll.au3>
#include <Array.au3>

Global $retarr, $dbn
Global $aResult, $iRows, $iColumns, $iRval, $i = 1
Global $DisplayName, $DisplayVersion, $Publisher, $UninstallString, $URLInfoAbout, $InstallDate

$strComputer = InputBox("Имя компьютера", "Введите имя компьютера, на котором хотите посмотреть софт..", @ComputerName)

_OpenDB() 	;открываем БД, или создаем ее, если ее нет.
_ScanSoft() ;сканируем софт [это самый оптимальный способ что нашел, сорри, но авторов всех не помню:(]
			;с каждым удачным сканированием реестра добавляем данные в БД
_ShowDB()	;показываем все что есть в БД
_CloseDB()	;закрываем БД

Func _ScanSoft()
	Local Const $UnInstKey	= "\\" & $strComputer & "\HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"

	While 1
		$AppKey	= RegEnumKey($UnInstKey, $i)
		If @error <> 0 Then ExitLoop
		$DisplayName	= StringStripWS(StringReplace(RegRead($UnInstKey & "\" & $AppKey, "DisplayName"), " (remove only)", ""), 3)
		If $DisplayName = "" Or StringInStr($DisplayName, "Обновление") > 0 Or StringInStr($DisplayName, "Исправление") > 0 Then
			$i += 1
			ContinueLoop
		EndIf
		$DisplayVersion	= StringStripWS(RegRead($UnInstKey & "\" & $AppKey, "DisplayVersion"), 3)
		If $DisplayVersion = "" Then $DisplayVersion = "Неизвестно"
		$Publisher	= StringStripWS(RegRead($UnInstKey & "\" & $AppKey, "Publisher"), 3)
		If $Publisher = "" Then $Publisher = "Неизвестно"
		$UninstallString	= StringStripWS(RegRead($UnInstKey & "\" & $AppKey, "UninstallString"), 3)
		If $UninstallString = "" Then $UninstallString = "Неизвестно"
		$URLInfoAbout	= StringStripWS(RegRead($UnInstKey & "\" & $AppKey, "URLInfoAbout"), 3)
		If $URLInfoAbout = "" Then $URLInfoAbout = "Неизвестно"
		$InstallDate	= WMIDateStringToDate(StringStripWS(RegRead($UnInstKey & "\" & $AppKey, "InstallDate"), 3))
		If StringIsAlNum($InstallDate) = 0 Then $InstallDate = "Неизвестно"
		$i += 1
		_AddToDB()
	WEnd
EndFunc

Func _OpenDB()
	_SQLite_Startup ()
	If @error > 0 Then
		MsgBox(16, "SQLite Ошибка", "SQLite.dll Не может быть загружен!")
		Exit - 1
	EndIf
	If NOT FileExists("inventory.db") Then
		$dbn=_SQLite_Open("inventory.db")
		If @error > 0 Then
			MsgBox(16, "SQLite Ошибка", "Не возможно открыть базу!")
			Exit - 1
		EndIf
		If Not _SQLite_Exec ($dbn, "CREATE TABLE SOFT (Название, Версия, Автор, Удаление, Сайт, Дата);") = $SQLITE_OK Then _
			MsgBox(16, "SQLite Ошибка", _SQLite_ErrMsg ())
	Else
		$dbn=_SQLite_Open("inventory.db")
	EndIf
EndFunc

Func _AddToDB()
	_SQLite_QuerySingleRow($dbn,"SELECT Название FROM SOFT WHERE Название='" & $DisplayName & "'", $retarr)
	If $retarr[0] <> "" Then
		If Not _SQLite_Exec($dbn,"UPDATE SOFT SET Версия='" & _
		$DisplayVersion & "', Автор='" & $Publisher & "',Удаление='" & $UninstallString & "',Сайт='" & _
		$URLInfoAbout & "',Дата='" & $InstallDate & "' WHERE Название='" & $DisplayName & "'") = $SQLITE_OK Then _
			MsgBox(16, "SQLite Ошибка", _SQLite_ErrMsg ())
	Else
		If Not _SQLite_Exec ($dbn, "INSERT INTO SOFT VALUES ('" & $DisplayName & "','" & _
		$DisplayVersion & "','" & $Publisher & "','" & _
		$UninstallString & "','" & $URLInfoAbout & "','" & $InstallDate & "');") = $SQLITE_OK Then _
			MsgBox(16, "SQLite Ошибка", _SQLite_ErrMsg ())
	EndIf
EndFunc

Func _ShowDB()
	$iRval = _SQLite_GetTable2d (-1, "SELECT * FROM SOFT;", $aResult, $iRows, $iColumns)
	If $iRval = $SQLITE_OK Then
;~ 		_SQLite_Display2DResult($aResult) ;показывает содержимое БД в консоли
		_ArrayDisplay($aResult)			  ;показывает содержимое БД в array-листе
	Else
		MsgBox(16, "SQLite Ошибка: " & $iRval, _SQLite_ErrMsg ())
	EndIf
EndFunc

Func _CloseDB()
	_SQLite_Close ()
	_SQLite_Shutdown ()
EndFunc

Func WMIDateStringToDate($dtmDate)
	Return (StringMid($dtmDate, 7, 2) & "/" & _
	StringMid($dtmDate, 5, 2) & "/" & StringLeft($dtmDate, 4) _
	& " " & StringMid($dtmDate, 9, 2) & ":" & StringMid($dtmDate, 11, 2) & ":" & StringMid($dtmDate,13, 2))
EndFunc