Chinaunix首页 | 论坛 | 博客
  • 博客访问: 423403
  • 博文数量: 148
  • 博客积分: 3191
  • 博客等级: 中校
  • 技术积分: 1232
  • 用 户 组: 普通用户
  • 注册时间: 2011-08-11 15:25
文章分类

全部博文(148)

文章存档

2011年(148)

我的朋友

分类: WINDOWS

2011-08-12 10:48:14

将以下内容用.vbs保存

 
 
 
'//数据库链接
 SqlConnString="Provider=SQLOLEDB;Server=192.168.3.1;Database=useran;UID=useran;PWD=userpassword"
 
 Set Conn = CreateObject("ADODB.Connection")
 Conn.open SqlConnString
 
 Set myRst = CreateObject("ADODB.Recordset")
 
 '//得到还没有处理的记录
 Strsql = "select count(*) from acou"
 myRst.Open Strsql,Conn,0,1
 
 If Not myRst.EOF Then msgbox("打开数据库成功,共计有" & myRst(0) & "条记录")
 myRst.close
 set myRst = nothing
 Conn.close
 set Conn = nothing
 
阅读(590) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~