书签 分享 收藏 举报 版权申诉 / 18

类型Command 对象.docx

  • 文档编号:29835276
  • 上传时间:2023-07-27
  • 格式:DOCX
  • 页数:18
  • 大小:27.52KB

  3)、保存添加数据页面:

add.asp。

该页面的功能有:

a)、使用Request对象获取从add.htm页面提交的值;b)、创建三个对象(连接对象、记录集对象和指令对象)和五个参数,通过调用参数执行INSERT插入命令。

<%@Language="VBScript"%>

添加记录

--#includevirtual="/adovbs.inc"-->

<%

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

dimcnn,rst,cmd

setcnn=Server.CreateObject("ADODB.Connection")

setrst=Server.CreateObject("ADODB.Recordset")

setcmd=Server.CreateObject("ADODB.Command")

'指定连接字符串,

cnn.ConnectionString="PROVIDER=Microsoft.jet.OLEDB.4.0;DataSource="&server.MapPath("../rsgl.mdb")

cnn.Open

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

setcmd.ActiveConnection=cnn

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

cmd.CommandType=adCmdText

cmd.CommandText="INSERTINTO员工基本情况表(员工姓名,所在部门,家庭住址,家庭电话,Email)values(?

?

?

?

?

)"

'创建五个Parameter对象

setPrmName=cmd.CreateParameter("员工姓名",adVarChar,adParamInput,10)

setPrmDepartment=cmd.CreateParameter("所在部门",adVarChar,adParamInput,10)

setPrmAddr=cmd.CreateParameter("家庭住址",adVarChar,adParamInput,12)

setPrmTel=cmd.CreateParameter("家庭电话",adVarChar,adParamInput,15)

setPrmEmail=cmd.CreateParameter("Email",adVarChar,adParamInput,20)

'将parameter对象添加到Parameters集合中。

cmd.Parameters.AppendprmName

cmd.Parameters.AppendprmDepartment

Cmd.Parameters.AppendprmAddr

Cmd.Parameters.AppendprmTel

Cmd.Parameters.AppendprmEmail

'使用表单值设置参数值

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;DataSource="&server.MapPath("../rsgl.mdb")

cnn.Open

sSQL="select*from员工基本情况表where员工姓名='"&a&"'"

'rst.OpensSQL,cnn,1,1

setrst=cnn.Execute(sSQL,,adCmdText)

%>

更改记录

--*****************创建一个表单****************************************-->

员工基本情况表

员工姓名:

readonly>

所在部门:

>

家庭住址:

>

家庭电话:

>

Email:

>

  5)、保存更改数据页面:

Update2.asp。

该页面的功能有:

a)、使用Request对象获取从Update.asp页面提交的值;b)、创建二个对象(连接对象、记录集对象);c)、通过表格显示更改后的记录。

<%@Language="VBScript"%>

<%

'*****************从提交表单中提取数值***************************

DimName,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"))

%>

更改记录

--#includevirtual="/adovbs.inc"-->

<%

'****************创建二个对象(连接对象、记录集对象)*********************

dimcnn,rst,cmd

setcnn=Server.C

配套讲稿:

如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。

特殊限制:

部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。

关 键  词:
Command 对象
提示  冰豆网所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。
关于本文
本文标题:Command 对象.docx
链接地址:https://www.bdocx.com/doc/29835276.html
关于我们 - 网站声明 - 网站地图 - 资源地图 - 友情链接 - 网站客服 - 联系我们

copyright@ 2008-2022 冰点文档网站版权所有

经营许可证编号:鄂ICP备2022015515号-1

收起
展开