51Testing软件测试论坛

标题: 请教各位哥哥姐姐,一个关于数据库的问题 [打印本页]

作者: skyhen 时间: 2006-7-19 11:11
标题: 请教各位哥哥姐姐,一个关于数据库的问题
Dim res,cmd,sql
Set Res=createobject("adodb.recordset")
Set Cmd=createobject("adodb.command")
Cmd.activeconnection="DRIVER={Oracle in OraHome92};SERVER=CES79;UID=SYSTEM;PWD=SYSTEM;DBQ=CES79;DBA=W;APA=T;EXC=F;XSM=Default;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=Lo;BAM=IfAllSuccessful;MTS=F;MDI=Me;CSR=F;FWC=F;PFC=10;TLO=O;"
Cmd.CommandType = 1
sql="SELECT T_SYS_USER.USER_ID, T_SYS_USER.USER_NAME, T_SYS_USER.LOGIN_NAME, T_SYS_USER.FLAG_EMP, T_SYS_USER.USER_CRYPTOGRAM, T_SYS_USER.FLAG_LOCK, T_SYS_USER.FLAG_DEFINE, T_SYS_USER.IC_NO, T_SYS_USER.CONN_NUM, T_SYS_USER.FLAG_CHECK, T_SYS_USER.FLAG_ACTIVE, T_SYS_USER.FLAG_SA, T_SYS_USER.SHOW_ORDER, T_SYS_USER.POSITION_X, T_SYS_USER.POSITION_Y, T_SYS_USER.TYPE, T_SYS_USER.OA_USER_ID FROM SDDA_SH.T_SYS_USER T_SYS_USER WHERE T_SYS_USER.USER_ID=1"
Cmd.CommandText = sql
Set res = Cmd.Execute()
Set res = nothing
Set cmd.ActiveConnection = nothing
Set Cmd= nothing
请问以上的代码中,我怎样才能看到,我执行的语句的内容啊
请各位哥哥姐姐给点指导啊,小弟先在这里谢谢了

作者: xiaonan 时间: 2006-7-19 12:14
可以用msgbox Res("字段名")看

作者: yangkinki 时间: 2006-7-19 12:23
Cmd.CommandText = sql
Set res = Cmd.Execute()
msgbox Res("字段名")
Set res = nothing
Set cmd.ActiveConnection = nothing
Set Cmd= nothing

reporter.ReportEvent 0,"Fvalue", res("字段名") 在results中查看

作者: skyhen 时间: 2006-7-19 13:39
两位版主，你们的方法我都试过了，谢谢你们给我的指导。
但是小弟是想显示我执行的SQL语句的全部内容而不是一个字段，就好像能显示出来一张像表格一样的东西，请两位版主再给我点指导，小弟先谢谢了。

作者: xiaonan 时间: 2006-7-19 14:44
可以用个循环啊,从Res(0)到Res(...),然后打印到execl表或者文本文件里打印到文本文件里可能更简单点

作者: skyhen 时间: 2006-7-19 14:53
具体怎么写啊版主，小弟才刚学不久啊，请版主写一下，具体的步骤可以吗，谢谢了。

作者: xiaonan 时间: 2006-7-19 15:37
Dim fso, myfile,i
Set fso=CreateObject("Scripting.FileSystemObject")
Set myfile=fso.openTextFile("C:\result.txt",8,false)
While Not Res.eof
   for i=0 to 16
         myfile.writeline Res(i)
   next
   myfile.writeline " "
   Res.movenext
wend
myfile.close
在C盘根目录下建个result.txt文件.所有的字段信息都会写到这个文件里去.我数了一下,好象是17个字段对吗?我随手写的,自己再调试一下.

[ 本帖最后由 xiaonan 于 2006-7-20 13:36 编辑 ]

作者: skyhen 时间: 2006-7-20 12:53
谢谢版主，按照你的代码，我调试通过了，谢谢版主给小弟的指导。

作者: wwg1020 时间: 2006-7-20 13:22
版主果然厉害，顶一个！

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