conn.ascx

新闻发布系统

Dim sql,strConn as string
Dim myConn as OleDbConnection
Dim myCmd as OleDbCommand
strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.MapPath("./")&"data/news.mdb"
myConn=new OleDbConnection(strConn)

function getdatareader(sql as string) as OleDbDataReader
   myCmd=new OleDbCommand(sql,myConn)
   myConn.open()
   getdatareader=myCmd.ExecuteReader()
end function

function getdataview(sql as string,strTable as string) as DataView
   Dim myDataAdapter as OleDbDataAdapter
   Dim myDataSet As DataSet
   myConn.open()
   myDataAdapter=new OleDbDataAdapter(sql,myConn)
   myConn.close()
   myDataSet=new DataSet()
   myDataAdapter.Fill(myDataSet,strTable)
   getdataview=new DataView(myDataSet.Tables(strTable))
end function