get-dataview-control.ascx

来自「This is a book about vb.you could learn 」· ASCX 代码 · 共 37 行

<%@Control Language="VB"%>

<%@Import Namespace="System.Data" %>
<%@Import Namespace="System.Data.OleDb" %>

<script language="vb" runat="server">

Function GetDataView(ByVal strConnect As String, ByVal strSQL As String) As DataView

   'creates a DataView object based on a single table holding data specified
   'in the connection string and SQL statement provided as parameters

   Try

      'create a new Connection object using the connection string
      Dim objConnect As New OleDbConnection(strConnect)

      'create a new DataAdapter using the connection object and select statement
      Dim objDataAdapter As New OleDbDataAdapter(strSQL, objConnect)

      'create a new DataSet object to fill with data
      Dim objDataSet As New DataSet()

      'fill the dataset with data from the DataAdapter object
      objDataAdapter.Fill(objDataSet, "Books")

      Return objDataSet.Tables(0).DefaultView

   Catch objError As Exception

      Return Nothing

   End Try

End Function
</script>