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
Loop
End If
Set rsjob = Nothing

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


Ahhhh.

I vaguely remember something about that...
http://support.microsoft.com/kb/197449/

I never reuse recordsets, but had forgotten why. <g>

-ralph


.

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 ... Set itmX = ListViewPositions.ListItems.Add(,, ...
    (microsoft.public.vb.general.discussion)
  • Re: access 2003
    ... Dim ctl As Control ... Dim rs As Recordset ... This sets the query definitions for choosing data to create an invoice using ... Event on combo box: Private Sub ChooseCust_AfterUpdate ...
    (microsoft.public.access.conversion)
  • RE: Dynamate report creation....help
    ... mode) in the query and it will construct the report for it. ... time with 26 columns and 200 rows in the recordset before I killed the print ... Dim RptRS As Recordset ... Private Sub Detail1_Format ...
    (microsoft.public.access.reports)
  • Re: Can Not Create Control
    ... > Private Sub Form_Load ... > Dim laco As Connection ... > Dim lars As Recordset ...
    (microsoft.public.pocketpc.developer)