请教各位哥哥姐姐,一个关于数据库的问题

skyhen

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

可以用msgbox Res("字段名")看

yangkinki

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

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

xiaonan

可以用个循环啊,从Res(0)到Res(...),然后打印到execl表或者文本文件里打印到文本文件里可能更简单点

skyhen

具体怎么写啊版主，小弟才刚学不久啊，请版主写一下，具体的步骤可以吗，谢谢了。

xiaonan

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

谢谢版主，按照你的代码，我调试通过了，谢谢版主给小弟的指导。

wwg1020

版主果然厉害，顶一个！