【图文实例】【原创】用VB.net操作SQLite数据库

Visual Studio 2017 社区版

64位 Windows 7系统

新建的解决方案基于.Net 4.5.0.0

 1 Imports System.Data.SQLite
 2 Public Class Form1
 3     Dim conn As SQLiteConnection
 4     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 5         If System.IO.File.Exists("test.db3") = True Then
 6             System.IO.File.Delete("test.db3")
 7         End If
 8         SQLiteConnection.CreateFile("test.db3")
 9         conn = New SQLiteConnection("Data Source=test.db3;Pooling=true;FailIfMissing=false")
10         If conn.State <> ConnectionState.Open Then
11             conn.Open()
12             MsgBox("打开成功！")
13         End If
14 
15         Dim cmd As New SQLiteCommand
16         cmd.Connection = conn
17         cmd.CommandText = "CREATE TABLE Test (ID INTEGER PRIMARY KEY,TestName VARCHAR(500),TestTime DateTime,Operator VARCHAR(100))"
18         Dim result As Integer = cmd.ExecuteNonQuery()
19         If result = 0 Then
20             MsgBox("成功")
21         Else
22             MsgBox("失败")
23         End If
24 
25         cmd = conn.CreateCommand()
26         cmd.CommandText = "insert into Test(TestName,TestTime,Operator)values(@Name,@TestTime,@Operator)"
27         cmd.Parameters.Add("@Name", Data.DbType.String).Value = "动静"
28         cmd.Parameters.Add("@TestTime", Data.DbType.DateTime).Value = Now()
29         cmd.Parameters.Add("@Operator", Data.DbType.String).Value = "peer"
30         result = cmd.ExecuteNonQuery()
31         If result <> 0 Then
32             MsgBox("插入成功")
33         End If
34         SelectShowInfo()
35 
36         ‘
37         cmd = conn.CreateCommand()
38         cmd.CommandText = "update  Test set TestName=‘动静1‘"
39         result = cmd.ExecuteNonQuery()
40         If result <> 0 Then
41             MsgBox("更新成功")
42         End If
43         SelectShowInfo()
44 
45         ‘
46 
47         cmd = conn.CreateCommand()
48         cmd.CommandText = "delete from Test"
49         result = cmd.ExecuteNonQuery()
50         If result <> 0 Then
51             MsgBox("删除成功")
52         End If
53         SelectShowInfo()
54 
55         cmd.Dispose()
56 
57         If conn.State = ConnectionState.Open Then
58             conn.Close()
59         End If
60     End Sub
61 
62     Public Sub SelectShowInfo()
63         Dim sa As New SQLiteDataAdapter("select * from Test", conn)
64         Dim ds As New System.Data.DataSet
65         sa.Fill(ds, "Test")
66         Dim mytable As New System.Data.DataTable
67         mytable = ds.Tables("Test")
68         Me.DataGridView1.DataSource = mytable
69         Me.DataGridView1.Refresh()
70     End Sub
71 End Class

System.DllNotFoundException:“无法加载 DLL“SQLite.Interop.dll”: 找不到指定的模块。

System.BadImageFormatException:“试图加载格式不正确的程序。