5

我使用 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)
4

2 回答 2

3

请参阅此处了解连接字符串属性: http: //www.connectionstrings.com/sqlite

您还应该指定版本(3 或 2)。

编辑:尝试删除:LongNames=0;Timeout=1000;NoTXN=0;SyncPragma=NORMAL;StepAPI=0 并添加版本:version=3 如果有效,请尝试一次添加一个属性,直到它不会不再工作,以识别损坏的财产。

于 2010-09-15T07:21:22.707 回答
2

这些是可用的连接字符串选项SQLite3 ODBC Driver

Description=
Database=<<file_name>
Timeout=
StepAPI=0
SyncPragma=
NoTXN=0
ShortNames=0
LongNames=0
NoCreat=0
NoWCHAR=0
FKSupport=0
LoadExt=

我刚刚创建了一个系统 DSN 并查看了注册表HKLM\SOFTWARE\ODBC\ODBC.INI\<<my_dsn_here>>

于 2011-05-12T13:46:04.183 回答