51Testing软件测试论坛

标题: 一个测试例子的伪代码！ [打印本页]

作者: pcl2004_27 时间: 2005-8-22 14:18
标题: 一个测试例子的伪代码！
问题：如何把表Student中的学号，读入到StudentScoreDP中，这样才可以根据学号添加学生成绩档案？中间要求借助datapool!
两个表的结构！
“新增学生”模块所用表及字段如下图所示：
   Student
字段名称类型
学号 varchar
姓名 varchar
性别 varchar
年龄 int

“新增学生成绩档案”所用表及字段如下图所示：
   StudentScore
字段名称类型
学号 varchar
英语 varchar
化学 varchar
物理 varchar

我下边写了一个简单的实现代码！提供给大家参考

dim ACnn as object
dim BCnn as Object

Dim ARst as Object
Dim BRst as Object

dim AstrCnn as string
dim BstrCnn as string

Dim Result As Integer
Dim dp_id as Long
Dim dp_Result as Long

'datapool列名
dim 1 as string
dim 2 as string
。。。。。。。。。
dim x as string

set ACnn = CreateObject("Adodb.Connection")
set BCnn = CreateObject("Adodb.Connection")

set ARst = CreateObject("Adodb.Recordset")
set BRst = CreateObject("Adodb.Recordset")

AstrCnn="联接新增学生数据库字符串"
BstrCnn="联接新增学生成绩档案数据字符串"

ACnn.open AstrCnn
BCnn.open BstrCnn

ARst.open "select * from 新增学生表"，ACnn
BRst.Open "select * from 新增学生成绩档案",BCnn

ARst.movefirst

dp_id = SQADatapoolOpen ("dp", FALSE, SQA_DP_SEQUENTIAL, FALSE)
dp_Result = SQADatapoolFetch (dp_id)

While not ARst.eof

Brst.Fields("0") = ARst.Fields("0")  '两个表中的学号一致直接赋予第一个

dp_Result = SQADatapoolValue (dp_id, "列1", 1)
dp_Result = SQADatapoolValue (dp_id, "列2", 2)

Brst.Fields("1") = 1
Brst.Fields("2") = 2
。。。。。。。。。。
Brst.Fields("x") = x

dp_Result = SQADatapoolFetch (dp_id)


loop

ARst.close
Brst.Close

ACnn.close
BCnn.Close

set ARst =nothing
set BRst =nothing
set ACnn = nothing
set BCnn = nohhing

作者: gabriel 时间: 2005-8-22 17:41
very good!

作者: luoli 时间: 2005-8-30 22:55
标题: very good
very good

作者: ilovejolly 时间: 2005-8-30 23:00
顶一下，pcl大哥很久没来答疑了

作者: ls_xh 时间: 2005-9-14 14:56
好！！！
可以作为模板

作者: DontTest 时间: 2005-9-15 16:11
标题: 不错!
顺便提一下,当然有些多余,但对不熟悉ADO的兄弟可能有帮助.

ARst.movefirst是多余的;
应该有Brst.addnew, 以及Brst.update的语句.

Note:要用这个例子,ADO是要装的, 现在最新应该是2.7了吧.

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)