Imports System.Data.SqlClient Public Class Class1 Dim scon As New SqlConnection("server=localhost;database=northwind;uid=sa;pwd=123")
'创建一个进行查询的过程 Public Function Emp_Sel(ByVal lastname As String) As DataSet scon.Open() scon.Close() '定义命令对象,并使用储存过程 Dim scom As New SqlCommand scom.CommandType = CommandType.StoredProcedure scom.CommandText = "Employess_Sel" scom.Connection = scon '定义一个数据适配器,并设置参数 Dim sda As New SqlDataAdapter(scom) sda.SelectCommand.Parameters.Add("@lastname", SqlDbType.NVarChar).Value = lastname '定义一个数据集对象,并填充数据集 Dim ds As New DataSet Try sda.Fill(ds) Catch ex As Exception End Try Return ds End Function End Class 四、引用中间数据层(类库)