如果是SQL Server,那麼可以這樣:
if not exists(select 1 from syscolumns where id = object_id('你的表名') and name = '想要增加的列名')
alter table 你的表名 add 想要增加的列名 int;

解决方案 »

  1.   

    不知道这样是不是笨了点        SQL = "Select * From Files Where Name='" & Trim(NewName.Text) & "'"
            rs.Open SQL, conn, adOpenStatic, adLockOptimistic
            If rs.EOF And rs.BOF Then
                Msgbox "记录不存在"
                '程序
            Else
                Msgbox "记录已存在"
                '程序
            End If
      

  2.   

    楼上的,根本不对。那是判断结果集是否为空。
    set rs=db.openrecordset("tablename",dbopenynaset)DAO的写法
    set rs=rs.open "tablename",conn,adOpenStatic, adLockOptimistic    ADO的写法
    for i = 0 to rs.fields.count-1
        if rs.fields(i).name="xxx"  then
            msgbox "已存在"
            exit for
        endif
    next i