vb.net使用SQLite轻量级数据库

1、确保下载的SQLite动态链接库与您使用的平台相匹配，对于VB.net必须使用.NET Framework，这里选.NET Framework 2.0版本。SQLite动态链接库下载地址见本文后的注意事项。

2、Visual Studio中新建VB.net Windows窗体应用程序。

3、将下载的SQLite动态链接库文件拷贝到VB.net目标应用程序目录下，注意只需要System.Data.SQLite.dll和SQLite.Interop.dll这2个文件即可。

4、VB.net工程下，添加对System.Data.SQLite的引用，并导入System.Data.SQLite导入到命名空间。

5、设计前面板。这里作为示例，添加了1个标签用于显示数据库查询的内容，1个建表按钮、1个插记录按钮、1个改记录按钮、1个查记录按钮分别进行部分数据库操作。

6、编辑后面板。注意必须在全局声明中导入System.Data.SQLite命名空间；Form1_Load事件中，使用连接字符串建立VB.net和数据库文件之间的连接，具体语法如下：

Imports System.Data.SQLite

Imports System.IO

Public Class Form1

    Dim conn As New SQLiteConnection

    Dim sqlcmd As New SQLite.SQLiteCommand

    Dim sqlreader As SQLiteDataReader

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim S As String = Directory.GetCurrentDirectory & "\db"

        conn.ConnectionString = "Data Source=" & S

        conn.Open()

        sqlcmd.Connection = conn

    End Sub

End Class

7、建立数据库连接后，可以进行数据库操作，基本的套路就是写SQL语句，然后执行。像建表、插记录、改记录这类操作，是不需要返回数据的，所以用.ExecuteNonQuery()方法，而查记录操作，是需要返回数据的，必须用.ExecuteReader()方法返回数据给一个数据读取对象，然后使用.Read()方法读取一条记录，继而根据类型读取相应的变量。

示例：

    '建表

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 

        sqlcmd.CommandText = "CREATE TABLE TEST ( 工号 INT, 姓名 CHAR(10), 出生年月 DATETIME, 家庭住址 CHAR(100) )"

        sqlcmd.ExecuteNonQuery()

    End Sub

    '插记录

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        sqlcmd.CommandText = "INSERT INTO TEST VALUES ( 1, '张三', '1983-3', '山东省青岛市')"

        sqlcmd.ExecuteNonQuery()

    End Sub

    '改记录

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        sqlcmd.CommandText = "UPDATE TEST SET 家庭住址='山东省潍坊市' WHERE 姓名='张三'"

        sqlcmd.ExecuteNonQuery()

    End Sub

    '查记录

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        sqlcmd.CommandText = "SELECT * FROM TEST"

        sqlreader = sqlcmd.ExecuteReader

        sqlreader.Read()

        Label1.Text = "姓名：" & sqlreader.GetString(1) & vbCr & _

                      "工号：" & sqlreader.GetInt16(0) & vbCr & _

                      "出生年月：" & sqlreader.GetString(2) & vbCr & _

                      "家庭住址：" & sqlreader.GetString(3) & vbCr

    End Sub

8、为了方便调试，建议使用SQLite Studio管理工具随时查看数据库操作的过程。