VBS 连Oracle数据库

可以使用 ADO（ActiveX Data Objects）技术连接 Oracle 数据库。以下是一个示例 VBS 脚本，用于连接 Oracle 数据库：

' 创建 ADO 对象
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")

' 连接到 Oracle 数据库
conn.ConnectionString = "Driver={Oracle in OraClient11g_home1};Dbq=mydatabase;Uid=myUsername;Pwd=myPassword;"
conn.Open

' 查询数据
rs.Open "SELECT * FROM myTable", conn

' 输出查询结果
Do While Not rs.EOF
    WScript.Echo rs.Fields("myField").Value
    rs.MoveNext
Loop

' 关闭连接
rs.Close
conn.Close

在连接字符串中，需要将 `mydatabase`、`myUsername` 和 `myPassword` 替换为实际的数据库名称、用户名和密码。同时，还需要根据实际的数据库驱动程序进行修改。在本例中，使用的是 Oracle 11g 的 ODBC 驱动程序。

相关问题

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` 替换为你实际使用的表名和列名。