用ADox获得表的唯一索引

adox的功能据说很强大,但是我没感觉出来,因为我在asp下编写了很多程序,都运行不了。不知道什么原因,这里有一个程序可以获得唯一索引。可能有的朋友会做一些通用程序,也就是无论数据结构如何变化,程序不变,从数据录入,修改,删除,到数据检索。所有模块都是完全独立于数据库表的结构的。这样就需要获得该表的唯一索引。因为要通过唯一索引来标示当前要删改的是那条记录。如果一个表是正规的表的话,应该至少有一个唯一索引,因为表应该有主键,而主键就是唯一索引。我尝试用adox.key获得表的主键,出错!不知道什么原因。还有,我也尝试用index的primarykey来获得该索引是否为主键,但是无论什么索引,都返回true。无奈之下,只有通过判断其是否为unique。结果发现这种方法真的很好。只是最后程序返回的是一个由n(n>=1)个字段组成的字符串,中间用逗号(,)分隔开的。不过大多数的唯一索引都是有一个字段组成的。我们还可以根据需要判断这些字段的类型等信息。方然这个也不是获得唯一索引的唯一方法。通过数据连接的openschema方法打开一个模式查询,也可以获得一个表的主关键字,详细方法见 [?这里?] 。

connstr = "Provider=MSDAORA.1;User ID=liujincai;password=ljc1001;Data Source=hp1"
set AdoX = server.createobject("adox.catalog")
set fld = server.createobject("adox.column")
set tt=server.CreateObject("adox.table")
AdoX.ActiveConnection = connstr
set tt=adox.Tables("TB_HOUSE_MAIN")
set kk=server.CreateObject("adox.key")
set idx=server.CreateObject("adox.index")
Response.Write "Table:" & tt.Name
Response.Write " < TABLE border=1>
< TBODY>
< TR bgColor=#e0d0c0>
< TD>column name< /TD>
< TD>column type< /TD>
< TD>columnsize< /TD>< /TR>"
for i=0 to tt.Columns.count-1
set fld = tt.Columns(i)
lType = fld.Type
lSize = fld.DefinedSize
Response.Write " < TR bgColor=#f0e0d0>< TD>" &fld.Name & "< /TD>"
Response.Write ltype
Response.Write "< /TD>< TD>"
Response.Write lsize
Response.Write "< /TD>< /TR>"
next
Response.Write "< /TBODY>< /TABLE>"
cols=""
for i=0 to tt.Indexes.count-1
set idx=tt.Indexes(i)
if idx.Unique=true then
for j=0 to idx.Columns.count-1
cols=cols & "," & idx.Columns(j).Name
next
exit for
end if
next
if cols<>"" then
cols=mid(cols,2,len(cols)-1)
Response.Write "可唯一标示字段:"&cols

阅读更多
个人分类: ado
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

关闭
关闭
关闭