VB6中SQL Server与SQLite跨库查询报错：仅允许单条SQL语句

你遇到的问题根源在于SQLite的ODBC驱动不支持Access那种跨数据源的SELECT INTO语法，它无法直接识别并执行嵌套外部数据源的查询语句。需要换成分步骤的实现方式：先从SQL Server获取过滤后的数据，再在SQLite中创建对应表结构，最后将数据插入。

具体实现步骤及代码 #

1. 从SQL Server读取过滤后的数据

利用已建立的SQL Server连接cn执行查询，获取记录集：

Dim rsSqlServer As Recordset
Dim sqlSelect As String

' 构造SQL Server查询语句（带过滤条件）
sqlSelect = "SELECT * FROM dbo." & rsad.Fields("Table_Name") & filter
' 执行查询获取结果集
Set rsSqlServer = cn.Execute(sqlSelect, dbFailOnError)

2. 在SQLite中创建对应结构的空表

遍历SQL Server记录集的字段，映射SQL Server数据类型到SQLite类型，生成CREATE TABLE语句并执行：

Dim createTableSql As String
Dim fld As Field
Dim sqliteType As String

createTableSql = "CREATE TABLE " & rsad.Fields("Table_Name") & " ("
' 遍历字段生成表结构
For Each fld In rsSqlServer.Fields
    ' 映射SQL Server字段类型到SQLite兼容类型
    Select Case fld.Type
        Case dbInteger, dbLong, dbAutoIncr
            sqliteType = "INTEGER"
        Case dbSingle, dbDouble, dbCurrency
            sqliteType = "REAL"
        Case dbDate
            sqliteType = "TEXT" ' 也可使用DATETIME，根据需求选择
        Case dbText, dbMemo
            sqliteType = "TEXT"
        Case dbBoolean
            sqliteType = "INTEGER"
        Case Else
            sqliteType = "TEXT" ' 默认用TEXT兼容大部分类型
    End Select
    createTableSql = createTableSql & "[" & fld.Name & "] " & sqliteType & ","
Next
' 移除最后一个多余的逗号并闭合语句
createTableSql = Left(createTableSql, Len(createTableSql) - 1) & ")"
' 在SQLite中创建表
cnsqlite.Execute createTableSql, dbFailOnError

3. 将SQL Server数据插入SQLite表

使用参数化插入方式（避免SQL注入，同时处理空值）：

Dim insertSql As String
Dim cmd As Command
Set cmd = New Command
cmd.ActiveConnection = cnsqlite

' 构造INSERT语句
insertSql = "INSERT INTO " & rsad.Fields("Table_Name") & " ("
' 生成字段列表
For Each fld In rsSqlServer.Fields
    insertSql = insertSql & "[" & fld.Name & "],"
Next
insertSql = Left(insertSql, Len(insertSql) - 1) & ") VALUES ("
' 生成参数占位符
For Each fld In rsSqlServer.Fields
    insertSql = insertSql & "?,"
Next
insertSql = Left(insertSql, Len(insertSql) - 1) & ")"
cmd.CommandText = insertSql

' 开启事务提升插入效率（数据量大时建议使用）
cnsqlite.BeginTrans
' 遍历记录集插入数据
Do While Not rsSqlServer.EOF
    cmd.Parameters.Refresh
    Dim i As Integer
    For i = 0 To rsSqlServer.Fields.Count - 1
        If IsNull(rsSqlServer.Fields(i).Value) Then
            cmd.Parameters(i).Value = Null
        Else
            cmd.Parameters(i).Value = rsSqlServer.Fields(i).Value
        End If
    Next
    cmd.Execute dbFailOnError
    rsSqlServer.MoveNext
Loop
' 提交事务
cnsqlite.CommitTrans

' 清理对象
rsSqlServer.Close
Set rsSqlServer = Nothing
Set cmd = Nothing

关键说明 #

• SQLite的ODBC驱动对跨数据源查询的支持远不如Access，因此必须拆分操作步骤。
• 字段类型映射需要根据实际业务调整，确保数据精度不丢失。
• 批量插入时开启事务可以大幅提升效率，避免频繁提交造成的性能损耗。

内容的提问来源于stack exchange，提问作者Temur