Ошибка экранным SQLite файл

Question

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

http://sqliteadmin.orbmu2k.de/

создать свой файл БД SQLite. Я создал его как файл db версии 3 sqlite.

Когда я иду, чтобы открыть соединение

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