SQLite3 ODBC 驱动程序出现 VB6 错误

发布于 2024-07-16 17:04:31 字数 566 浏览 6 评论 0原文

我正在使用 SQLite ODBC 驱动程序（从这里 http://www.ch-werner.de/sqliteodbc /）与我的 VB6 应用程序。就检索和保存数据而言，一切工作正常，但是，如果我尝试通过以下命令获取表列的列表：

pragma table_info (myTableName)

ADO 调用失败并出现 2 个错误（在 Connection.Errors 属性中找到）

错误 #1：描述： “多步 OLE DB 操作生成错误。检查每个 OLE DB 状态值（如果可用）。未完成任何工作。” : String : cMisDataLayer.ExecuteRecordset

错误#2：描述：“提供程序不支持该属性。” : String : cMisDataLayer.ExecuteRecordset

我的问题是为什么我会收到此错误，是否有解决方法来获取 SQLite 中表的列列表？

谢谢。

原文

I am using an SQLite ODBC Driver (from here http://www.ch-werner.de/sqliteodbc/) with my VB6 application. Everything works fine, as far as retrieving and saving data, however, if I try to get the list of table columns via the following command:

pragma table_info (myTableName)

The ADO call fails with 2 errors (found in Connection.Errors property)

Error #1: Description : "Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done." : String : cMisDataLayer.ExecuteRecordset

Error #2: Description : "Provider does not support the property." : String : cMisDataLayer.ExecuteRecordset

My question is why am I getting this error and is there a workaround to getting the column list for a table in SQLite?

Thanks.

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

夜血缘 2024-07-23 17:04:31

为什么不直接使用 ADO RecordSet Fields 集合？只需执行 SELECT * FROM table WHERE 1=0 即可。当 ADO 获取结果集时，它也会返回所有列信息。

Private Sub cmdTest_Click()

   Dim conTest As ADODB.Connection
   Dim cmdTest As ADODB.Command
   Dim rstResults As ADODB.Recordset
   Dim fldCurrent As ADODB.Field

   Set conTest = New ADODB.Connection
   conTest.ConnectionString = "whatever your connection string is"
   conTest.Open

   Set cmdTest = New ADODB.Command
   cmdTest.CommandType = adCmdText
   cmdTest.CommandTimeout = 30
   cmdTest.CommandText = "SELECT * FROM myTableName WHERE 1=0"

   cmdTest.ActiveConnection = conTest
   Set rstResults = cmdTest.Execute()

   For Each fldCurrent In rstResults.Fields

      Debug.Print fldCurrent.Name & " " & CStr(fldCurrent.Type)

   Next fldCurrent

End Sub

Why not just use the ADO RecordSet Fields collection? Just do a SELECT * FROM table WHERE 1=0. When ADO gets a resultset it returns all the column information as well.

Private Sub cmdTest_Click()

   Dim conTest As ADODB.Connection
   Dim cmdTest As ADODB.Command
   Dim rstResults As ADODB.Recordset
   Dim fldCurrent As ADODB.Field

   Set conTest = New ADODB.Connection
   conTest.ConnectionString = "whatever your connection string is"
   conTest.Open

   Set cmdTest = New ADODB.Command
   cmdTest.CommandType = adCmdText
   cmdTest.CommandTimeout = 30
   cmdTest.CommandText = "SELECT * FROM myTableName WHERE 1=0"

   cmdTest.ActiveConnection = conTest
   Set rstResults = cmdTest.Execute()

   For Each fldCurrent In rstResults.Fields

      Debug.Print fldCurrent.Name & " " & CStr(fldCurrent.Type)

   Next fldCurrent

End Sub

回复收藏 0 原文