Re: VB application crashes

Tech-Archive recommends: Fix windows errors by optimizing your registry

"Co" <vonclausowitz@xxxxxxxxx> wrote in message
news:1157662568.878150.322440@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Guys,

Thanks for the advises.
I think I found out where things go wrong. I just don't know why.
When I load the form in Private Sub Form_Activate() I have the
following code:

Call ImageLoader
Call LoadPositions
Call LoadLanguages
Call LoadPeople
Call LoadOrgs
Call LoadEvents
Call LoadUnits
Call LoadDocs
Call LoadReports
Call LoadVehicles
Call LoadEducations
Call LoadResidences

These are functions that load data into Listviews, for example:

Private Function LoadPositions()

Dim rsjob As Recordset
Dim strJob As String
Dim itmX As ListItem

strJob = "SELECT Id, BJID, position_title AS position, employer,
hire_date AS [date hired] FROM Jobs " & _
"WHERE Jobs.BJID = " & theName & " ORDER BY Jobs.hire_date
DESC"

Set rsjob = dbfASIC.OpenRecordset(strJob)

If rsjob.RecordCount <> 0 Then
ListViewPositions.SmallIcons = Main.ImageList1(1)

ListViewPositions.ColumnHeaders.Add , , "Position", 3200
ListViewPositions.ColumnHeaders.Add , , "Employer", 3200
ListViewPositions.ColumnHeaders.Add , , "Date Hired", 1500

rsjob.MoveFirst
Do While rsjob.EOF = False
Set itmX = ListViewPositions.ListItems.Add(, ,
rsjob.Fields("position"), , "Pos")
itmX.Tag = "P" & rsjob.Fields("Id")
itmX.SubItems(1) = IIf(Len(rsjob.Fields("employer") <> 0),
rsjob.Fields("employer"), "")
itmX.SubItems(2) = IIf(Len(rsjob.Fields("[date hired]") <> 0),
rsjob.Fields("[date hired]"), "")
rsjob.MoveNext

Try adding this line here:

Set itmX = Nothing

Loop
End If
Set rsjob = Nothing

I am not seeing anything wrong with your code. How did you define dbfASIC?
Also, try adding the following line before the line above:

rsjob.Close


End Function

I used to use the same Public recordset rs all the time but I changed
that. No effect however. Why is the prog crashing on this code? Is it
too much for VB?

MArco


.

Relevant Pages

  • Re: VB application crashes
    ... When I load the form in Private Sub Form_ActivateI have the ... These are functions that load data into Listviews, ... Dim rsjob As Recordset ... Set rsjob = dbfASIC.OpenRecordset ...
    (microsoft.public.vb.general.discussion)
  • Re: VB application crashes
    ... When I load the form in Private Sub Form_ActivateI have the ... These are functions that load data into Listviews, ... Set rsjob = dbfASIC.OpenRecordset ... I used to use the same Public recordset rs all the time but I changed ...
    (microsoft.public.vb.general.discussion)