Ошибка доступа к файлу SQLite

Question

Я использовал

http://sqliteadmin.orbmu2k.de/

для создания моего файла базы данных sqlite.Я создал его как файл sqlite db версии 3.

Когда я открываю соединение

Dim Connection As New SQLite.SQLiteConnection(DATABASE_FILE_LOCATION)
Connection.Open()

Я получаю это исключение при вызове Open ()

«Открытый файл, который не является файлом базы данных, зашифрован или не является базой данных» (System.Data.SQLite.SQLiteException) Исключение Сообщение = «Открытый файл, который не является файлом базы данных \ r \ nfile, зашифрован или не является базой данных».", Exception Type =" System.Data.SQLite.SQLiteException "

В чем здесь проблема?Вот моя константа расположения файла:

Private Const DATABASE_FILE_LOCATION As String = "Data Source=C:\Users\Scott\Desktop\Projects\Funds\Program\BudgetManager\Main.s3db;Version=3;"

Answer 1

вы можете адаптировать этот c # к vb:

private void showTables()
{
   SQLiteConnection cn = new SQLiteConnection("Data Source=myDatabase.db3");
   try
   {
        cn.Open();
        cn.SetPassword("MyPassword");
        DataTable tables = cn.GetSchema("Tables");
        Console.WriteLine("I have {0} tables", tables.Rows.Count);
        cn.Close();
   }
   catch (SQLiteException ex)
   {
       Console.WriteLine(ex.ToString());
   }
}

Есть ли в вашей базе данных пароль? Вы можете указать базе данных, что у вас есть пароль, изменив строку:

SQLiteConnection cn = new 
SQLiteConnection("D:\Programming\Test\myDatabase.db3;Password=mypassword");

Всегда не забывайте дважды проверять, все ли установлено (http://sqlite.phxsoftware.com/), и у вас есть права на этот файл базы данных.

Если вы уверены, что файл не зашифрован, переустановите http://www.sqlite.org/cvstrac/wiki?p=ManagementTools

Answer 2

используйте этот код: - Этот код отлично работает для меня

Private Sub CreateDatabase()

    Dim con As SQLiteConnection
    Dim cmd As SQLiteCommand

    Try
        'Create a new database connection
 Dim CONNECTION_STR as String = "Data Source= yourdatabase.sqlite;Version=3;New=False;"
        con = New SQLiteConnection(CONNECTION_STR)

        'Open the connection
        con.Open()

        'Create a new SQL command
        cmd = con.CreateCommand()
        con.Close()
        MsgBox("Database Created Successfully")
    Finally
        'Cleanup and close the connection
        If Not IsNothing(con) Then
            con.Close()
        End If
    End Try

End Sub