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