如何用VB *** 作SQLite数据库?

可能是ODBC方式，某些权限受到限制吧（比如不能查master表），这种方式我没用过，我现在是用vb.net，用connecting 、adapter 等访问的，这样好像没有遇到过问题。

例如：

Dim DataSource As String, sql As String

Dim conn As SQLite.SQLiteConnection

DataSource = Application.StartupPath + "\StoreExecl.db"

' //连接数据库

conn = New SQLite.SQLiteConnection()

Dim connstr As SQLite.SQLiteConnectionStringBuilder = New SQLite.SQLiteConnectionStringBuilder()

connstr.DataSource = DataSource

Try

conn.ConnectionString = connstr.ToString()

conn.Open()

Me.RTxt1.Text = "系统已连接本地数据库，成功！"

catch

endtry

1、打开代码窗口，添加引用：Imports System.Data.SqlClient。

2、输入以下代码：

“Public conn1  As SqlConnection = New SqlConnection _

("server=192.168.1.79Initial Catalog= studentUser ID= panqePWD=shentai768@")”，vb就已经成功连接sql数据库了。

3、代码详解：声明关键字Public（因为是全局变量，所以用Public 来声明）。

4、连接参数。

5、如果SQL 数据库就在本机，则用以下代码连接：

("server=.Integrated Security=FalseInitial Catalog= studentUser ID= panqePWD=shentai768@")。

6：如果代码太长，影响可读性，可以用空格加"_"后，回车换行。

装个sqlite的odbc驱动，然后跟连接其他数据库一样使用ADO连接就行了。

连接字符串是：Driver=SQLite3 ODBC DriverDatabase=数据库路径。

---