Solved

Check for no records or only one record in Access DB

Posted on 2004-10-19
2
198 Views
Last Modified: 2010-04-24
Hello,

I am working on a project that takes input data and saves it to a database in Access using ADO.
I have the program working correctly until I take out the records and check for no records. It crashes on the totals. Please see below



Dim pintRecords As Integer
        Dim pbndTemp As Binding

        lblDisplay.Visible = True
        lblAddMode.Visible = False
        lblEditMode.Visible = False
        pintRecords = oledbCustomers1.Fill(DsCustomers1)
        btnPrevious.Enabled = False

        ' Populate the DataSet with records using the DataAdapter. This DataAdapter was
        ' configured using the Wizard supplied by the OleDbDataAdapter control.

        ' Set up the bindings for each control instance. For each control instance, create
        ' a Binding object. Specify the property to bind (Text), the DataSet, and the
        ' navigation path to the field. Scond, add the binding the the control instance's
        ' DataBindings collection.

       
           

            pbndTemp = New Binding("Text", DsCustomers1, "tblCustomers.fldCustomerID")
            txtCustID.DataBindings.Add(pbndTemp)

            pbndTemp = New Binding("Text", DsCustomers1, "tblCustomers.fldFirstName")
            txtFirst.DataBindings.Add(pbndTemp)

            pbndTemp = New Binding("Text", DsCustomers1, "tblCustomers.fldLastName")
            txtLast.DataBindings.Add(pbndTemp)

            pbndTemp = New Binding("Text", DsCustomers1, "tblCustomers.fldAddress")
            txtAddress.DataBindings.Add(pbndTemp)

            pbndTemp = New Binding("Text", DsCustomers1, "tblCustomers.fldCity")
            txtCity.DataBindings.Add(pbndTemp)

            pbndTemp = New Binding("Text", DsCustomers1, "tblCustomers.fldState")
            txtState.DataBindings.Add(pbndTemp)

            pbndTemp = New Binding("Text", DsCustomers1, "tblCustomers.fldZipCode")
            txtZip.DataBindings.Add(pbndTemp)

            pbndTemp = New Binding("Text", DsCustomers1, "tblCustomers.fldAnnualSales")
            txtAnnSales.DataBindings.Add(pbndTemp)

            pbndTemp = New Binding("Text", DsCustomers1, "tblCustomers.fldBalanceDue")
            txtBalDue.DataBindings.Add(pbndTemp)

            pbndTemp = New Binding("Text", DsCustomers1, "tblCustomers.fldCreditLimit")
        txtCredit.DataBindings.Add(pbndTemp)
        Call EditState(cblnNotEditing)
        Call Totals()

        If txtCustID.Text = "" Then
            MessageBox.Show("There are no records currently in this database")
            grpNavigate.Hide()
            lblOverLimit.Visible = False
            tmrInvalid.Stop()
            btnAdd.Enabled = False
            btnEdit.Enabled = True
            btnsave.Enabled = True
            btnCancel.Enabled = False
            btnDelete.Enabled = False

            Exit Sub
        End If
        End Sub

****For the totals I have the following:

Private Sub Totals()
        Dim mdblmonthSal As Double
        Dim mdblannualSales As Double
        Dim mdblCreditLimit As Double
        Dim mdblBalDue As Double
        Dim mdblAvailBal As Double


        mdblannualSales = ToDouble(txtAnnSales.Text)  ***************CRASHES ON THIS LINE
        mdblmonthSal = mdblannualSales / 12
        txtMonth.Text = mdblmonthSal.ToString("###,###.##")

        mdblCreditLimit = ToDouble(txtCredit.Text)
        mdblBalDue = ToDouble(txtBalDue.Text)

        mdblAvailBal = mdblCreditLimit - mdblBalDue
        txtBalAvail.Text = mdblAvailBal.ToString("###,###.##")

        If mdblCreditLimit = mdblBalDue Then
            txtBalAvail.Text = "Zero Balance"
        End If
        Call Overlimit()
    End Sub

*********The Form Load is looking at the temp holding variable (mdblCreditLimit)  and telling me the input text is incorrect. Should be ToString.
Also how would I check for only one record in the Access DB.

Thanks for your help.
0
Comment
Question by:itcopt
2 Comments
 
LVL 27

Expert Comment

by:planocz
ID: 12351067
You could do something like this....

Dim pintRecords As Integer
        Dim pbndTemp As Binding

        lblDisplay.Visible = True
        lblAddMode.Visible = False
        lblEditMode.Visible = False
        pintRecords = oledbCustomers1.Fill(DsCustomers1)
        btnPrevious.Enabled = False

        if DsCustomers1.Tables(0).Rows.Count <= 1 then
              messagebox("I have only one or less records")
              exit sub
       end if
0
 
LVL 4

Accepted Solution

by:
eozz_2000 earned 125 total points
ID: 12351854
I would change the code above with the name of the table, becaouse I wouldn't know if the table with the index 0 is the table that itcopt wants to check:

Select Case DsCustomers1.Tables("Table_Name").Rows.Count
  case 0:
    msgbox("The table is empty")
  case 1:
    msgbox("You have only 1 record")
  case Else:
    'The execution will be here if you have 2 or more records
End Select
0

Featured Post

Gigs: Get Your Project Delivered by an Expert

Select from freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely and get projects done right.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Creating an analog clock UserControl seems fairly straight forward.  It is, after all, essentially just a circle with several lines in it!  Two common approaches for rendering an analog clock typically involve either manually calculating points with…
The ECB site provides FX rates for major currencies since its inception in 1999 in the form of an XML feed. The files have the following format (reducted for brevity) (CODE) There are three files available HERE (http://www.ecb.europa.eu/stats/exch…
This Micro Tutorial hows how you can integrate  Mac OSX to a Windows Active Directory Domain. Apple has made it easy to allow users to bind their macs to a windows domain with relative ease. The following video show how to bind OSX Mavericks to …
Established in 1997, Technology Architects has become one of the most reputable technology solutions companies in the country. TA have been providing businesses with cost effective state-of-the-art solutions and unparalleled service that is designed…

816 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

10 Experts available now in Live!

Get 1:1 Help Now