解决一个.NET联接SQL的问题 yiyang（转贴）

来源：互联网发布：sqlserver union all 编辑：程序博客网时间：2024/06/05 15:56

解决一个.NET 联接 SQL的问题     yiyang（转贴）

关键字     .NET

出处     http://Ouynagouyang


Imports System.Data
Imports System.Data.SQLClient
Imports System.Data.SQLClient.SQLException
Public 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 Function
End Class

<script type="text/javascript"></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>