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

嗷嗷叫的老马 2008-05-29 12:32:49
爽.

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

终于成了正室了....

为此,特来散分!!

顺便整一些自己收藏的模块/类模块上来!
...全文
1791 145 打赏 收藏 转发到动态 举报
写回复
用AI写文章
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
  • 打赏
  • 举报
回复
[CODE=C#]
using haha;
测试看看 不太会用
[/CODE]
zhangyedl 2008-07-25
  • 打赏
  • 举报
回复

public
还是不太会用
嗷嗷叫的老马 2008-06-20
  • 打赏
  • 举报
回复
好,这帖明天晚上结了它~~~~~
CathySun118 2008-06-20
  • 打赏
  • 举报
回复
cacar2008 2008-06-17
  • 打赏
  • 举报
回复
登分
QiaoDaLi 2008-06-17
  • 打赏
  • 举报
回复
学习老马的代码!!!!!!!
vansoft 2008-06-17
  • 打赏
  • 举报
回复
小妾升为正房了.
嗷嗷叫的老马 2008-06-16
  • 打赏
  • 举报
回复
好象还有些东西没发.....
hongqi162 2008-06-15
  • 打赏
  • 举报
回复
就像看天书一样
用户 昵称 2008-06-15
  • 打赏
  • 举报
回复
up一下
northwolves 2008-06-14
  • 打赏
  • 举报
回复
支持一下
zlybyq 2008-06-14
  • 打赏
  • 举报
回复
晕哦!我来得好晚哦!楼主,施舍点给我好不
zcqbit 2008-06-14
  • 打赏
  • 举报
回复
JJJ
  • 打赏
  • 举报
回复
接分.
aspd199 2008-06-12
  • 打赏
  • 举报
回复
不完全懂
evilboy_huang 2008-06-12
  • 打赏
  • 举报
回复
vansoft 2008-06-12
  • 打赏
  • 举报
回复
接分.
加载更多回复(125)

741

社区成员

发帖
与我相关
我的任务
社区描述
VB 版八卦、闲侃,联络感情地盘,禁广告帖、作业帖
社区管理员
  • 非技术类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧