Sub Main()
myConnection = New SqlCeConnection("Data Source=C:\Users\Andy\Documents\uniapp5.sdf")
myConnection.Open()
Console.WriteLine("Connection Status: {0}", myConnection.State.ToString())
'run simple select query
Dim DataReader As SqlCeDataReader = Nothing
Query = New SqlCeCommand("Select * from Students JOIN Students_StudentRecord ON Students.StudentId = Students_StudentRecord.StudentId", myConnection)
DataReader = Query.ExecuteReader()
While DataReader.Read()
Console.WriteLine(DataReader("StudentId").ToString())
Console.WriteLine(DataReader("FirstName").ToString())
Console.WriteLine(DataReader("LastName").ToString())
Console.WriteLine(DataReader("ClassificationAwarded").ToString())
Console.WriteLine()
End While
Duration = DateTime.Now.Subtract(StartTime)
Console.WriteLine(String.Format("Query took {0} Seconds", Duration.TotalSeconds.ToString()))
Console.ReadLine()
' <--- First Query has finished executing and displaying at this point.
'close connection
myConnection.Close()
Console.WriteLine("Connection Status: {0}", myConnection.State.ToString())
Console.ReadKey()
End Sub