component.vb

来自「Code for VB.NET教程源码 很好的源码」· VB 代码 · 共 29 行

Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration

Namespace Component

	Public Class Simple

		Public Sub New()
		End Sub

		Public Function LoadDataSet() As DataSet
		
			Dim myDataSet As New DataSet()
			Dim Sql As String = "select address, city, state from Authors"
			Dim myConn As New SqlConnection(ConfigurationSettings.AppSettings("DsnPubs"))
			Dim myAdapter As New SqlDataAdapter(Sql, myConn)
			myAdapter.Fill(myDataSet, "products")
			myConn.Close()
			Return myDataSet
		
		End Function
	
	End Class

End Namespace