16,553
社区成员
发帖
与我相关
我的任务
分享
Public Sub Conn()
Dim ss As String
' 指定连接字符串==〉0k
ss = "(DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=192.168.1.121)(PORT=1521)))(CONNECT_DATA=(SERVICE_NAME=GPRSSEV)))"
' 指定已经通过oracle client创建的 服务命名 ==> Ok
ss = "ORA_128"
' 使用odbc创建的数据源
ss = "orcl"
Dim myConnection As Data.OleDb.OleDbConnection
Dim myOracleDataAdapter As Data.OleDb.OleDbDataAdapter
'myConnection = New Data.OleDb.OleDbConnection("Provider=OraOLEDB.Oracle;Data Source=" + ss + ";user id=sa;password=sa")
myConnection = New Data.OleDb.OleDbConnection("Driver={Microsoft ODBC for Oracle};Server=" + ss + ";user id=sa;password=sa")
myOracleDataAdapter = New Data.OleDb.OleDbDataAdapter("select 'aa' from dual", myConnection)
Dim myDataSet As Data.DataSet = New Data.DataSet()
myOracleDataAdapter.Fill(myDataSet, "dual")
'Response.Write(txtName.Text + myDataSet.Tables("dual").Rows(0)(0))
End Sub
' ExecuteSQL 对象
Private cnnExecuteSQL As OracleClient.OracleConnection ' ExecuteSQL 数据库连接
Private cmdExecuteSQL As OracleClient.OracleCommand
' ExecuteSP 对象
Private cnnExecuteSP As OracleClient.OracleConnection ' ExecuteSP 数据库连接
Private cmdExecuteSP As OracleClient.OracleCommand
' RequerySQL 对象
Private cnnRequerySQL As OracleClient.OracleConnection ' RequerySQL 数据库连接
Private cmdRequerySQL As OracleClient.OracleCommand
Private dtaRequerySQL As OracleClient.OracleDataAdapter
' 创建 ExecuteSQL 对象
cnnExecuteSQL = New OracleClient.OracleConnection()
With cnnExecuteSQL
.ConnectionString = "DESCRIPTION=(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=192.168.1.121)(PORT=1521)))(CONNECT_DATA=(SERVICE_NAME=GPRSSEV)))"
'.Open()
'.Close()
End With
.....