VB中如何判断 sql数据库中的表是否已经存在？

select name from sysobjects where xtype='u' and name='table1'

如果有记录则存在,没有记录则不存在

<%

tablename="table1"

sql="select name from sysobjects where xtype='u' and name='"+tablename+"'"

rs.open sql,conn,0,1

if rs.eof then

response.write "不存在"

else

response.write "存在"

end if

%>

如果用ADO组件的话

select * from sysobjects where name='表名'。然后根据Recordset对象判断这个语句的返回值。我写详细点吧。

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

set conn=CreateObject("ADODB.Connection")

conn.open "数据库"

set cmd=CreateObject("ADODB.Command")

cmd.activeconnection=conn

cmd.commandtext="select * from sysobjects where name='表名'"

set rs=cmd.execute

if rs.eof and rs.bof '这说明没有你要找的表

cmd.commandtext="create tbale 表名(字段...)"

cmd.execute '创建表

else

exit sub

end if

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

当然有些细节要自己查查资料

---