Public Sub Async_Exec(ByVal sqConnection As SQLiteConnection)
Dim sqCommand As New SQLiteCommand("SELECT * FROM Dept", sqConnection)
Console.WriteLine("Starting asynchronous retrieval of data...")
sqConnection.Open()
Dim cres As IAsyncResult = sqCommand.BeginExecuteReader(Nothing, Nothing, CommandBehavior.Default)
If cres.IsCompleted Then
Console.WriteLine("Completed.")
Else
Console.WriteLine("Have to wait for operation to complete...")
End If
Dim sqReader As SQLiteDataReader = sqCommand.EndExecuteReader(cres)
Try
While sqReader.Read()
Console.WriteLine(String.Concat(sqReader.GetInt32(0), " ", sqReader.GetString(1), " ", sqReader.GetString(2)))
End While
Finally
sqReader.Close()
sqConnection.Close()
End Try
End Sub