Hiho, ich bins nochmal.
ich bin etwas verwirrt, habe 2 ähnliche funktionen, eine funktioniert, bei der anderen schmiert AutoIt ab, ich weiss aber nicht warum. kann mir wer helfen?
Funktion geht:
[autoit]Func _FileOpenDB()
$FileOpen = FileOpenDialog("Select File", @ScriptDir & "\", "DB (*.DB)", 3, "HD_Movie.DB")
If Not @error Then
_OpenDB($FileOpen)
Else
$DB = FileSaveDialog("Create New DB", @ScriptDir & "\", "DB (*.DB)", 18)
If @error Then
Exit
Else
_SQLite_Close ()
$DB_Handle = _SQLite_Open ($DB)
If @error > 0 Then
MsgBox(16, "SQLite Error", "Can't Load Database!")
Exit - 1
EndIf
_SQLite_Exec ( -1, "Create Table Movie_DB (Title, Location, Size, Video, Video2, Audio, Audio2, Codec, Extension, Jahr, Files);")
GUICtrlSetData($List, "")
$d = _SQLite_Exec(-1,"Select Title From Movie_DB","_InsertTitle")
EndIf
EndIf
EndFunc
Funktion geht nicht:
[autoit]Func _CreateDB()
$DB = FileSaveDialog("Create New DB", @ScriptDir & "\", "DB (*.DB)", 18)
If @error Then
Else
_SQLite_Close ()
$DB_Handle = _SQLite_Open ($DB)
If @error > 0 Then
MsgBox(16, "SQLite Error", "Can't Load Database!")
Else
_SQLite_Exec (-1, "Create Table DB (Title, Genre, Year, Location, Comment, Source, Resolution, Size, Codec, Extension, Audio, Language, Files, Rating, Icon);")
If Not @error Then
$PS = _Pathsplit1($DB)
GUICtrlSetData($List, "")
GUICtrlSetData($Input1, "Entrys: 0")
GUICtrlSetData($Input2, "DB loaded: " & $PS[5])
EndIf
EndIf
EndIf
EndFunc
hab ich was auf den augen?