77家的会客2010

Tag: TABLE | 记录数: 2
RPG中数组和DS使用方法总结

ARRAY
一 array与table的区别
        Array:可以使用下标,进行顺序访问或随即访问
        Table:不可以使用下标,只能顺序访问。只能以TABxxx开头。
        注:table虽然和array的功能相似,但是array要比table灵活很多。Table可以淘汰了,了解table的原因是维护老的代码时可能会用到。

二 array的类型和key word
        1有三种类型的array,分别是compile time array、run time array、pre-run time array。
        
        2与array相关的key word:
        DIM(number)         定义数组中元素的数量

asp取数据库中的表名
Weather:-5~0度,风好大的春天

<%'---------------读access库中的表名-------------------------
SET  Conn=Server.CreateObject("ADODB.Connection")
Conn.Open  "Driver={Microsoft Access Driver  (*.mdb)};DBQ="& Server.MapPath("库名称")
Set  rstSchema = Conn.OpenSchema(20)
  
Do Until  rstSchema.EOF
 Response.Write "Table name:"&  rstSchema(2)& "< br> "&  "Table type:"& rstSchema(3)& "<  br> < br> "
 rstSchema.MoveNext
Loop
%>
  <%'---------------读sql  server库中的表名-------------------------
SET  Conn=Server.CreateObject("ADODB.Connection")
Conn.Open  "Server=IP地址;Provider=sqloledb;Database=库名称;UID=用户名;PWD=密码;"
Set  rstSchema=Conn.OpenSchema(20)
  
Do Until  rstSchema.EOF
 Response.Write "Table name:"&  rstSchema(2)& "< br> "&  "Table type:"& rstSchema(3)& "<  br> < br> "
 rstSchema.MoveNext
Loop
%> 

  <%'---------------读oracle库中的表名-------------------------
SET  Conn=Server.CreateObject("ADODB.Connection")
Conn.Open  "Provider=MSDAORA.1;Password=密码;User ID=用户名;Data  Source=数据源名称"
Set  rstSchema=Conn.OpenSchema(20)
  
Do Until  rstSchema.EOF
 Response.Write "Table name:"&  rstSchema(2)& "< br> "&  "Table type:"& rstSchema(3)& "<  br> < br> "
 rstSchema.MoveNext
Loop

'Response.Write("所在数据库名:" & rs(0) & "
")
'Response.Write("所有者:" & rs(1) & "
")
'Response.Write("表 名:" & rs(2) & "
")
'Response.Write("表的类型:" & rs(3) & "
")
%>