<%@ Import Namespace="System.Data" %> <%@ Import Namespace="System.Data.SqlClient" %> <% Dim dstNorthwind As DataSet Dim conNorthwind As SqlConnection Dim dadNorthwind As SqlDataAdapter'Create the DataSet dstNorthwind = New DataSet()'Open database connection conNorthwind = New SqlConnection( "Server=nh;Database=Northwind;UID=sa;PWD=" ) conNorthwind.Open() 'Add two tables dadNorthwind = New SqlDataAdapter( "Select * From Categories", conNorthwind ) dadNorthwind.Fill( dstNorthwind, "Categories" ) dadNorthwind.SelectCommand = New SqlCommand("Select * From Products",conNorthwind ) dadNorthwind.Fill( dstNorthwind, "Products" ) 'Close the Connection conNorthwind.Close %> 取得其中一个datatable用dstNorthwind.Tables( "Categories" )
<%@ Import Namespace="System.Data.SqlClient" %>
<%
Dim dstNorthwind As DataSet
Dim conNorthwind As SqlConnection
Dim dadNorthwind As SqlDataAdapter'Create the DataSet
dstNorthwind = New DataSet()'Open database connection
conNorthwind = New SqlConnection( "Server=nh;Database=Northwind;UID=sa;PWD=" )
conNorthwind.Open()
'Add two tables
dadNorthwind = New SqlDataAdapter( "Select * From Categories", conNorthwind )
dadNorthwind.Fill( dstNorthwind, "Categories" )
dadNorthwind.SelectCommand = New SqlCommand("Select * From Products",conNorthwind )
dadNorthwind.Fill( dstNorthwind, "Products" )
'Close the Connection
conNorthwind.Close
%>
取得其中一个datatable用dstNorthwind.Tables( "Categories" )