VBS写一个OraCLE数据库的例子

以下是一个使用 VBS 连接 Oracle 数据库并执行查询的示例：

Set objConnection = CreateObject("ADODB.Connection")
Set objRecordset = CreateObject("ADODB.Recordset")

' 连接 Oracle 数据库
objConnection.ConnectionString = "Provider=OraOLEDB.Oracle;Data Source=ORCL;User Id=myUsername;Password=myPassword;"
objConnection.Open

' 执行查询
objRecordset.Open "SELECT * FROM myTable", objConnection

' 输出结果
If Not objRecordset.EOF Then
  Do Until objRecordset.EOF
    WScript.Echo objRecordset.Fields("myColumn1").Value & " " & objRecordset.Fields("myColumn2").Value
    objRecordset.MoveNext
  Loop
End If

' 关闭连接
objRecordset.Close
objConnection.Close

在上面的示例中，我们使用了 `ADODB.Connection` 和 `ADODB.Recordset` 对象来连接 Oracle 数据库并执行查询。请注意，你需要将 `Data Source`、`User Id` 和 `Password` 替换为你实际使用的数据库信息。同时，你需要将 `myTable` 和 `myColumn1`、`myColumn2` 替换为你实际使用的表名和列名。