请高手指

服务器名为：server
数据库名为：person
在数据库中自己建立了3个表 “A”“B”“C”
请问：
1.用VB如何表达出数据库“persons”中 “表”的数量？
2.如何判断“persons”数据库中存不存 “D”数据库！
---------------------------------------------------------------

if object_id('persons..d') is null
print '没有'
else
print '有'
---------------------------------------------------------------

1.
use persons
select count(*) from sysobjects where OBJECTPROPERTY(id, N'IsUserTable') = 1
2.
use persons
if exists (select * from sysobjects where id = object_id(N'[dbo].[d]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
print '有'
else
print '没有'

---------------------------------------------------------------

1、use person
go

select count(*) from sysobjects where type='u'
2、if exists (select 1 from sysobjects where type='u' and name='d')
print '存在 “D”表'
else
print '不存在 “D”表'