如何检查表是否存在?
使用 VB 6.0 和 ACCESS 2003
我的代码。
Cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "\iTDC-ACS.MDB"
Cn.Open
cmdCardEvent.ActiveConnection = Cn
cmd.ActiveConnection = Cn
cmdcardevent1.ActiveConnection = Cn
cmd.ActiveConnection = Cn
cmd.CommandText = "DROP TABLE tmp_cardevent"
cmd.Execute
cmd.CommandText = "drop table tmp_MOI"
cmd.Execute
在这里,我想检查表是否存在然后删除表,否则不需要。
如何检查表是否存在?
需要 VB 6 代码帮助?
最佳答案
把这个下面的函数放到一个公共(public)模块中。
调用函数的示例代码:
Dim result as boolean
result = IsExistingTable("c:\myFolder\myDatabase.mdb","myTableName")
If result Then
'Do something
Else
'Do something else.
Endif
功能
Public Function IsExistingTable( _
ByVal Database As String, _
ByVal TableName As String _
) As Boolean
Dim ConnectString As String
Dim ADOXConnection As Object
Dim ADODBConnection As Object
Dim Table As Variant
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;data source=" & Database
Set ADOXConnection = CreateObject("ADOX.Catalog")
Set ADODBConnection = CreateObject("ADODB.Connection")
ADODBConnection.Open ConnectString
ADOXConnection.ActiveConnection = ADODBConnection
For Each Table In ADOXConnection.Tables
If LCase(Table.Name) = LCase(TableName) Then
IsExistingTable = True
Exit For
End If
Next
ADODBConnection.Close
End Function
关于ms-access - 如何检查 Access 数据库中是否存在表?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/1083454/