判断MSSQL数据库中是否已经存在相同的表与字段

一、列出数据库里所有的表名
select name from sysobjects where type=U
二、列出表里的所有的字段名
select name from syscolumns where id=object_id(Table_Name)

<%

Function MSSQl_IsTable(Table_Name)
 Dim IsTable
 
 Set Rs=OpenRs("Select count(*) From sysobjects Where type='U' And name='"&Table_Name&"'")
 
 If Rs(0)=0 Then
  IsTable=False
 Else
  IsTable=True
 End If
 CloseRs(Rs)
 
 MSSQl_IsTable=IsTable
End Function

 

Function MSSQl_IsField(Table_Name,Field_Name)
 Dim IsField
 
 Set Rs=OpenRs("Select count(*) From syscolumns Where id=object_id('"&Table_Name&"') And name='"&Field_Name&"'")
 
 If Rs(0)=0 Then
  IsField=False
 Else
  IsField=True
 End If
 CloseRs(Rs)
 
 MSSQl_IsField=IsField
End Function

%>