Question

I am working with a SQL compact database and I am able to test the connection when I import it and copy the exact file path to my code, but it still says that it hasn’t been opened. What am I doing wrong? Are there any shortcuts available if I have already added the database to my project?

Thanks!

Imports System.Data.SqlServerCe 

Module Module1

Sub Main()

    Dim constring As String = "Data Source=C:\Users\test\Desktop\MyDatabase1.sdf"

    Dim conn As New SqlCeConnection(constring)

    Dim cmd As New SqlCeCommand("SELECT * FROM ACCOUNT")

    conn.Open()

    Dim reader As SqlCeDataReader = cmd.ExecuteReader()

    While reader.Read()
        Console.WriteLine(reader)
    End While


End Sub

End Module

Answer 1

You need to assign the connection to the command:

Immediately after this line:

conn.Open()

add:

cmd.Connection = conn

Alternatively, you can add the connection to the command’s constructor:

Dim cmd As New SqlCeCommand("SELECT * FROM ACCOUNT", conn)