作者:拍友2702933273 | 来源:互联网 | 2022-12-23 20:48
iamusingSQLite3ODBCDriverasmyconnectionstring,我使用SQLite3ODBC驱动程序作为我的连接字符串,DimconnAsA
i am using SQLite3 ODBC Driver as my connection string,
我使用SQLite3 ODBC驱动程序作为我的连接字符串,
Dim conn As ADODB.Connection
Set cOnn= New ADODB.Connection
Dim rs As New ADODB.Recordset
Set cOnn= New ADODB.Connection
conn.COnnectionString= "DRIVER=SQLite3 ODBC Driver;Database=test.db;LOngNames=0;Timeout=1000;NoTXN=0;SyncPragma=NORMAL;StepAPI=0;"
conn.Open
rs.Open "select * from Artists", conn, adOpenDynamic, adLockOptimistic
MsgBox rs.Fields(0)
2 个解决方案