希望大家喜欢

[wanggang668]

Imports System.Data
Imports System.Data.SqlClient

Public Class ConnDatabase
Private Function GetConnString() As String
Dim myConn As String = "Server=.;User ID=sa;Password=1111;Database=music"
Return myConn
End Function
Private Function CarateCommand(ByVal Sql As String, ByVal Param() As SqlParameter, ByVal SqlCmdType As CommandType) As SqlCommand
Dim myConn As New SqlConnection(GetConnString())
Dim myCommand As New SqlCommand(Sql, myConn)
myCommand.CommandType = SqlCmdType
Dim ParamTemp As SqlParameter
If Not Param Is Nothing Then
For Each ParamTemp In Param
myCommand.Parameters.Add(ParamTemp)
Next
End If
Try
myConn.Open()
Return myCommand
Catch ex As Exception
Return Nothing
End Try
End Function
Public Overloads Function ExecuteSP(ByVal ProcName As String, ByVal Param() As SqlParameter, ByVal myDataset As DataSet) As Boolean
Dim myCommand As SqlCommand = CarateCommand(ProcName, Param, CommandType.StoredProcedure)
Dim myDataAdapter As SqlDataAdapter = New SqlDataAdapter(myCommand)
Try
myDataAdapter.Fill(myDataset)
Return True
Catch ex As Exception
Return False
End Try
End Function
Public Overloads Function ExecuteSP(ByVal ProcName As String, ByVal Param() As SqlParameter) As Boolean
Dim myCommand As SqlCommand = CarateCommand(ProcName, Param, CommandType.StoredProcedure)
Try
myCommand.ExecuteNonQuery()
Return True
Catch ex As Exception
Return False
End Try
End Function
Public Overloads Function ExecuteSP(ByVal ProcName As String, ByVal Param() As SqlParameter, ByRef myDataReader As SqlDataReader) As Boolean
Dim myCommand As SqlCommand = CarateCommand(ProcName, Param, CommandType.StoredProcedure)
Try
myDataReader = myCommand.ExecuteReader
Return True
Catch ex As Exception
Return False
End Try
End Function
End Class

[心情解码]

不错..