搜索
您的当前位置:首页正文

Command 对象

来源:意榕旅游网
2007-05-17 10:27

Command 对象定义了将对数据源执行的命令,可以用于查询数据库表并返回一个记录集,也可以用于对数据库表进行添加、更改和删除操作。 一、使用Command 对象的步骤:

当在 ASP 页面中使用 Command 对象处理数据时,应首先设置命令类型、命令文本以及相关的活动数据库连接等,并通过 Parameter 对象传递命令参数,然后通过调用 Execute 方法来执行 SQL 语句或调用存储过程,以完成数据库记录的检索、添加、更改和删除任务。其步骤如下: 1、使用 ActiveCommand 属性设置相关的数据库连接; 2、使用 CommandType 属性设置命令类型;

3、使用 CommandText 属性定义命令(例如SQL语句)的可执行文本; 4、使用 CommandTimeout 属性设置命令超时时间; 5、使用 Execute 方法执行命令。 二、Command 对象的属性: 属性 描述/ 格式 / 注释 1、该属性表明指定的 Command 对象当前所属哪一个

Connection 对象。

2、该属性设置和返回包含了定义连接或 Connection 对象的字符串。

ActiveConnection 3、该属性为可读可写。

Setcmd.ActiveConnection=cnn

1、cmd :已定义的 Command 对象;2、cnn :要连接的 Connection 对象。

CommandType

该属性指定命令类型以优化性能,该属性可以设置和返回以下某个值:

1、adCmdText :表示处理的是一个 SQL 语句; 2、adCmdTable :表示处理的是一个表;

3、adCmdStoredProc :表示处理的是一个存储过程; 4、adCmdUnknow :表示不能识别,它是默认值。 如:cmd.CommandType=adCmdText

1、cmd :已定义的 Command 对象;2、adCmdText :表示处理的是一个 SQL 语句。

CommandText

该属性定义了将要发送给提供程序的命令文本。它可以设置和返回包含提供程序命令的字符串值,例如:SQL 查询语句、表名称或存储的过程调用。 cmd.CommandText=SQLString

1、cmd :已定义的 Command 对象;2、SQL 查询字符串(即一条 SQL 语句)。

CommandTimeout

该属性指定在终止尝试或产生错误之前执行命令期间需等待的时间(单位为秒)。默认值为30秒。

cmd.CommadnTimeout=N N:需要设置的秒数。

三、Command 对象的方法----Execute

该方法执行在 CommandText 属性中指定的查询。语法格式分为以下两种形式。

1、对于按行返回的 Command : Set

recordset=command.Execute(RecordsAffected,Parameters,Options) 2、对于不按行返回的 Command :

command.Execute RecordsAffected,Parameters,Options

其中参数 RecordsAffected 为提供程序返回操作所影响的记录数录。Rarameters 为使用 SQL 语句传送的参数值。Options 指示提供程序如何对 Command 对象的 CommandText 属性赋值。 四、使用 Parameters 集合

Command 对象具有由 Parameter 对象组成的 Parameters 集合,Parameter 对象代表与基于参数化查询或存储过程的 Command 对象相关联的参数或自变量。通过创建 Parameter 对象并添加到 Parameter 集合中,可以向参数化查询传递所需要的数据。使用 Parameter 集合的步骤如表下: 使用 Parameter 集合的步骤 步骤 描述 / 格式 / 注释

使用 CreateParameter 方法可以用指定的名称、类型、方向、大

小和值创建新的 Parameter 对象。

Set

parameter=command.CreateParameter(Name,Type,Direction,Size,Value)

其中参数Name 指定 Parameter 对象的名称。

Type 指定 Parameter 对象的数据类型,可以使用符号常量为其赋值。如:

1、 * adDate :表示日期值;

创建 * adInteger :表示4字节的带符号整数;

Paramet * adDecimal :具有固定精度和范围的精确数字值; er 对象 * adDouble :双精度浮点值;

* adVarChar :表示字符串值。

Direction 参数指定 Parameter 对象类型,可以设置或返回以下某个值:

* adParamInput :指定为输入参数(默认值); * adParamOutput :指定为输出参数;

* adParamInputOutput :指定为输入和输出参数; * adParamReturnValue :指定为返回值。

* Size 指定参数值最大长度,能字符或字节数为单位。 * Value 指定 Parameter 对象的值。

2、

将使用 Addend 方法将创建好的 Parameter 对象添加到 ParametParameters 集合中。 er对象添

comman.Parameters.Addend object

加到

paramet参数指定 Parameter 对象的名称。 ers 集合

3、 使用 Parameter 对象的 Value 对参数赋值。 给参PrmName.Value=ParameterValue 数赋值 参数 ParameterValue 为要赋给参数的值。

使用 Parameter 方法可以将 Parameter 对象从 Parameters 4、 集合中删除。 删除

Parameter.Delete Index

Paramet

er 对象 Index 参数指定要删除的 Parameter 对象的名称,或该对象在

Parameters 集合中的位置索引值。

五、Command 对象的应用实例

1、这是一个简单的员工基本情况管理系统,其功能有:1)、添加员工资料;2)、更改员工资料;3)、删除员工资料,检索员工资料。它包含着七个页面和一个数据库。分别为: 1)、主页面:index.asp 2)、添加数据页面:add.htm 3)、保存添加数据页面:add.asp 4)、更改数据页面:Update.asp 5)、保存更改数据页面:Update1.asp 6)、删除记录页面:Detele.asp 7)、检索员工资料页面:shousho.asp 8)、数据库:RSGL.mdb.用到该数据库中的”员工基本情况表“。 2、各页面的代码如下:

1)、主页面:index.asp。该页面的功能有:

a、创建两个对象,Connectiion对象和Recordset对象,其目的是连接数据库和返回一个记录集;

b、创建一个表格,使do while循环语句将各条记录在表格中显示出来; c、创建三个超连接,一个用以连接添加数据页面,另一个通过指定的员工姓名连接到更改数据页面,还有一个通过指定的员工姓名连接到删除页面。 <% @ Language=\"VBScript\" %>

员工基本情况管理系统 <%

'****************创建两个对象(连接对象、记录集对象)********************* dim cnn,rst

set cnn=Server.CreateObject(\"ADODB.Connection\") set rst=Server.CreateObject(\"ADODB.Recordset\") '指定连接字符串,

cnn.ConnectionString=\"PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source=\" & server.MapPath(\"../rsgl.mdb\") cnn.Open

sSQL=\"select * from 员工基本情况表\" 'rst.Open sSQL,cnn,1,1

set rst=cnn.Execute(sSQL,,adCmdText) %>

<%

'使用do while循环语句将各条记录显示出来。 do while Not rst.eof t1=rst(\"员工姓名\") t2=rst(\"所在部门\") t3=rst(\"家庭住址\") t4=rst(\"家庭电话\") t5=rst(\"Email\")

tt=\"

\" response.write tt rst.MoveNext loop

cnn.Close

Set cnn=Nothing %>

教职员工基本信息表

查询记录||添加记录
员工姓名所在部门家庭住址家庭电话Email状态
\" & t1 & \"\" &t2& \"\" &t3& \"\" &t4& \"\" &t5& \"\"

tt=tt & \"修改||删除

2)、添加数据页面:add.htm 。本页面由一个表单组成,其功能是向保存

添加数据页面(add.asp)提交数据。

添加记录

员工基本情况表
员工姓名:
所在部门:
家庭住址:
家庭电话:
Email:

3)、保存添加数据页面:add.asp。该页面的功能有:a)、使用Request对象获取从add.htm页面提交的值;b)、创建三个对象(连接对象、记录集对象和指令对象)和五个参数,通过调用参数执行INSERT插入命令。 <% @ Language=\"VBScript\" %>

添加记录

<%

'****************创建三个对象(连接对象、记录集对象和指令对象)和五个参数********************* dim cnn,rst,cmd

set cnn=Server.CreateObject(\"ADODB.Connection\") set rst=Server.CreateObject(\"ADODB.Recordset\") set cmd=Server.CreateObject(\"ADODB.Command\") '指定连接字符串,

cnn.ConnectionString=\"PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source=\" & server.MapPath(\"../rsgl.mdb\") cnn.Open

'设置ActiveConnection属性,使Command对象与打开的连接相关联 set cmd.ActiveConnection=cnn

'指定传送给数据提供者的命令文本是一条SQL语言。 cmd.CommandType=adCmdText

cmd.CommandText=\"INSERT INTO 员工基本情况表(员工姓名,所在部门,家庭住址,家庭电话,Email) values(?,?,?,?,?)\" '创建五个Parameter对象 set PrmName=cmd.CreateParameter(\"员工姓名\,adParamInput,10) set PrmDepartment=cmd.CreateParameter(\"所在部门\,adParamInput,10) set PrmAddr=cmd.CreateParameter(\"家庭住址\,adParamInput,12) set PrmTel=cmd.CreateParameter(\"家庭电话\,adParamInput,15) set

PrmEmail=cmd.CreateParameter(\"Email\,adParamInput,20)

'将parameter对象添加到Parameters集合中。 cmd.Parameters.Append prmName

cmd.Parameters.Append prmDepartment Cmd.Parameters.Append prmAddr Cmd.Parameters.Append prmTel Cmd.Parameters.Append prmEmail '使用表单值设置参数值

PrmName.Value=Request.Form(\"txtName\")

PrmDepartment.Value=Request.Form(\"txtDepartment\") PrmAddr.Value=Request.Form(\"txtAddr\") PrmTel.Value=Request.Form(\"txtTel\")

PrmEmail.Value=Request.Form(\"txtEmail\") '执行INSERT插入命令 cmd.Execute %>

员工基本情况表
员工姓名: <%=prmName.Value %>
所在部门:<%=prmDepartment.Value %>
家庭住址:<%=prmAddr.Value %>
家庭电话: <%=prmTel.Value %>
Email:<%=prmEmail.Value %>


 

记录添加成功!

返回记录添加表单||返回主页

4)、更改数据页面:Update.asp。该页面的功能有:a、创建两个对象,Connectiion对象和Recordset对象,其目的是连接数据库和返回一个记录集;b、创建一个表单,其目的是提交更改过的数据。

cnn.ConnectionString=\"PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source=\" & server.MapPath(\"../rsgl.mdb\") cnn.Open

sSQL=\"select * from 员工基本情况表 where 员工姓名='\" & a & \"'\" 'rst.Open sSQL,cnn,1,1

set rst=cnn.Execute(sSQL,,adCmdText) %>

更改记录

员工基本情况表
员工姓名: readonly>
所在部门:>
家庭住址:>
家庭电话:\")%>>
Email: >

5)、保存更改数据页面:Update2.asp。 该页面的功能有:a)、使用Request对象获取从Update.asp页面提交的值;b)、创建二个对象(连接对象、记录集对象);c)、通过表格显示更改后的记录。 <% @ Language=\"VBScript\" %> <%

'*****************从提交表单中提取数值*************************** Dim Name,Department,Addr,Tel,Email Name=Trim(Request.Form(\"txtName\"))

Department=Trim(Request.Form(\"txtDepartment\")) Addr=Trim(Request.Form(\"txtAddr\")) Tel=Trim(Request.Form(\"txtTel\"))

Email=Trim(Request.Form(\"txtEmail\")) %>

更改记录

<%

'****************创建二个对象(连接对象、记录集对象)********************* dim cnn,rst,cmd

set cnn=Server.CreateObject(\"ADODB.Connection\") set rst=Server.CreateObject(\"ADODB.Recordset\") '指定连接字符串,

cnn.ConnectionString=\"PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source=\" & server.MapPath(\"../rsgl.mdb\") cnn.Open

sSQL=\"update 员工基本情况表 set 所在部门='\" & Department & \"',家庭住址='\" & Addr & \"',家庭电话='\" & Tel & \"',Email='\" & Email & \"' where

员工姓名='\" & name & \"'\" rst.Open sSQL,cnn,1,2 set rst=nothing %>

员工基本情况表
员工姓名: <%=Name %>
所在部门: <%=Department %>
家庭住址: <%=Addr %>
家庭电话: <%=Tel %>
Email: <%=Email %>


记录更改成功!

返回首页

6)、删除数据页面:Detele.asp。 a)、使用Request对象获取要删除的员工姓名;b)、创建三个对象(连接对象、记录集对象和指令对象)和一个参数,通过参数指定的值删除记录;c)、给出删除成功提示框。 更改记录

<%

'****************创建三个对象(连接对象、记录集对象和指令对象)和一个参数********************* dim cnn,rst,cmd

set cnn=Server.CreateObject(\"ADODB.Connection\") set rst=Server.CreateObject(\"ADODB.Recordset\") set cmd=Server.CreateObject(\"ADODB.Command\") '指定连接字符串,

cnn.ConnectionString=\"PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source=\" & server.MapPath(\"../rsgl.mdb\") cnn.Open

'设置ActiveConnection属性,使Command对象与打开的连接相关联 set cmd.ActiveConnection=cnn

'指定传送给数据提供者的命令文本是一条SQL语言。 cmd.CommandType=adCmdText

cmd.CommandText=\"Delete from 员工基本情况表 where 员工姓名=? \" '创建一个Parameter对象 set PrmName=cmd.CreateParameter(\"员工姓名\,adParamInput,10)

'将parameter对象添加到Parameters集合中。 cmd.Parameters.Append prmName '使用表单值设置参数值 PrmName.Value=Name '执行Delete删除命令 cmd.Execute %>

 


记录删除成功!

返回主页

7)、检索员工资料页面 :shousho.asp。a)、使用一个列表框用以提交检索的条件;b)、创建三个对象(连接对象、记录集对象和指令对象)和一个参数,使用 Parameter 对象的 Value 属性将表单提交的值赋给参数;c)、使用for 循环语句将检索出的记录集中的每一条记录都通过表格显示出来。 <% @ Language=\"VBScript\" %>

使用参数化检索记录

查询各部门员工的基本情况

选择部门:

||返回主页

<%

'****************创建三个对象(连接对象、记录集对象和指令对象)和一个参数********************* dim cnn,rst,cmd,i

set cnn=Server.CreateObject(\"ADODB.Connection\") set rst=Server.CreateObject(\"ADODB.Recordset\") set cmd=Server.CreateObject(\"ADODB.Command\") '指定连接字符串,

cnn.ConnectionString=\"PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source=\" & server.MapPath(\"../rsgl.mdb\") cnn.Open

'创建一个Parameter对象 set PrmDepartment=cmd.CreateParameter(\"所在部门\,adParamInput,10)

'将Parameter对象添加到Prmameters集合中 cmd.Parameters.Append prmDepartment

'将用户提交的所在部门名称作为parameter对象的值

prmDepartment.Value=Request.Form(\"department\") '指定传送给数据提供者的命令文本是一条SQL语言。 cmd.CommandType=adCmdText

'设置ActiveConnection属性,使Command对象与打开的连接相关联 set cmd.ActiveConnection=cnn

'******如果没有提交所在部门名称,或选择所有部门,则显示所有记录,否则按参数进行查询。****************

if PrmDepartment.Value=\"\" or Request.Form(\"department\")=\"all\" then

cmd.CommandText=\"select * from 员工基本情况表\" Else

'便用参数化查询语句作为命令文本

cmd.CommandText=\"select * from 员工基本情况表 where 所在部门=?\" end if

'向服务器发送SQL语句并返回一个记录集 Set rst=cmd.Execute

'-----------如果记录集不存在,则显示一条提示信息,否则,列出符合条件的记录。---------- if rst.EOF then %>

没有找到符合条件的记录!

<% else %>

<% for i=0 to rst.Fields.Count-1 %>

<% next %>

<% while not rst.eof %>

<%

'用for循环语句列出某条记录的各字段的值。 for i=0 to rst.Fields.Count-1 '如果字段值为空,则显示一个空格 if IsNull(rst(i)) then %>

<% else %>

<% end if %> <% next %> <%

rst.MoveNext wend %>

<%=rst(i).Name %>
 <% =rst(i) %>

<% end if %>

asp的command对象的使用

作者:亮亮 日期:2008-06-18

字体大小: 小 中 大

1.创建数据库连接,并打开

程序代码

set cnn=Server.CreateObject(\"ADODB.Connection\")

cnn.ConnectionString=\"PROVIDER=Microsoft.jet.OLEDB.4.0;Data Source=\" &

server.MapPath(\"test.mdb\") cnn.Open

2.创建command 程序代码

set cmd=Server.CreateObject(\"ADODB.Command\") set cmd.ActiveConnection=cnn

3.设置CommandType类型,并设置执行语句即CommandText 说明:

adCmdText=1 :表示处理的是一个 SQL 语句; adCmdTable=2 :表示处理的是一个表;

adCmdStoredProc=4 :表示处理的是一个存储过程; adCmdUnknow=8 :表示不能识别,它是默认值。

commandText根据commandTyped的类型为SOL 语句、表名称或存储过程 程序代码

cmd.CommandType=1

cmd.CommandText=\"Insert INTO test(userName,userPass,userEmail,clicks) values(?,?,?,?)\" cmd.Prepared = true

对prepared的说明:Prepared 属性可返回或设置一个布尔值,如果设置为 True,则指示该命令应该保存查询的

一个准备好的(或已编译的)版本, 该查询是第一次执行 Command 对象前在 CommandText 属性中指定的。

这会降低命令的首次执行速度,但是在第一次执行执行后,provider 将使用已编译的版本,这样就可以加快 执行速度。

如果该属性为 False,提供者将直接执行 Command 对象而不创建编译版本。

如果提供者不支持命令准备,则一旦将此属性设置为 True,提供者便可能返回错误。如果它不返回错误,

则仅忽略准备命令的请求,并将 Prepared 属性设置为 False。

当然可不设置cmd.Prepared = true或cmd.Prepared = false

4.创建Parameter对象 说明:

Set objparameter=objcommand.CreateParameter(name,type,direction,size,value) name Parameter 对象的名称,和数据库字段对应

type Parameter 对象的数据类型,可以使用符号常量为其赋值 adDate=7 :表示日期值;

adInteger=3 :表示4字节的带符号整数;

adDecimal=14 :具有固定精度和范围的精确数字值; adDouble=5 :双精度浮点值; adVarChar=200 :表示字符串值。

direction Parameter对象的方向,可以设置或返回以下某个值 adParamInput=1 :指定为输入参数(默认值); adParamOutput=2 :指定为输出参数;

adParamInputOutput=3 :指定为输入和输出参数; adParamReturnValue=4 :指定为返回值。 Size 指定参数值最大长度,以字符或字节数为单位。 Value 指定 Parameter 对象的值。 程序代码

set un=cmd.CreateParameter(\"userName\ set up=cmd.CreateParameter(\"userPass\

set ue=cmd.CreateParameter(\"userEmail\ set uc=cmd.CreateParameter(\"clicks\

5.将parameter对象添加到Parameters集合中。 程序代码

cmd.Parameters.Append un cmd.Parameters.Append up

Cmd.Parameters.Append ue Cmd.Parameters.Append uc

当然,在4,5的步骤中你也可以这样写 程序代码

set un=cmd.CreateParameter(\"userName\ set up=cmd.CreateParameter(\"userPass\ set ue=cmd.CreateParameter(\"userEmail\ set uc=cmd.CreateParameter(\"clicks\ cmd.Parameters.Append un cmd.Parameters.Append up cmd.Parameters.Append ue cmd.Parameters.Append uc un.value=\"ljlyy\" up.value=\"123456\"

ue.value=\"ufngyfsdy@126.com\" uc.value=\"30\" 6.执行

cmd.Execute set cmd=nothing cnn.close set cnn=nothing

当然,若CommandText为普通的sql语句,没有输入输出参数,4,5的步骤可以省略。并且若cmd返回的是记录集,

在执行的时候可以直接set rs=cmd.Execute

ASP快速的批量更新之COMMAND (2006-03-06 15:53:29)

分类:学习

在知道这个之前也用过这个对象,只用过其对存储过程进行调用,没发现还有什么其它作用! 无聊看了看ASP简介才发现的!!不错!对很大的更新和很多字段处理有效果!!!! conn为一个连接对象 <%

set cm=server.CreateObject(\"adodb.command\") set cm.ActiveConnection=conn cm.CommandType=&H0001

cm.CommandText=\"insert into name_pass(name,pass)values(?,?)\" cm.parameters.append cm.createParameter(\"name\ cm.parameters.append cm.createParameter(\"pass\ for i=0 to 1000

cm(\"name\")=cstr(i) cm(\"pass\")=i cm.execute next %>

这样就省了重新编译SQL语句和连接字符串!!! 不错哦!!!

一般我是直接用conn.execute sql来进行更新的!!速度也很快!!小量的用这个也非常好!毕竟可以简单应用嘛!

因篇幅问题不能全部显示,请点此查看更多更全内容

Top