Public Function myDropTable( strTableName As String)
On Error GoTo myError:
dev.Conn.Execute "DROP TABLE " & strTableName '可能出错的,如果表不存在.
Exit Function
myError:
Select Case Err.Number
Case 3371 '表不存在
Case Else
End Select
End Function
On Error GoTo myError:
dev.Conn.Execute "DROP TABLE " & strTableName '可能出错的,如果表不存在.
Exit Function
myError:
Select Case Err.Number
Case 3371 '表不存在
Case Else
End Select
End Function
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货