try: Dim rs1 As Recordset, I As Integer Set rs1 = CurrentDb.OpenRecordset("SELECT * FROM tt") MsgBox rs1.Fields.Count ' 列 For I = 0 To rs1.Fields.Count - 1 If rs1.Fields(I).Attributes = 49 Then MsgBox "自动编号列ok" End If Next I Set rs1 = Nothing
用ADO获取的是90,不是49.... 90也不一定是主键
select * from dbo.syscolumns where id in (select id from dbo.sysobjects where xtype='u') and autoval is not null -------------------------------------我已经回答出你的问题了,50分因该药给我40分以上吧。
select t.name as 表名 ,c.name as 自增列 from dbo.syscolumns as c inner join dbo.sysobjects as t on c.id=t.id where t.xtype='u' and autoval is not null---------------------------------------------这样你可能更好理解。看到你50分都要给我了。呵呵。
Dim rs1 As Recordset, I As Integer
Set rs1 = CurrentDb.OpenRecordset("SELECT * FROM tt")
MsgBox rs1.Fields.Count ' 列
For I = 0 To rs1.Fields.Count - 1
If rs1.Fields(I).Attributes = 49 Then
MsgBox "自动编号列ok"
End If
Next I
Set rs1 = Nothing
90也不一定是主键
from
dbo.syscolumns
where
id in (select id from dbo.sysobjects where xtype='u') and
autoval is not null
-------------------------------------我已经回答出你的问题了,50分因该药给我40分以上吧。
t.name as 表名
,c.name as 自增列
from
dbo.syscolumns as c
inner join dbo.sysobjects as t on c.id=t.id
where
t.xtype='u'
and autoval is not null---------------------------------------------这样你可能更好理解。看到你50分都要给我了。呵呵。
eForm实际上就是一个构件库,它对大量实用的控件进行了结构化的封装和调试。通过简单的拖拉设置就可以实现控件所能实现的功能,从而大大减少了代码的编写和调试难度.
如果是ACCESS,使用wwwwb的方法
如果是SQL server,使用dagecc