Data Handler not updating 1

[born2program]

I recently added a function in my DataHandler to pull data from a database. However when I run the application and try to use the dataset that should be returned from the DataHandler I get 'Method Not Found: System.Data.DataSet DAL.DataHandler.getGLData()'. It's as though my DataHandler is not updating somewhere. Any help with this is appreciated. Thanks.

 

[tperri]

Can you please post more code so we can see what is happening?

Thanks

 

[born2program]

Here is the code that I currently have.
I am getting the error on the line with the * beside of it.

Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click

        Dim objDataHandler As New DataHandler
        Dim objUserLoginDataSet As New DataSet
        Dim objUserLoginDataView As New DataView

        Dim test As String
        Dim appLink As String
        Dim a As Integer


        objUserLoginDataSet = objDataHandler.getLoginInfo(Trim(txtPassword.Text))
        objUserLoginDataView = objUserLoginDataSet.Tables.Item(0).DefaultView

        lblStoreDept.Text = ""

        If objUserLoginDataView.Count > 0 Then

            lblStoreDept.Text = objUserLoginDataView.Item(a).Item("DEPARTMENT")

            Select Case Trim(lblStoreDept.Text)
                Case Is = "Retail Loan Ops"
                    strDeptFolder = "RLO"
                    HyperLink1.NavigateUrl = "\\wil-lsvsql\printcheck\RLO\"
                    LoadChecksToPrint()
                    panDataGridPanel.Visible = True
                Case Is = "Business Loan Ops"
                    strDeptFolder = "BLO"
                    HyperLink1.NavigateUrl = "\\wil-lsvsql\printcheck\BLO\"
    Error Here **** LoadGLData_BLO()
                    panDataGridPanel.Visible = False
                    panGLUpload_BLO.Visible = True
                Case Is = "Retail Loan Doc"
                    strDeptFolder = "RLD"
                    HyperLink1.NavigateUrl = "\\wil-lsvsql\printcheck\RLD\"
                Case Is = "Business Loan Doc"
                    strDeptFolder = "BLD"
                    HyperLink1.NavigateUrl = "\\wil-lsvsql\printcheck\BLD\"
                Case Is = "Direct Retail Lending"
                    strDeptFolder = "DRL"
                    HyperLink1.NavigateUrl = "\\wil-lsvsql\printcheck\DRL\"
                Case Is = "Closed Loans"
                    strDeptFolder = "ClosedLoan"
                    HyperLink1.NavigateUrl = "\\wil-lsvsql\printcheck\ClosedLoan\"
                Case Else

            End Select

            panLoginPanel.Visible = False


        Else

            panLoginPanel.Visible = True
            panDataGridPanel.Visible = False
            txtPassword.Text = ""
            If (Not Me.IsStartupScriptRegistered("SetFocus")) Then
                Page.RegisterStartupScript("SetFocus", "<script>var pwd =document.getElementById('" & txtPassword.ClientID & "'); if (pwd != null) { 				pwd.focus(); }</script>")
            End If
            Exit Sub
        End If

End Sub

This is the function that is called above.

Private Sub LoadGLData_BLO()
        Dim objDataHandler As New DataHandler
        Dim objGLDataSet As New DataSet
        Dim objGLDataView As New DataView

        objGLDataSet = objDataHandler.getGLData()

        If Not objGLDataSet Is Nothing Then
            If objGLDataSet.Tables(0).Rows.Count <> 0 Then
                objGLDataView = objGLDataSet.Tables.Item(0).DefaultView
                dgGLUpload.DataSource = objGLDataView
                dgGLUpload.DataBind()
            Else
                Exit Sub
            End If
        End If

End Sub

This is the function getGLData in the data handler

Public Function getGLData() As DataSet
        'Returns the data from the GL Upload  table needed to 
        'download the GL Upload Logsheet.

        Dim SQL As String

        SQL = "SELECT COMPANY, TRANCODE, GLACCOUNT, CENTER, EFFECTIVEDATE, AMOUNT, DESC1, DESC2, DESC3" & _
              " FROM REPORTLS.GLUPLOAD"

        Dim objCommand As New OracleCommand(SQL, objConnection)
        Dim objDataAdapter As New OracleDataAdapter(objCommand)
        Dim objDataSet As New DataSet
        objCommand.Parameters.Clear()
        objCommand.CommandType = CommandType.Text


        Try
            objConnection.Open()
            objDataAdapter.Fill(objDataSet)
            objConnection.Close()

            Return objDataSet

        Catch ex As Exception

        End Try
End Function

 

[ca8msm]

Where is the DataHandler class located? Is it in the App_Code folder, or is it referenced via a DLL? Can you provide a full copy of it?


-------------------------------------------------------

Mark,
[URL unfurl="true"]http://aspnetlibrary.com[/url]
[URL unfurl="true"]http://mdssolutions.co.uk[/url] - Delivering professional ASP.NET solutions
[URL unfurl="true"]http://weblogs.asp.net/marksmith[/url]

 

[born2program]

It is reference via .dll. Below is a copy of all code in the datahandler.

Imports System.Data.OracleClient
Imports System.Configuration 'must import in order to access the Web.Config file

Public Class DataHandler
    Inherits System.ComponentModel.Component

#Region " Component Designer generated code "

    Public Sub New(ByVal Container As System.ComponentModel.IContainer)
        MyClass.New()

        'Required for Windows.Forms Class Composition Designer support
        Container.Add(Me)
    End Sub

    Public Sub New()
        MyBase.New()

        'This call is required by the Component Designer.
        InitializeComponent()

        'Add any initialization after the InitializeComponent() call
        strConnection = ConfigurationSettings.AppSettings("ConnectionString")
        objConnection.ConnectionString = strConnection

    End Sub

    'Component overrides dispose to clean up the component list.
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Required by the Component Designer
    Private components As System.ComponentModel.IContainer

    'NOTE: The following procedure is required by the Component Designer
    'It can be modified using the Component Designer.
    'Do not modify it using the code editor.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        components = New System.ComponentModel.Container
    End Sub

#End Region

    Private strConnection As String
    Private objConnection As New OracleConnection
    Private strSQL As String

    Public Function getLoginInfo(ByVal strPass As String) As DataSet
        'Returns the data from the PrintCheckUsers table needed to 
        'verify login information when user logs in.

        Dim SQL As String

        'SQL = "SELECT USERNAME, PASSWORD, DEPARTMENT" & _
        '      " FROM PRINTCHECKUSERS" & _
        '      " WHERE USERNAME=:USERNAME"

        SQL = "SELECT DEPARTMENT" & _
             " FROM PRINTCHECKUSERS" & _
             " WHERE PASSWORD=:PASSWORD"


        Dim objCommand As New OracleCommand(SQL, objConnection)
        Dim objDataAdapter As New OracleDataAdapter(objCommand)
        Dim objDataSet As New DataSet
        objCommand.CommandType = CommandType.Text
        objCommand.Parameters.Add(":PASSWORD", SqlDbType.VarChar)
        objCommand.Parameters(":PASSWORD").Value = strPass

        '   Try
        objConnection.Open()
        objDataAdapter.Fill(objDataSet)
        objConnection.Close()
        Return objDataSet

        ' Catch ex As Exception

        'End Try

    End Function

    Public Function getDepartments() As DataSet
        'Returns the departments listed in the PrintCheck table

        Dim SQL As String
        SQL = "SELECT DISTINCT DEPARTMENT" & _
              " FROM PRINTCHECK"

        Dim objCommand As New OracleCommand(SQL, objConnection)
        Dim objDataAdapter As New OracleDataAdapter(objCommand)
        Dim objDataSet As New DataSet
        objCommand.CommandType = CommandType.Text

        Try
            objConnection.Open()
            objDataAdapter.Fill(objDataSet)
            objConnection.Close()
            Return objDataSet

        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

    End Function

    Public Function getChecksToBePrinted(ByVal strLOB As String) As DataSet
        'Returns the data from the PrintChecks table needed to 
        'download the print Overpayment checks.

        Dim SQL As String

        'SQL = "SELECT *" & _
        '      " FROM PRINTCHECK" & _
        '      " WHERE (DOWNLOADTIME IS NULL) AND (DEPARTMENT=:DEPARTMENT)"

        SQL = "SELECT *" & _
              " FROM PRINTCHECK" & _
              " WHERE (DOWNLOADTIME IS NULL) AND DEPARTMENT = :DEPARTMENT" & _
              " ORDER BY UPPER(REQUESTER)"


        Dim objCommand As New OracleCommand(SQL, objConnection)
        Dim objDataAdapter As New OracleDataAdapter(objCommand)
        Dim objDataSet As New DataSet
        objCommand.CommandType = CommandType.Text
        objCommand.Parameters.Add(":DEPARTMENT", SqlDbType.VarChar)
        objCommand.Parameters(":DEPARTMENT").Value = strLOB

        Try
            objConnection.Open()
            objDataAdapter.Fill(objDataSet)
            objConnection.Close()

            Return objDataSet

        Catch ex As Exception

        End Try

    End Function

    Public Function myData() As DataSet
        Dim SQL As String

        SQL = "SELECT COMPANY, TRANCODE, GLACCOUNT, CENTER, EFFECTIVEDATE, AMOUNT, DESC1, DESC2, DESC3" & _
              " FROM REPORTLS.GLUPLOAD"

        Dim objCommand As New OracleCommand(SQL, objConnection)
        Dim objDataAdapter As New OracleDataAdapter(objCommand)
        Dim objDataSet As New DataSet
        objCommand.Parameters.Clear()
        objCommand.CommandType = CommandType.Text

        objConnection.Open()
        objDataAdapter.Fill(objDataSet)
        objConnection.Close()

        Return objDataSet

    End Function

    Public Function getGLData() As DataSet
        'Returns the data from the GL Upload  table needed to 
        'download the GL Upload Logsheet.

        Dim SQL As String

        SQL = "SELECT COMPANY, TRANCODE, GLACCOUNT, CENTER, EFFECTIVEDATE, AMOUNT, DESC1, DESC2, DESC3" & _
              " FROM REPORTLS.GLUPLOAD"

        Dim objCommand As New OracleCommand(SQL, objConnection)
        Dim objDataAdapter As New OracleDataAdapter(objCommand)
        Dim objDataSet As New DataSet
        objCommand.Parameters.Clear()
        objCommand.CommandType = CommandType.Text


        Try
            objConnection.Open()
            objDataAdapter.Fill(objDataSet)
            objConnection.Close()

            Return objDataSet

        Catch ex As Exception

        End Try
    End Function

    Public Function TimeStampPrintedChks(ByVal strDepartment As String)
        'Returns the data from the PrintChecks table needed to 
        'download the print Overpayment checks.

        Dim SQL As String
        SQL = "UPDATE PRINTCHECK" & _
              " SET DOWNLOADTIME=SYSDATE" & _
              " WHERE (DOWNLOADTIME IS NULL) AND DEPARTMENT = :DEPARTMENT"

        Dim objCommand As New OracleCommand(SQL, objConnection)
        Dim objDataAdapter As New OracleDataAdapter(objCommand)
        Dim objDataSet As New DataSet
        objCommand.CommandType = CommandType.Text
        objCommand.Parameters.Add(":DEPARTMENT", SqlDbType.VarChar)
        objCommand.Parameters(":DEPARTMENT").Value = strDepartment

        Try
            objConnection.Open()
            objDataAdapter.Fill(objDataSet)
            objConnection.Close()
            Return objDataSet

        Catch ex As Exception

        End Try

    End Function

End Class

 

[ca8msm]

In that case it probably hasn't been refreshed correctly. An easy fix is to just delete and re-add the reference to the dll.


-------------------------------------------------------

Mark,
[URL unfurl="true"]http://aspnetlibrary.com[/url]
[URL unfurl="true"]http://mdssolutions.co.uk[/url] - Delivering professional ASP.NET solutions
[URL unfurl="true"]http://weblogs.asp.net/marksmith[/url]

 

[born2program]

What is meant by not being refreshed correctly. Is there anything I need to do going forward that would prevent this from happening. Thanks for your help.

 

[ca8msm]

How did you reference it? Did you add a reference to wherever the dll was located on your system, or did you drop the dll into the bin folder and then add a reference to it?


-------------------------------------------------------

Mark,
[URL unfurl="true"]http://aspnetlibrary.com[/url]
[URL unfurl="true"]http://mdssolutions.co.uk[/url] - Delivering professional ASP.NET solutions
[URL unfurl="true"]http://weblogs.asp.net/marksmith[/url]

 

[born2program]

It's in the bin folder.

 

[ca8msm]

Well if it's in the bin folder, and you updated the code the from the dll solution, then the bin file will obviously still contain the old code. You will need to drop the new file back in once you have made a change.


-------------------------------------------------------

Mark,
[URL unfurl="true"]http://aspnetlibrary.com[/url]
[URL unfurl="true"]http://mdssolutions.co.uk[/url] - Delivering professional ASP.NET solutions
[URL unfurl="true"]http://weblogs.asp.net/marksmith[/url]