我有一个VB6应用程序,我想检查phpmyadmin上的MySQL数据库中是否存在表。实际上,该表实际上是一个视图,但它应该完全像它自己的表一样。
我目前的代码经常返回false?
我认为我的问题可能与变量cnDataStoreToVerify有关,因为当我尝试打印其内容时,它只包含: "提供商= MSDASQL.1;" ?
非常感谢帮助!
Public Function TableExists(cnDataStoreToVerify As ADODB.Connection, strTableName as String) As Boolean
Dim recTemp As ADODB.Recordset
Set recTemp = cnDataStoreToVerify.OpenSchema(adSchemaTables, Array(Empty, Empty, StrTableName, Empty))
If Not recTemp.EOF Then
TableExists = True
End If
Exit_TableExists:
m_oADOUtils.CloseRecordsetADO recTemp
End Function