先安装ODBC驱动。
然后安装个SharpPlus SQLite Developer 用它就可以建立个sqlite数据库
插入数据测试
dim conn
dim connstr
dbpath="db" '数据库路径名
Set conn = CreateObject("ADODB.Connection") '定义对象
conn.ConnectionString = "DRIVER={SQLite3 ODBC Driver};Database=" & (dbpath) '连接驱动
conn.Open '打开操作
if Err Then
err.Clear
Set Conn = Nothing
msgbox "数据库连接出错,请检查数据库连接文件中的数据库参数设置。"
End If
dim rs
set rs=createobject("adodb.recordset")
dim sql,i
'sql="select id,uname,pwd,right from admin where id=0"
'rs.open sql,conn,3,3
Dim t1
t1=Timer
conn.BeginTrans ‘必须开启事物,如果不开启 或者用RS.ADDNEW 然后