我正在尝试使用VB.NET和SQLite创建应用程序,我使用SQLiteManager和 I HAVE SET ENCRYPTION TO THE DATABASE and THE PASSWORD IS SAME AS WHAT IN THE CONNECTION STRING 创建数据库和表 .
但是,当我试图将示例记录插入表时,它给出了一个错误 file is encrypted or is not a database
这是产生错误的代码示例 .
Using ConLite = OpenConLite()
Using LiteCmd As New SQLiteCommand
Dim TglWaktuSekarang As String = CurrentDateTime()
LiteCmd.CommandText = "INSERT INTO finger_stamp(emp_id,emp_name,date_time) VALUES('1','DIANA','" & TglWaktuSekarang & "')"
LiteCmd.CommandType = CommandType.Text
LiteCmd.Connection = ConLite
LiteCmd.ExecuteNonQuery()
End Using
End Using
这是我的连接代码
Public Function OpenConLite() As SQLiteConnection
Dim SQLiteCon As SQLiteConnection
Try
Dim ConLiteString As String = "Data Source=C:\SQLiteDB\attendance.sqlite;Version=3;Password=hahaha;"
SQLiteCon = New SQLiteConnection(ConLiteString) ' Connection DataSource
SQLiteCon.Open()
OpenConLite = SQLiteCon
Catch ex As Exception
OpenConLite = Nothing
MsgBox("Failed to connect to Database", MsgBoxStyle.Information, "Warning")
End Try
End Function