双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

【恭喜+放分】恭喜CSDN终于有VB6语法高亮了.现在终于名正言顺,扬眉吐气了~~~

2008-05-29 12:32:49 1.9k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

嗷嗷叫的老马墨衍会员 · AI 创作全网分发关注 + 加入社区

CSDN论坛回答给分计算器【附VB6源码】一个用VB编的能算出你问的问题应该给每个人多少分，适用于CSDN所有论坛，源码看不懂问我QQ：401619265 立即下载

爽.

这下不用再用VBS或VB.NET语法高亮了.....

终于成了正室了....

为此,特来散分!!

顺便整一些自己收藏的模块/类模块上来!

...全文

VB语法大全 VB基本语法，快速入门，开发学习，对VB的基本概念解析立即下载

嗷嗷叫的老马

非技术类 743 成员 26,904 内容

+ 关注 + 加入社区

评论 145

切换为时间正序

surgeon 2011-02-11

打赏
举报



set oConn=CreateObject("Adodb.connection")

oConn.open "driver={SQL server};Server=syyy,uid=chis,pwd=test,database=sychisdb"

Set rs=oConn.execute("select count(*) from zy_actpatient where ward=1700300")

str= "ICU一室现在有 " & rs(0) & " 个病人!" & vbcrlf & vbcrlf 

Set rs=oConn.execute("select name,sex,bed_no,balance,admiss_diag_str from zy_actpatient where ward=1700300 order by bed_no")

while not rs.eof

if rs(1)="1" then

str=str & rs(2) & trim(rs(0)) & "    男性      余额"  & rs(3)&"    "&rs(4) &vbcrlf & vbcrlf

else

str=str & rs(2) & trim(rs(0)) & "    女性      余额"  & rs(3)&"    "&rs(4) &vbcrlf & vbcrlf

end if

rs.movenext

Wend

msgbox str

Set oConn=Nothing

surgeon 2011-02-11

打赏
举报

set oConn=CreateObject("Adodb.connection")
oConn.open "driver={SQL server};Server=syyy,uid=chis,pwd=test,database=sychisdb"
Set rs=oConn.execute("select count(*) from zy_actpatient where ward=1700300")
str= "ICU一室现在有 " & rs(0) & " 个病人!" & vbcrlf & vbcrlf
Set rs=oConn.execute("select name,sex,bed_no,balance,admiss_diag_str from zy_actpatient where ward=1700300 order by bed_no")
while not rs.eof
if rs(1)="1" then
str=str & rs(2) & trim(rs(0)) & " 男性余额" & rs(3)&" "&rs(4) &vbcrlf & vbcrlf
else
str=str & rs(2) & trim(rs(0)) & " 女性余额" & rs(3)&" "&rs(4) &vbcrlf & vbcrlf
end if
rs.movenext
Wend
msgbox str
Set oConn=Nothing

zhangyedl 2008-07-25