Solved

Check for no records or only one record in Access DB

Posted on 2004-10-19
2
199 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

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

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

Suggested Solutions

Title # Comments Views Activity
VB.Net - Project Software to help the Developer 7 40
Modal Popup Extender control 1 38
Sql server insert 13 36
How to repeat the data 4 17
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…
It was really hard time for me to get the understanding of Delegates in C#. I went through many websites and articles but I found them very clumsy. After going through those sites, I noted down the points in a easy way so here I am sharing that unde…
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…
Email security requires an ever evolving service that stays up to date with counter-evolving threats. The Email Laundry perform Research and Development to ensure their email security service evolves faster than cyber criminals. We apply our Threat…

839 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