VBS 连接sqlserver

BestBigMan

已于 2023-09-15 15:23:31 修改

阅读量473

点赞数

分类专栏： VBS 文章标签： sqlserver 数据库

于 2023-09-14 11:09:04 首次发布

本文链接：https://blog.csdn.net/qq_39585019/article/details/132871853

版权

VBS 专栏收录该内容

2 篇文章

订阅专栏

'创建连接对象
set oCon = createObject("adodb.connection")
'连接字符串
oCon.connectionString = "driver={sql server}; server=.;uid=sa;pwd=sa;dataBase=testdb"
'设置游标类型  其它类型会导致结果ors.recordcount返回-1
ocon.CursorLocation =3
'打开连接
oCon.open

'查询语句,可替换为插入 删除 更新语句
strSQL="select * from person"
'执行语句
Set oRs = ocon.Execute(strsql)
'结果执行行数
MsgBox(ors.recordcount)
'循环输出查询结果  非查询可不需要
If oRs.RecordCount > 0  Then 
	Do While (Not oRs.EOF)
     str=""
      for each field in ors.fields
		str=str&" "&field
        Next
        MsgBox(str)
		oRs.MoveNext
	Loop
End If 

'关闭查询结果
oRs.Close
Set oRs = Nothing
'关闭连接
oCon.close

MsgBox("close")