Public Class myfunc Public sqlcon As New SqlConnection Public sqlcmd As New SqlCommand() Public sda As New SqlDataAdapter Public sqlpar As New SqlClient.SqlParameter Public ds2 As New DataSet Public Function cnsqlstoragepro(ByVal sqldbname As String, ByVal Procedure_Name As String, ByRef In_Par() As String, ByRef InPar_Typ() As Integer, ByRef In_Val() As String, ByVal Col_Name As String, ByVal Col_Value As String, ByVal TABLE_NAME As String, ByVal WHR As String) Try Dim sqlpar As New SqlParameter sqlcon.ConnectionString = "Server=localhost\SS;UID=sa;PASSWORD=admin@123;database= " & sqldbname & ";Max Pool Size=400;Connect Timeout=600;" 'myconnecting(sqldbname) If sqlcon.State = ConnectionState.Closed Then sqlcon.Open() End If sqlcmd.Connection = sqlcon sqlcmd.CommandText = Procedure_Name sqlcmd.CommandType = CommandType.StoredProcedure Dim i As Integer For i = 0 To i < In_Par.Length Select Case (InPar_Typ(i)) Case 1 '// integer sqlpar = New SqlClient.SqlParameter(In_Par(i), SqlDbType.Int).Value = In_Val(i) Case 2 '// nvarchar sqlcmd.Parameters.Add(In_Par(i), SqlDbType.NVarChar).Value = In_Val(i) Case 3 ' // datetime sqlcmd.Parameters.Add(In_Par(i), SqlDbType.DateTime).Value = In_Val(i) End Select ' // switch InParTyps Next i ' //for In_Par Dim SQLSTR As String = "select " + Col_Name + " , " + Col_Value + " from " + TABLE_NAME + " " + WHR sda = New SqlDataAdapter(SQLSTR, sqlcon) ds2 = New DataSet() ' sda.Fill(ds2) ' sqlcon.Close() Catch ex As Exception MsgBox("ERROR ........" + ex.Message) End Try End Function End Class
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)