sap系统怎么查询OPEN的DO

MS Access数据库连接

用DSN连接并且没有用户名和密码：

<%

set conn=ServerCreateObject("ADODBConnection")

connopen "YourDSNName"

%>

用DSN连接并且有用户名和密码：

<%db="db/db1mdb"

Set conn = ServerCreateObject("ADODBConnection")

connstr="Provider=MicrosoftJetOLEDB40;Data Source=" & ServerMapPath(db)

ConnOpen connstr

%>

<%

set conn=ServerCreateObject("ADODBConnection")

connopen "YourDSNName","username","password"

%>

用实际的数据库绝对路径连接：

<%

Set conn=ServerCreateObject("ADODBConnection")

Strconn="DRIVER={Microsoft Access Driver (mdb)}; "

Strconn=Strconn & "DBQ=e:\yanhang\databasemdb"

connOpen Strconn

%>

用实际的数据库相对路径连接：

<%

Set conn=ServerCreateObject("ADODBConnection")

Strconn="DRIVER={Microsoft Access Driver (mdb)}; "

Strconn=Strconn & "DBQ=" & ServerMapPath("/database/yanhangmdb")

connOpen Strconn

%>

MS SQL Server数据库连接

用DSN连接：

<%

set conn=ServerCreateObject("ADODBConnection")

connopen "DSN=MyDSN;UID=user;PWD=password;DATABASE=databasename"

%>

不用DSN连接：

<%

Set conn=ServerCreateObject("ADODBConnection")

DSNtemp="DRIVER={SQL Server};SERVER=ServerName;UID=USER;PWD=password;DATABASE=databasename"

connopen DSNtemp

%>

FoxPro数据库连接

<%

Set Conn=ServerCreateObject("ADODBconnection")

ConnStr="Driver=Microsoft Visual Foxpro Driver; UID=userID;SourceType=DBC;SourceDB=C:\yanhang\databasedbc"

ConnOpen ConnStr

%>

Oracle数据库连接：

<%

set conn=servercreateobject("adodbconnection")

conncursorlocation=adUseClient

DSNTemp="Provider=MSDAORA1;Password=xxxxx;User ID=yanhang;Data Source=xxxworld"

connopen DSNtemp

%>

数据写入

……………………………………………………………………………………

<!--#include file="common/connasp"-->

<%

set rs=servercreateobject("adodbrecordset")

sql="select from online"

rsopen sql,conn,3,2

rsaddnew

rs("name")=request("name")

rs("Tel")=request("tel")

rs("fax")=request("fax")

rs("mail")=request("email")

rs("code")=request("zip")

rs("content")=request("contents")

rs("Address")=request("Address")

rsupdate

rsclose

%>

<script language="JavaScript">

alert("成功添加！！")

locationhref="backasp"

</script>

数据修改

……………………………………………………………………………………

<%

if request("action")="edit" then '判断是否修改

'取得表单传递的数据

member_name=Trim(RequestForm("member_name"))

member_pwd=Trim(RequestForm("member_pwd"))

question=Trim(RequestForm("question"))

answer=Trim(RequestForm("answer"))

realname=Trim(RequestForm("realname"))

sex=Trim(RequestForm("sex"))

zip=Trim(RequestForm("zip"))

address=Trim(RequestForm("address"))

tel=Trim(RequestForm("tel"))

fax=Trim(RequestForm("fax"))

mobile=Trim(RequestForm("mobile"))

email=Trim(RequestForm("email"))

web=Trim(RequestForm("web"))

vip=requestform("vip")

remark=Trim(RequestForm("remark"))

sql="select from member where m_id="&m_id

set rs=servercreateobject("adodbrecordset")

rsopen sql,conn,1,3

rs("member_name")=member_name

rs("answer")=answer

rs("question")=question

rs("member_pwd")=member_pwd

rs("realname")=realname

rs("sex")=sex

rs("zip")=zip

rs("tel")=tel

rs("mobile")=mobile

rs("fax")=fax

rs("address")=address

rs("email")=email

rs("web")=web

rs("vip")=vip

rs("remark")=remark

rsupdate

rsclose

set rs=nothing

call ok("资料修改成功！","edit_memberaspm_id="&m_id)

end if

%>

数据删除

……………………………………………………………………………………

<%

if Trim(RequestQueryString("action"))="del" then

ID = Trim(RequestQueryString("ID"))

set rs=servercreateobject("adodbrecordset")

sql="select from pay where ID ="&ID

rsopen sql,conn,1,3

rsdelete

rsclose

end if

%>

数据到期自动删除

……………………………………………………………………………………

<!--#include file="connasp"-->

<%

sql="delete from netCard where DateDiff('d',datetime,now)>15"

connexecute(sql)

%>

数据显示

……………………………………………………………………………………

<%

Lei="行业资讯" '设置显示信息类别

set rs=serverCreateObject("adodbRecordset")

sql="Select top 20 from News where Lei <> '"&Lei&"' order by ID desc"

rsopen sql,conn,1,1

if rseof then '判断数据库内有无信息，防止读取错误

%>

暂无信息!

<%

else

do while not rseof

%>

<%if len(rs("Title")) > 10 then Responsewrite left(rs("Title"),10)&"" else Responsewrite rs("Title") end if%>

<%

'循环显示数据

rsmovenext

loop

rsclose

set rs=nothing

end if%>

这些代码都是通过实践整理出来的，对新手非常的有用！

原定计划从本篇开始就要给大家介绍 ASP 内建的 ActiveX

组件 但是考虑到我们在往后的学习中将会接触到大量的数据库查询 因此作者临时决定花一到两篇的篇幅向大家简要介绍一些数据库查询语言的基本知识 这其实也是学习

ASP

所必须掌握的一门知识 是否能够灵活地运用数据库查询语言 将直接关系到

ASP 程序的执行效率等一系列问题 所以请各位务必重视

相信很多朋友都听说过 SQL

这个名字 如果你是计算机方面的行家 SQL

的大名一定是如雷贯耳 那么 SQL 究竟是什么呢SQL 一词实际上是

"Structured Query Language"

结构式查询语言的缩写 是用于对存放在计算机数据库中的数据进行组织 管理和检索的一种工具;是一种特定类型的数据库

关系数据库 而控制这种数据库的计算机程序就是我们常说的

DBMS 数据库管理系统 譬如 SQL Server Oracle Sybase DB

等等 当用户想要检索数据库中的数据时 就通过 SQL

语言发出请求 接着 DBMS 对该 SQL

请求进行处理并检索所要求的数据 最后将其返回给用户 此过程被称作为数据库查询 这也就是数据库查询语言这一名称的由来

SQL 并不是象 C COBOL 和 Fortran 语言那样的完整的计算机语言 SQL

没有用于条件测试的 IF 语句 也没有用于程序分支的 Goto

语句以及循环语句 For 或 Do 确切的讲 SQL 是一种数据库子语言 SQL

语句可以被嵌入到另一种语言中 从而使其具有数据库存取功能 SQL

也非严格的结构式语言 它的句法更接近英语语句 因此易于理解 大多数

SQL 语句都是直述其意 读起来就象自然语言一样明了 SQL

还是一种交互式查询语言 允许用户直接查询存储数据 利用这一交互特性 用户可以在很短的时间内回答相当复杂的问题 而同样问题若让程序员编写相应的报表程序则可能要用几个星期甚至更长时间

在大部分 ASP 应用程序中我们都会接触到数据库 而我们在编写

ASP 应用程序时用来进行数据库 *** 作的标准语法正是 SQL 因此 SQL

语法的重要性是不言而喻的 下面 我们就从最常用的 SQL 语句 SELECT

着手 一步一步地来学习 SQL

查询是 SQL 语言的核心 而用于表达 SQL 查询的 SELECT

语句则是功能最强也是最为复杂的 SQL

语句 它从数据库中检索数据 并将查询结果提供给用户 在本文中我们将建立一个名为

tianjiao 的简单数据库 该库中存放了一个叫 sales

的销售记录表 如下所示 :

姓名

性别

工资

销售目标

销售额

地区

书生

男

上海

吴冠军

男

北京

雷鸣

男

四川

雪儿

女

广州

顾一

男

大连

阿卓

女

天津

熠天

男

全国

在该表中有六列即六个字段 :

姓名 性别 工资 销售目标 销售额 地区 首先我们用 Select

语句列出姓名 销售目标和销售额 :

Select 姓名 销售目标 销售额 From sales

结果如下 :

姓名

销售目标

销售额

书生

吴冠军

雷鸣

雪儿

顾一

阿卓

熠天

然后 我们再列出所有男性的姓名 销售目标和销售额 :

Select 姓名 销售目标 销售额 From sales Where 性别 =" 男

"

结果如下 :

姓名

销售目标

销售额

书生

吴冠军

雷鸣

顾一

熠天

接下来 我们做一个相对复杂的查询 列出销售额大于销售目标的所有男性的姓名 销售目标和销售额 并且按销售目标排序

Select 姓名 销售目标 销售额

Form sales

Where 销售额 > 销售目标

And 性别 =" 男 "

Order By 销售目标

结果如下 :

姓名

销售目标

销售额

书生

雷鸣

顾一

熠天

大家可以看到 对于简单查询 SQL Select

语句和英文语法很相象 我们来分析一下 SELECT

语句的完整格式 它包括六个子句 其中 SELECT 和FROM

子句是必须的 其它子句可以任选 每个子句的功能如下 :

Select 子句列出所有要求 SELECT 语句检索的数据项 它放在

SELECT

语句开始处 指定此查询要检索的数据项 这些数据项通常用选择表表示 即一组用“ ”隔开的选择项 按照从左到右的顺序 每个选择项产生的一个列的查询结果 一个选择项可能是以下项目

( ) 列名 标识 FROM

子句指定表中的列 如果列名作为选择项 则 SQL

直接从数据库表中每行取出该列的值 再将其放在查询结果的相应行中

( ) 常数 指定在查询结果的每行中都放上该值

( ) SQL

表达式 说明必须将要放入查询结果中的值按表达式的规定进行计算

From 子句列出包含所要查询数据的表 它由关键字 FROM

后跟一组用逗号分开的表名组成 每个表明都代表一个包括该查询要检索数据的表 这些表称为此

SQL 语句的表源 因为查询结果都源于它们

Where 子句告诉 SQL

只查询某些行中的数据 这些行用搜索条件描述

Group By

子句指定汇总查询 即不是对每行产生一个查询结果 而是将相似的行进行分组 再对每组产生一个汇总结果

Having 子句告诉 SQL 只产生有 Group By

得到的某些组的结果 和 Where

子句一样 所需要的组也用一个搜索条件指定

Order By

子句将查询结果按一列或多列中的数据排序 如果省略此子句 则查询结果将是无序的

下面作者将提供一个简单但实用的运用 SQL 语句查询的 ASP

程序供大家参考

为了使大家更清楚更直接地了解 SQL 语法在 ASP

中的应用 我们先将查询的所有核心过程写成一个名为 query table 的SUB 然后利用

ASP 的服务器端包容功能调用该 SUB 请将以下语句剪贴到记事簿 保存为

subdBTable inc 文件 并置于虚拟目录 asptest 下:

< %

sub query table(inputquery)

set conntemp=server createobject("adodb connection")

conntemp open "DSN=Student;uid=student;pwd=aspmagic"

set rstemp=conntemp execute(inputquery)

howmanyfields=rstemp fields count

统计数据库中的列数

%>

< table border= >< tr>

< %

for I= to howmanyfields

%>

< td>< b>< %=rstemp(I) name%>< /B>< /TD>

< % next %>

< /tr>

< %

do while not rstemp eof

%>

< tr>

< % for I = to howmanyfields

thisvalue=rstemp(I)

If isnull(thisvalue) then

thisvalue="

如果字段为空 则将变量 thisvalue 的值定义为一个空格

end if%>

< td valign=top>< %=thisvalue%>< /td>

< % next %>

< /tr>

< %rstemp movenext

loop%>

< /table>

< %

rstemp close

set rstemp=nothing

conntemp close

set conntemp=nothingend sub%>

完成了 SUB 的定义过程 在下面几个 ASP

程序中我们只要加入想要使用的 SQL

查询语句 并调用该过程就可以非常方便的得到查询结果 将以下四段代码分别保存为

asp a asp asp b asp asp c asp asp d asp 四个 asp 文件

< HEAD>< TITLE>asp a asp< /TITLE>< /HEAD>

< HTML>< body bgcolor="#FFFFFF">

< %

call query table("select from publishers where name like A%% ")

将表 publishers 中所有姓名中有字母 A 的记录查询出来

%>

< ! #include virtual="/asptest/subdBTable inc" >< /BODY><

/HTML>

< HEAD>< TITLE>asp b asp< /TITLE>< /HEAD>< HTML><

body bgcolor="#FFFFFF">

< %

call query table("select from titles where Year_Published > = ")

将表 titles 中所有发表年份大于或等于 年的记录查询出来

%>

< ! #include virtual="/asptest/subdBTable inc" >< /BODY><

/HTML>

< HEAD>< TITLE>asp c asp< /TITLE>< /HEAD>< HTML><

body bgcolor="#FFFFFF">

< %

call query table("select from publishers where amount> and

sex= male ")

将表 publishers 中所有数量大于 且性别为男的记录查询出来

%>

< ! #include virtual="/asptest/subdBTable inc" >< /BODY><

/HTML>

< HEAD>< TITLE>asp d asp< /TITLE>< /HEAD>< HTML><

body bgcolor="#FFFFFF">

< %

call query table("select from publishers where state< > NY ")

将表 publishers 中所有所在城市不为纽约的记录查询出来

%>

< ! #include virtual="/asptest/subdBTable inc" >< /BODY><

/HTML>

利用 subdBTable inc 文件中的所定义的过程 query table 你就可以非常迅速地对数据库进行查询 你所要做的只是将“conntemp open

"DSN=Student;uid=student;pwd=aspmagic"”中的数据库名称 用户身份和密码稍加改动 并在调用

query table 时输入想要使用的 SQL 查询语句即可 是不是很简单

这就是 ASP 和 SQL 的魅力所在 !!!

今天 我们虽然用了一整篇的篇幅只学习了一个 SQL

指令 但请你相信你所获得远不同于一个 DOS 指令 SELECT

指令使得你可以非常容易地对数据库进行查询 或许在这之前你对数据库查询还一无所知 但是通过本篇的学习 你其实已经会使用

ASP 进行常用的数据库查询了 是不是很激动

lishixinzhi/Article/program/net/201311/14199

data s;

do id=1 to 99;

do j=1 to id;

ran=(248-((j-1)2))+(248-((j-1)02))rannor(j);

output;

end;

end;

run;

再套一个循环就好了，

宏程序的循环里面，id是作为宏变量~所以不会显示在数据集里面。

以上就是关于sap系统怎么查询OPEN的DO全部的内容，包括:sap系统怎么查询OPEN的DO、数据库的问题`~、数据库 *** 作等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！