Halloechen,
wieso wird das im catch-Block stehende me.close nicht behandelt?
Hab ich irgendetwas uebersehen?
Denn eigentlich sollte er bei klick auf No oder Cancel eine msgbox praesentieren und anschliessend das Programm beenden.
[highlight=vbnet]
Public Sub prv_read_lst()
Try
Dim SQLconnect As New SQLite.SQLiteConnection()
Dim SQLcommand As SQLiteCommand
SQLconnect.ConnectionString = "Data Source=" & fullpathDB & ";"
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
SQLcommand.CommandText = "SELECT * FROM realms"
Dim SQLreader As SQLiteDataReader = SQLcommand.ExecuteReader()
lst_records.Items.Clear()
While SQLreader.Read()
lst_records.Items.Add(String.Format("ID = {0}, Name = {1}, Description = {2}, Group = {3}, Address = {4}", SQLreader("id"), SQLreader("realm_name"), SQLreader("realm_desc"), SQLreader("realm_group"), SQLreader("realm_address")))
End While
SQLcommand.Dispose()
SQLconnect.Close()
Catch ex_readtable As SQLiteException
'Dim question_create As String
Dim response As MsgBoxResult
'"When this is not your first start of the program it would be nice when you could inform me about the error"
'
response = MsgBox("Is this your first time you run this program?" & vbCrLf & "Then we have to create a databasefile first. CLick [Yes] therefor", vbYesNoCancel)
If response = MsgBoxResult.Yes Then
MsgBox("create")
prv_createtable()
ElseIf response = MsgBoxResult.No Then
MsgBox("An error occured:" & vbCrLf & ex_readtable.Message & vbCrLf)
Me.Close()
ElseIf response = MsgBoxResult.Cancel Then
Me.Close()
End If
End Try
End Sub[/highlight]
wieso wird das im catch-Block stehende me.close nicht behandelt?
Hab ich irgendetwas uebersehen?
Denn eigentlich sollte er bei klick auf No oder Cancel eine msgbox praesentieren und anschliessend das Programm beenden.
[highlight=vbnet]
Public Sub prv_read_lst()
Try
Dim SQLconnect As New SQLite.SQLiteConnection()
Dim SQLcommand As SQLiteCommand
SQLconnect.ConnectionString = "Data Source=" & fullpathDB & ";"
SQLconnect.Open()
SQLcommand = SQLconnect.CreateCommand
SQLcommand.CommandText = "SELECT * FROM realms"
Dim SQLreader As SQLiteDataReader = SQLcommand.ExecuteReader()
lst_records.Items.Clear()
While SQLreader.Read()
lst_records.Items.Add(String.Format("ID = {0}, Name = {1}, Description = {2}, Group = {3}, Address = {4}", SQLreader("id"), SQLreader("realm_name"), SQLreader("realm_desc"), SQLreader("realm_group"), SQLreader("realm_address")))
End While
SQLcommand.Dispose()
SQLconnect.Close()
Catch ex_readtable As SQLiteException
'Dim question_create As String
Dim response As MsgBoxResult
'"When this is not your first start of the program it would be nice when you could inform me about the error"
'
response = MsgBox("Is this your first time you run this program?" & vbCrLf & "Then we have to create a databasefile first. CLick [Yes] therefor", vbYesNoCancel)
If response = MsgBoxResult.Yes Then
MsgBox("create")
prv_createtable()
ElseIf response = MsgBoxResult.No Then
MsgBox("An error occured:" & vbCrLf & ex_readtable.Message & vbCrLf)
Me.Close()
ElseIf response = MsgBoxResult.Cancel Then
Me.Close()
End If
End Try
End Sub[/highlight]
Comment