请大家多多关照!
VBScript 中的SQL数据库文件读取
上一篇 /
下一篇 2009-03-19 15:14:20
/ 个人分类:脚本
Dim Cnn,Rst,strCnn
Set Cnn = CreateObject ( "ADODB.Connection“ )
Set Rst = CreateObject ( "ADODB.Recordset“ )
strCnn = "Provider=SQLOLEDB; User ID=sa;Password=sa; Data Source=localhost;Initial Catalog=pubs"
Cnn.Open strCnn
Rst.Open "Select * from authors",Cnn
Rst.MoveFirst
Do While Not Rst.EOF
MsgBox Trim(Rst.Fields("city"))
Rst.MoveNext
Loop
Rst.Close
Cnn.Close
Set Rst = Nothing
Set Cnn = Nothing
收藏
举报
TAG: