1,216
社区成员
发帖
与我相关
我的任务
分享判断数据库中是否包含有某个表?
If Dir(App.Path + "/MDBdata.mdb" ) = "MDBdata.mdb" Then
是判断当前目录下是否存在MDBdata.mdb这个数据库文件，倘若我想知道此数据库
中是否包含有某个表，如何做？
用ＶＢ+ACCESS2000
是判断当前目录下是否存在MDBdata.mdb这个数据库文件，倘若我想知道此数据库
中是否包含有某个表，如何做？
用ＶＢ+ACCESS2000
...全文
请发表友善的回复…
发表回复
flyingZFX 2004-07-27
- 打赏
- 举报
使用错误处理方法判断，
Private Function IfTableExists(Byval TableName As String) As Boolen
On Error Goto Err1
dim Conn as New Adodb.Connection
sql="Select * From " & TableName
Conn.ConnectionStrings="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\XXXX.mdb"
Conn.Open
Conn.Execute Sql,,adCmdText
Exit Funtion
Err1:
IF Err.Number<>0 Then
Debug.Print Err.Descrption
End IF
End Function
Private Function IfTableExists(Byval TableName As String) As Boolen
On Error Goto Err1
dim Conn as New Adodb.Connection
sql="Select * From " & TableName
Conn.ConnectionStrings="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\XXXX.mdb"
Conn.Open
Conn.Execute Sql,,adCmdText
Exit Funtion
Err1:
IF Err.Number<>0 Then
Debug.Print Err.Descrption
End IF
End Function
