Namespace DwSysNS 'Dowell System Name Space Public Class Cls_DwDbTrans 'Dowell Db Trans 多能数据库事务 Dim ConnRd, ConnVw As OleDbConnection Dim CmdRd As OleDbCommand Dim CmdVw, Dadt As OleDbDataAdapter Dim Ds As DataSet Dim ConnStr As String = "Provider=MSDAORA.1;Persist Security Info=False;Password=dowell98168;User ID=dw_transuser;" Dim index As String Public Function Sys_GetDataReader(ByVal selectsql As String) As OleDbDataReader Application("dw_aa") = "a" ConnRd = New OleDbConnection(ConnStr) CmdRd = New OleDbCommand(selectsql, ConnRd) ConnRd.Open() Return CmdRd.ExecuteReader(CommandBehavior.CloseConnection) End Function ...
Public Class Cls_DwDbTrans 'Dowell Db Trans 多能数据库事务
Dim ConnRd, ConnVw As OleDbConnection
Dim CmdRd As OleDbCommand
Dim CmdVw, Dadt As OleDbDataAdapter
Dim Ds As DataSet
Dim ConnStr As String = "Provider=MSDAORA.1;Persist Security Info=False;Password=dowell98168;User ID=dw_transuser;"
Dim index As String Public Function Sys_GetDataReader(ByVal selectsql As String) As OleDbDataReader
Application("dw_aa") = "a"
ConnRd = New OleDbConnection(ConnStr)
CmdRd = New OleDbCommand(selectsql, ConnRd)
ConnRd.Open()
Return CmdRd.ExecuteReader(CommandBehavior.CloseConnection)
End Function
...