请教高手：关于 sql2000的主键

Question

本地电脑的ms sql2000数据库，导出 到网络公司的服务器上，指定数据源、目的后，选择 
在sql server数据库之间复制对象和数据   在下一步，选项 中，选 复制主键和外键,
导出不成功！只能想其它 方案
1.打开服务器上的数据库，手工为每个表添加主键，每个表的主键都是ID字段，表很多，这样效率太慢
2。用一条命令，不知道是否有这样的命令，能将指定数据库下的所有表 的ID字段设为主键，

Answer 1

贴两个给你参考,自己改改
SELECT 
    表名=case when a.colorder=1 then d.name else '' end,
    表说明=case when a.colorder=1 then isnull(f.value,'') else '' end,
    字段序号=a.colorder,
    字段名=a.name,
    标识=case when COLUMNPROPERTY( a.id,a.name,'IsIdentity')=1 then '√'else '' end,
    主键=case when exists(SELECT 1 FROM sysobjects where xtype='PK' and parent_obj=a.id and name in (
        SELECT name FROM sysindexes WHERE indid in(
            SELECT indid FROM sysindexkeys WHERE id = a.id AND colid=a.colid
        ))) then '√' else '' end,
    类型=b.name,
    占用字节数=a.length,
    长度=COLUMNPROPERTY(a.id,a.name,'PRECISION'),
    小数位数=isnull(COLUMNPROPERTY(a.id,a.name,'Scale'),0),
    允许空=case when a.isnullable=1 then '√'else '' end,
    默认值=isnull(e.text,''),
    字段说明=isnull(g.[value],''),
    索引名称=isnull(h.索引名称,''),
    索引顺序=isnull(h.排序,'')
FROM syscolumns a
    left join systypes b on a.xtype=b.xusertype
    inner join sysobjects d on a.id=d.id  and d.xtype='U' and d.status>=0
    left join syscomments e on a.cdefault=e.id
    left join sysproperties g on a.id=g.id and a.colid=g.smallid  
    left join sysproperties f on d.id=f.id and f.smallid=0
    left join(--这部分是索引信息,如果要显示索引与表及字段的对应关系,可以只要此部分
        select 索引名称=a.name,c.id,d.colid
            ,排序=case indexkey_property(c.id,b.indid,b.keyno,'isdescending')
                when 1 then '降序' when 0 then '升序' end
        from sysindexes a
            join sysindexkeys b on a.id=b.id and a.indid=b.indid
            join (--这里的作用是有多个索引时,取索引号最小的那个
                select id,colid,indid=min(indid) from sysindexkeys
                group by id,colid) b1 on b.id=b1.id and b.colid=b1.colid and b.indid=b1.indid
            join sysobjects c on b.id=c.id and c.xtype='U' and c.status>=0
            join syscolumns d on b.id=d.id and b.colid=d.colid
        where a.indid not in(0,255)
    ) h on a.id=h.id and a.colid=h.colid
--where d.name='要查询的表'    --如果只查询指定表,加上此条件
order by a.id,a.colorder--索引信息--索引信息
select 索引名称=case when b.keyno=1 then a.name else '' end
    ,表名=case when b.keyno=1 then c.name else '' end
    ,列名=d.name
    ,排序=case indexkey_property(c.id,b.indid,b.keyno,'isdescending')
        when 1 then '降序' when 0 then '升序' end
    ,聚集=INDEXPROPERTY(c.id,a.name,'IsClustered')
    ,唯一=case INDEXPROPERTY(c.id,a.name,'IsUnique')
        when 0 then '非唯一'
        when 1 then case when e.id is null then '唯一索引' else '唯一约束' end
        end
    ,e.name
    ,填充因子=a.OrigFillFactor
from sysindexes a
    join sysindexkeys b on a.id=b.id and a.indid=b.indid
--    join (--这里的作用是有多个索引时,取索引号最小的那个
--        select id,colid,indid=min(indid) from sysindexkeys
--        group by id,colid) b1 on b.id=b1.id and b.colid=b1.colid and b.indid=b1.indid
    join sysobjects c on b.id=c.id and c.xtype='U' and c.status>=0
    join syscolumns d on b.id=d.id and b.colid=d.colid
    left join sysobjects e on b.indid=e.id and e.xtype='UQ'
where a.indid not in(0,255)
order by c.name,a.name