我正在开发一个自 90 年代以来一直在使用的系统。它用 VB6 编写,最初设置为使用 Access 数据库和 JET 驱动程序。
现在,由于我们的客户在 Access DB 上遇到 2GB 的文件大小限制,我们正在考虑将所有内容都转换为 mySQL。
不幸的是,大约 5 年前编写的系统中的所有内容都使用这种类型的逻辑:
Dim rst As New ADODB.Recordset
rst.ActiveConnection = cnn
rst.Open "table"
rst.Index = "index"
rst.Seek Array("field1", "field2"), adSeekFirstEQ
rst!field1 = "something new"
rst.Update
较新的代码使用 SQL 命令,如 SELECT
、UPDATE
等。
因此,我们希望做的是为我们的客户分阶段引入新的 mySQL 数据库 - 让他们设置数据库,但使用所有旧代码。
问题是在使用 SQL 数据库时我不能使用 Index
...除此之外其他一切似乎都工作正常。
我收到错误:#3251: Current provider does not support the necessary interface for Index functionality.
有什么我想念的吗?在使用 SQL 时是否有另一种方法可以进行 Seek
以便我可以按索引排序?或者我是否必须进入并更改整个系统并删除所有 Seek
逻辑 - 它被使用了数千次?这对于我们所有的报告来说尤其是一个问题,我们可能有一个带有索引的表,其中 Col 1 排序为 ASC,Col 2 排序为 DESC,Col 3 再次为 ASC,我需要找到前 5 条记录,其中 列 1 = X
。否则你会怎么做?
最佳答案
因为,正如您发布的那样,数据库不支持 Seek 或 Index,就此而言,您有点不走运。
但是,如果您确实必须使用 seek/index,我建议将 SQL 查询的结果导入本地 .mdb 文件,然后使用它来生成记录集的工作方式与代码的其余部分预期的一样。
从性能的角度来看,这有点不好,老实说,从长远来看,替换所有的搜索和索引调用可能会更好,但至少它会节省你的编码时间。
要创建本地数据库,您可以这样做:
Function dimdbs(Temptable as String)
Dim tdfNew As TableDef
Dim prpLoop As Property
Dim strDbfullpath As String
Dim dbsn As Database
Dim idx As Index
Dim autofld As Field
'PARAMETERS: DBFULLPATH: FileName/Path of database to create
strDbfullpath = VBA.Environ$("TMP") & "\mydb.mdb"
If Dir(strDbfullpath) <> "" Then
Set dbsn = DBEngine.Workspaces(0).OpenDatabase(strDbfullpath)
Else
Set dbsn = DBEngine.CreateDatabase(strDbfullpath, dbLangGeneral)
End If
Set tdfNew = dbsn.CreateTableDef(Temptable)
With tdfNew
' Create fields and append them to the new TableDef
' object. This must be done before appending the
' TableDef object to the TableDefs collection of the
' database.
Set autofld = .CreateField("autonum", dbLong)
autofld.Attributes = dbAutoIncrField
.Fields.Append autofld
.Fields.Append .CreateField("foo", dbText, 3)
.Fields.Append .CreateField("bar", dbLong)
.Fields.Append .CreateField("foobar", dbText, 30)
.Fields("foobar").AllowZeroLength = True
Set idx = .CreateIndex("PrimaryKey")
idx.Fields.Append .CreateField("autonum")
idx.Unique = True
idx.Primary = True
.Indexes.Append idx
Debug.Print "Properties of new TableDef object " & _
"before appending to collection:"
' Enumerate Properties collection of new TableDef
' object.
For Each prpLoop In .Properties
On Error Resume Next
If prpLoop <> "" Then Debug.Print " " & _
prpLoop.Name & " = " & prpLoop
On Error GoTo 0
Next prpLoop
' Append the new TableDef object to the Northwind
' database.
If ObjectExists("Table", Temptable & "CompletedCourses", "Userdb") Then
dbsn.Execute "Delete * FROM " & Temptable & "CompletedCourses"
Else
dbsn.TableDefs.Append tdfNew
End If
Debug.Print "Properties of new TableDef object " & _
"after appending to collection:"
' Enumerate Properties collection of new TableDef
' object.
For Each prpLoop In .Properties
On Error Resume Next
If prpLoop <> "" Then Debug.Print " " & _
prpLoop.Name & " = " & prpLoop
On Error GoTo 0
Next prpLoop
End With
Set idx = Nothing
Set autofld = Nothing
End Function
要稍后查找和删除它,您可以使用以下命令:
Function DeleteAllTempTables(strTempString As String, Optional tmpdbname As String = "\mydb.mdb", Optional strpath As String = "%TMP%")
Dim dbs2 As Database
Dim t As dao.TableDef, I As Integer
Dim strDbfullpath
If strpath = "%TMP%" Then
strpath = VBA.Environ$("TMP")
End If
strDbfullpath = strpath & tmpdbname
If Dir(strDbfullpath) <> "" Then
Set dbs2 = DBEngine.Workspaces(0).OpenDatabase(strDbfullpath)
Else
Exit Function
End If
strTempString = strTempString & "*"
For I = dbs2.TableDefs.Count - 1 To 0 Step -1
Set t = dbs2.TableDefs(I)
If t.Name Like strTempString Then
dbs2.TableDefs.Delete t.Name
End If
Next I
dbs2.Close
End Function
要从 SQL 导入到该数据库,您必须获取记录集并使用 for 循环添加每条记录(除非它是固定的 ODBC 连接,我认为您可以直接导入,但我没有示例代码)
Dim formrst As New ADODB.recordset
Set mysqlconn = New ADODB.Connection
Dim dbsRst As recordset
Dim dbs As Database
'opens the ADODB connection to my database
Call openConnect(mysqlconn)
'calls the above function to create the temp database
'Temptable is defined as a form-level variable so it can be unique to this form
'and other forms/reports don't delete it
Call dimdbs(Temptable)
Me.RecordSource = "SELECT * FROM [" & Temptable & "] IN '" & VBA.Environ$("TMP") & "\mydb.mdb'"
Set dbs = DBEngine.Workspaces(0).OpenDatabase(VBA.Environ$("TMP") & "\mydb.mdb")
Set dbsRst = dbs.OpenRecordset(Temptable)
Set formrst.ActiveConnection = mysqlconn
Call Selectquery(formrst, strSQL & strwhere & SQLorderby, adLockReadOnly, adOpenForwardOnly)
With formrst
Do Until .EOF
dbsRst.AddNew
dbsRst!foo = !foo
dbsRst!bar = !bar
dbsRst!foobar = !foobar
dbsRst.Update
.MoveNext
Loop
.Close
End With
dbsRst.Close
Set dbsRst = Nothing
dbs.Close
Set formrst = Nothing
您必须在最后保存或关闭表单时重新导入数据,但至少只需要一个 SQL 语句,或者您可以直接使用 ODBC 连接来完成。
这远不是最佳选择,但至少您可以将所有这些代码放在一两个额外的函数调用中,并且不会干扰原始逻辑。
我必须非常感谢 Allen Browne,我从各个地方提取了这段代码,但我的大部分代码可能来自他的网站 (http://allenbrowne.com/),或者受到他的启发
关于mysql - 在 VB6 中连接到 MySQL ODBC 时使用 ADODB.Recordset.Index,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/20691519/