逍遥爱迪生

Sqlite精简版驱动安装工具+VB读写Sqlite数据库演示SDK
介绍：支持32位、64位驱动可以同时装上
原版要5MB，绿化后只有940K

注意：（驱动安装好后请不要移动目录，移动前先卸载）

1. Dim Rs As ADODB.Recordset
   
2. Dim Conn As New ADODB.Connection
   
3. Dim Sql As String
   
4. 'Sql = " 创建用户表"
   
5. Sql = "CREATE TABLE users ( " _
   
6.     & "id INTEGER PRIMARY KEY AUTOINCREMENT, " _
   
7.     & "username TEXT NOT NULL UNIQUE," _
   
8.     & "email TEXT NOT NULL UNIQUE," _
   
9.     & "age INTEGER," _
   
10.     & "created_at TIMESTAMP DEFAULT CURRENT_TIMESTAMP);"
    
11. Conn.Open "Driver=SQLite3 ODBC Driver;Database=" & App.Path & "\YB2ToGL3.db"
    
12. MsgBox Conn.State
    
13. Conn.Execute Sql
    
14. 
    
15. sql = "INSERT INTO users (username, email, age) VALUES ('admin', 'pwd" & Timer & "', 40);"
    
16. Conn.Execute Sql
    
17. 
    
18. 
    
19. Set Rs = New ADODB.Recordset
    
20. Rs.Open "select * from users", Conn, 1, 3
    
21. MsgBox Rs.RecordCount

复制代码

戎马书生222

学习一下。。。。太牛了

逍遥爱迪生

好东西要一起分享

学号96637

大佬牛逼.....................

F9458808

感谢分享！