Visual basic dot Net Code to get DataSet ,Check Table Existence

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 cd  
 Catch ex As Exception  
 MsgBox("clsCommon::FetchData::Error occured.", MsgBoxStyle.Critical, "XYZ")  
 Finally  
 objCn.CloseDB()  
 cmd.Dispose()  
 End Try  
 End Function  



Code to check table exist or not

Following is a Code to check table exist or not. You can try following code in vb.net environment. Just create simple method and you can call that method to check existence of table.

 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, "CNS")  
 MsgBox(ex.Message.ToString)  
 Finally  
 objCn.CloseDB()  
 cmd.Dispose()  
 End Try