|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
ASP是依赖组件的,能访问数据库的组件好多就有好多种,再有就是你微软的东西可是什么都要收钱的啊!会见 以下典范申明了会见分级 Recordset 中的行的所需步调:
authors 和 titleauthors 表中的 Recordset 对象经由过程 author ID 停止联系关系。
外轮回显示每一个作者的姓名、州/省别和身份。
每行所追加的 Recordset 都从 Fields 纠合停止检索并分派给 rstTitleAuthor。
内轮回显示追加的 Recordset 中每行的四个字段。
(StayInSync 属性是为了申明而设置为 FALSE 的,以便您可以在每次外轮回中显性地看见子集更改。然而,假如在步调 3 中的赋值被挪动到步调 2 第一行之前,典范将会更无效,所以赋值只履行一次。然后将 StayInSync 属性设为 TRUE,如许不管 rst 什么时候挪动到新行,rstTitleAuthor 都将隐性和主动地更改成响应的子集。)
典范
Sub datashape()
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim rstTitleAuthor As New ADODB.Recordset
cnn.Provider = "MSDataShape"
cnn.Open "Data Provider=MSDASQL;" & _
"DSN=vfox;uid=sa;pwd=vfox;database=pubs”
‘步调 1
rst.StayInSync = FALSE
rst.Open "SHAPE {select * from authors}
APPEND ({select * from titleauthor}
RELATE au_id TO au_id) AS chapTitleAuthor",
cnn
‘步调 2
While Not rst.EOF
Debug.Print rst("au_fname"), rst("au_lname"),
rst("state"), rst("au_id")
‘步调 3
Set rstTitleAuthor = rst("chapTitleAuthor").Value
‘步调 4
While Not rstTitleAuthor.EOF
Debug.Print rstTitleAuthor(0), rstTitleAuthor(1),
rstTitleAuthor(2), rstTitleAuthor(3)
rstTitleAuthor.MoveNext
Wend
rst.MoveNext
Wend
End Sub
外形语法格局
以下是创立 Shape 号令的标准语法。
必须的语法项为尖括号 (“<>”) 界定的文本字符串。
可选项由方括号 (“[ ]”) 界定。
任选其一项用竖线 (“|”) 离隔。
反复的可选项用省略号 (“...”) 暗示。
Alpha 暗示字母字符串。
Digit 暗示数字字符串。
Unicode-digit 暗示由 unicode 数字构成的字符串。
一切其他项目均为文字。
项目 界说
<shape-command>
SHAPE [<table-exp> ][[AS] <alias>]][<shape-action>]
<table-exp>
{<native-sql-statement>} |(<shape-command>) |
TABLE <quoted-name> |
<quoted-name>
<shape-action>
APPEND <aliased-field-list> | COMPUTE <aliased-field-list>
[BY <field-list> ][[AS] <alias>]]
<aliased-field-list>
<aliased-field> [, <aliased-field...]
<aliased-field>
<field-exp> [[AS] <alias>]
<field-exp>
(<relation-exp>) |<calculated-exp>
<relation_exp>
<table-exp> [[AS] <alias>] RELATE <relation-cond-list>
<relation-cond-list>
<relation-cond> [, <relation-cond>...]
<relation-cond>
<field-name> TO <child-ref>
<child-ref>
<field-name> | PARAMETER <param-ref>
<param-ref>
<number>
<field-list>
<field-name [, <field-name>]
<calculated-exp>
SUM(<qualified-field-name>) |AVG(<qualified-field-name>) |
MIN(<qualified-field-name>) |
MAX(<qualified-field-name>) |
COUNT(<alias> | <qualified-field-name>) |
STDEV(<qualified-field-name>) |
ANY(<qualified-field-name>) |
CALC(<expresion>)
<qualified-field-name>
<alias>.[<alias>...]<field-name>
<alias>
<quoted-name>
<field-name>
<quoted-name>
<quoted-name>
"<string>" | '<string>' |
[<string>] |
<name>
<name>
alpha [ alpha | digit | _ | # ...]
<number>
digit [digit...]
<string>
unicode-char [unicode-char...]
<expression>
Visual Basic for Applications 表达式,其操作数是不异行中其他非 CALC 列。
</p> ASP脚本是采用明文(plain text)方式来编写的。 |
|