所属类别：.NET

文章作者：未知

特别推荐：免费发布信息 承包关键词~~抢爆了！^HOT!

Imports System.DataImports System.Data.SqlClientImports System.Data.SqlClient.SqlExceptionPublic Class connect Private s As String Private s1 As String Public Connect As New SqlConnection("server=Yiyang;database=KDERP;uid=sa;password=123") Sub New() Connect.Open() End Sub Public Property sql() Get Return s End Get Set(ByVal Value) s = Value End Set End Property 'Public Property table() ' Get ' Return s1 ' End Get ' Set(ByVal Value) ' s1 = Value 'End Property Public Function Retable() As DataTable Dim com As New DataSet() Dim ada As New SqlDataAdapter() Dim com1 As New SqlCommand() com1.Connection = Connect com1.CommandText = s ada.SelectCommand = com1 ada.Fill(com, "t1") Return com.Tables(0) End Function Public Function Exec() As Integer Dim i As Integer Dim com As New SqlCommand() com.CommandText = s com.Connection = Connect i = com.ExecuteNonQuery() Return i End Function Public Function Retdataset(ByVal t As String) As DataSet Dim com As New SqlCommand() com.Connection = Connect com.CommandText = s Dim ada As New SqlDataAdapter() ada.SelectCommand = com Dim da As New DataSet() ada.Fill(da, t) Return da End Function Public Function Retdataread() As SqlDataReader Dim com As New SqlCommand() com.Connection = Connect com.CommandText = s Return com.ExecuteReader End FunctionEnd Class关闭本页

....