' VBS通过ODBC链接SQL
On Error Resume Next
' 1. 创建一个到数据库ADO连接
Dim oConn
Set oConn = WScript.CreateObject("ADODB.Connection")
oConn.ConnectionString = "provider=MSDASQL;DSN=test;"
oConn.CursorLocation = 3
' 2. 打开数据库连接
oConn.Open
' 3. 创建记录集
Dim ORecordSet
Set ORecordSet = oConn.Execute("select * from BookInfo")
' 4. 从记录集提取您需要的数据
MsgBox "共有记录: " & ORecordSet.RecordCount & " 条记录"
If (ORecordSet.RecordCount > 0) Then
ORecordSet.MoveFirst
While Not ORecordSet.EOF
MsgBox ORecordSet.Fields(0).Value & " " & ORecordSet.Fields(1).Value & " " & ORecordSet.Fields(2).Value & " " & ORecordSet.Fields(3).Value
ORecordSet.MoveNext
Wend
End If
' 5. 关闭记录集
Set ORecordSet = Nothing
' 6. 关闭连接
oConn.Close
Set oConn = Nothing
12-01
3268