Software Applications Programming Errors and solutions.

Visual basic dot Net Code to get DataSet This is example of Vb.Net Code to get DataSet and second example is how to use execute scalar to return single value like count record, sum of columns etc. Vb.Net Code to get DataSet Declare all variable globally. Public Function GetDataset(ByVal str As String, ByVal Table As String) As DataSet Dim cmd As New SqlCommand(str, objCn.OpenDB()) cmd.CommandType = CommandType.Text Try Dim ds As New DataSet Dim adp As New SqlDataAdapter(cmd) adp.Fill(ds, Table) Return ds Catch ex As Exception MsgBox("clsCommon::FetchData::Error occured.", MsgBoxStyle.Critical, "XyZ") Finally objCn.CloseDB() cmd.Dispose() End Try End Function 'Excecute Scalar: Public Function Exe_Scalar(ByVal str As String, ByVal table As String) As String Dim cd As String Dim cmd As New SqlCommand(str, objCn.OpenDB()) cmd.CommandType = CommandType.Text Try cd = cmd.ExecuteScalar() Return c

Sometimes we require to write code to check whether table exist in database or not. This is simple Vb dot Net Code to check table exist or not in sql or any other database. Public Function CheckTempUserTbl(ByVal strSpNm As String) As String Dim cmd As SqlCommand Dim strCd As String cmd = New SqlCommand(strSpNm, objCn.OpenDB()) cmd.CommandType = CommandType.StoredProcedure Try cmd.Parameters.Add(New SqlParameter("@TBLNM", SqlDbType.VarChar, 30, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, _Table)) If Not IsDBNull(cmd.ExecuteScalar()) Then strCd = cmd.ExecuteScalar() End If Return strCd Catch ex As Exception MsgBox("clsCommon::CreateTempUserTbl::Error occured.", MsgBoxStyle.Critical, "TEST") MsgBox(ex.Message.ToString) Finally objCn.CloseDB() cmd.Dispose() End Try End Function By this stored procedure you can pass any table name at runtime.