oledbfunction.inc

来自「在线投票系统,上海水产大学信息学院我最喜爱老师评选活动」· INC 代码 · 共 13 行

<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<Script Languate="VB" Runat="Server">
  'strSQL 为 SQL 语句，FileName 为数据库文件名，TableName 为数据表名称。
  Function CreateDataSet(strSQL As String, FileName As String, TableName As String) As DataSet
    Dim ConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                               "Data Source=" & Server.MapPath(FileName)
    Dim objCmd As New OleDbDataAdapter(strSQL, ConnString)
    Dim DS As New DataSet()
    objCmd.Fill(DS, TableName)
    CreateDataSet = DS
  End Function
</Script>