gettable.inc

来自「asp做的新闻系统」· INC 代码 · 共 14 行

<Script Language="VB" Runat="Server">
Function GetTable(ByVal strMDB As String,ByVal strTable As String)
  Dim strConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
  "Data Source=F:\dotNet\Chap7\" & strMDB
  Dim strComStr As String = "Select * From " & strTable
  Dim dscA As OleDBDataSetCommand = New
  OleDBDataSetCommand(strComStr,strConStr)
  Dim dsDataSet As DataSet = New DataSet()
  dscA.FillDataSet(dsDataSet, strTable)

  Return dsDataSet.Tables(strTable)
End Function
</SCRIPT>