介绍
你有没有试过从VBScript来访问Oracle实例吗?这是不是太复杂,
我们通常是通过Oracle目录下面的tnsnames.ora来访问数据库。
本文介绍了一种简单的不通过tnsnames.ora文件方法来访问Oracle实例。
所有你必须做的是使用不同的连接字符串。
下面是一部分代码
Dim strCon
strCon = "Driver={Microsoft ODBC for Oracle}; " & _
"CONNECTSTRING=(DESCRIPTION=" & _
"(ADDRESS=(PROTOCOL=TCP)" & _
"(HOST=mysrv)(PORT=7001))" & _
"(CONNECT_DATA=(SERVICE_NAME=MYDB))); uid=read;pwd=read;"
Dim oCon: Set oCon = WScript.CreateObject("ADODB.Connection")
Dim oRs: Set oRs = WScript.CreateObject("ADODB.Recordset")
oCon.Open strCon
Set oRs = oCon.Execute("SELECT field FROM table)
我希望您觉得这篇文章有用。
本文地址:http://www.xszlo.com/article/2012-12-01/7550.html,转发请保留这个地址,谢谢
你有没有试过从VBScript来访问Oracle实例吗?这是不是太复杂,
我们通常是通过Oracle目录下面的tnsnames.ora来访问数据库。
本文介绍了一种简单的不通过tnsnames.ora文件方法来访问Oracle实例。
所有你必须做的是使用不同的连接字符串。
下面是一部分代码
Dim strCon
strCon = "Driver={Microsoft ODBC for Oracle}; " & _
"CONNECTSTRING=(DESCRIPTION=" & _
"(ADDRESS=(PROTOCOL=TCP)" & _
"(HOST=mysrv)(PORT=7001))" & _
"(CONNECT_DATA=(SERVICE_NAME=MYDB))); uid=read;pwd=read;"
Dim oCon: Set oCon = WScript.CreateObject("ADODB.Connection")
Dim oRs: Set oRs = WScript.CreateObject("ADODB.Recordset")
oCon.Open strCon
Set oRs = oCon.Execute("SELECT field FROM table)
我希望您觉得这篇文章有用。
本文地址:http://www.xszlo.com/article/2012-12-01/7550.html,转发请保留这个地址,谢谢