如何判断数据表中的某个字段是否存在？

Question

如何判断数据表中的某个字段是否存在？比如，要判断表tabel1中是否存在字段f1,如果不存在，再添加该字段，这个功能怎么实现呢？请指教！

Answer 1

sql server 2000,判斷某個表是否存在某個字段select * from syscolumns where name='字段名' and id=object_id('表名')

Answer 2

可以用错误来判断
On Error GoTo Err:
exit sub
err:
If Err.Number = 3265 Then MsgBox "字段不存在"
下面建造字段
resume next   '回到原错误的下面继续执行

Answer 3

用filter函数来查找。
Public mrc As ADODB.Recordset
mrc.open "select from....."
If mrc.RecordCount > 0 Then
 mrc.filter ="字段1="&text1.text
 if mrc.recoracount>0 then
  msgbox "输入重复"
 else 
  **输入结果**
 end if
end if

Answer 4

如果你是在ms-sql中作業,用 hdhai9451(Water Space--海洋空間) 提出的方法是比較理想的

Answer 5

看這個行不行:Dim Rs as new adodb.recordset
dim strSQL as string 
Dim Table As TableDef
Dim Field As Field
strsql="select * from syscolumns where name='字段名' and id=object_id('表名')"
With Rs
   .open strsql,connection,adOpenStatic ,adLockReadOnly 
   if .eof=true then
      Set Table = Database.CreateTableDef("表名") 
      Set Field = Table.CreateField("字段名", 字段類型, 長度)
      Table.Fields.Append Field   '添加到表中
   End if
End With
Rs.Close
Set Rs=Nothing