private function IsExistTable(TableName as string) as boolean
dim a as new adodb.connection
on local error resume next
a.errors.clear
a.execute "Drop " & tablename,,,,adcmdtext
IsExistTable=iif(a.errors.count>0 ,false,true)
end function
dim a as new adodb.connection
on local error resume next
a.errors.clear
a.execute "Drop " & tablename,,,,adcmdtext
IsExistTable=iif(a.errors.count>0 ,false,true)
end function
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货