数据库连接方法及数据集读取方法我已会,我想知道我是不是每次读数据都要重复写连接等代码
我想把这些代码放在一个动态库中来调用,可否?

解决方案 »

  1.   

    最好是把把连接和关闭连接的方法暴露出来
      

  2.   

    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
    ...