Hi
I also suspected that it has something to do with the system memory (im using
P4 2.7 GHz with 128 RAM installed). but i only have less than a hundred of
records to show using treeview. ive never experienced it before. ive noticed
that when ive try to use an OCX gif animation control (TANI) this error flops
everywhere in my program.
any other alternative
thanks and best regards
Arnold
Dim b As Boolean
Dim i As Integer
i = 0
b = False
'set VSreport path
spath = App.Path & CSReports
'set program version
Me.Caption = StrPrgName & " " & strVersion
'reallocate storage space for dynamic array
ReDim tInfo(0)
rst.Open "Branch", cnn
While Not rst.EOF
If b = True Then
'To avoid error on first array
i = UBound(tInfo) + 1
ReDim Preserve tInfo(i)
End If
'ERROR IN THIS AREA
tInfo(i).strBCode = rst("BranchCode")
tInfo(i).strBName = rst("BranchName")
cboBranch.AddItem rst("BranchName")
rst.MoveNext
b = True
Wend
"Unicorn.PC.Support" <[EMAIL PROTECTED]> wrote:
It has been a long time, but I think I recall that while the maximum number
of nodes in a treeview is only limited by the amount of system memory that
there is a practical limit of around 32,000 because the index property in an
integer. Are you perhaps exceeding that limit? Or running out of memory
entirely on your win98 test machine....... They usually have lots less
memory installed. How many items are you adding to the treeview?
You are not setting the recordsets to Nothing..... That would consume
memory
You open rst, rst2 ,rstCont but you only close 2 of these recordsets, again
a possible memory leak.
----- Original Message -----
From: "Arnold Marquez" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, November 18, 2004 9:17 PM
Subject: RE: [vbhelp] RUNTIME ERROR '6' OVERFLOW
Hi
Below is part of the code that produced the error. i did not experience this
error in
XP and 2000. The error only appeares in windows 98.
This error give me a lot of confusion as it never happened before in my
previous
deployment of the program. (I use VB 6.0 with SP6, ComponentOne)
I would appreciate it very much if you could help me solve this problem as i
need to implement my system next week
thanks and best regards
Arnold
Private Sub Form_Load()
Dim rstCont As New ADODB.Recordset
Dim rst2 As New ADODB.Recordset
Dim nodNew As Node
Me.TreeView1.Nodes.Clear
Set rst = cnn.Execute("SELECT * FROM qryDestBKS")
If Not rst.EOF Then
Me.TreeView1.ImageList = Me.ImageList1
While Not rst.EOF
Set rst2 = cnn.Execute("SELECT BKS.BKS_Date,
Count(BKS.BKS_DestCode) AS CountOfBKS_DestCode From BKS " & _
"Where (((BKS.BKS_DestCode) = '" & rst("DES_DestCode") &
"')) " & _
"GROUP BY BKS.BKS_Date " & _
"HAVING (((BKS.BKS_Date) Between #" & Format(Me.dtFrom,
"yyyy/mmm/dd") & "# And #" & Format(Me.dtTo, "yyyy/mmm/dd") & "#))")
If Not rst2.EOF Then
Me.TreeView1.Nodes.Add , , rst("DES_DestCode"),
rst("DES_DestName"), "ClickOff", "ClickOn"
End If
rst.MoveNext
Wend
Me.TreeView1.Nodes.Add , , "LCL", "LCL", "ClickOff", "ClickOn"
Me.TreeView1.Nodes.Add , , "FCL", "FCL", "ClickOff", "ClickOn"
Me.TreeView1.Nodes.Add , , "COLOAD", "COLOAD", "ClickOff",
"ClickOn"
Me.TreeView1.Nodes.Add , , "ALL", "ALL", "ClickOff", "ClickOn"
Me.TreeView1.Nodes.Add , , "CONSOLE", "CONSOLE", "ClickOff",
"ClickOn"
End If
rstCont.Open "SELECT * FROM qryCSMonitoring_Containerize", cnn,
adOpenDynamic
While Not rstCont.EOF
'ERROR IN THIS AREA
Me.TreeView1.Nodes.Add "CONSOLE", tvwChild, "B" &
rstCont("LSH_Key"), rstCont("LSH_Key") & ", " & rstCont("LSH_ShippingCode")
& ", " & rstCont("DES_DestName"), "ClickOff", "ClickOn"
rstCont.MoveNext
Wend
ListView1.Sorted = True
ListView1.FullRowSelect = True
Me.Top = (Screen.Height - Me.Height) / 3
Me.Left = (Screen.Width - Me.Width) / 2
rst.Close
rstCont.Close
End Sub
"Shawn K. Hall" <[EMAIL PROTECTED]> wrote:
Hi Arnold,
> (RUNTIME ERROR '6' OVERLOW). There is an instance that
> my program will be ok and after a series of data
> encoding this error would suddenly appear in the
> screen particularly when opening a report or a form
> with MS controls.
You need to review your code to see where the code is calling a
function from an event that reacts frequently (like a _mousemove or
timer with a low interval).
Ideally, you would have some method of watching the stack - like a
static variable in your re-entrant functions that is used as a
counter to deny requests to re-enter the routine after the stack
reaches a certain level.
Without seeing some code or at least an application process flow
diagram we're really at a loss to provide much actual assistance.
Regards,
Shawn K. Hall
http://ReliableAnswers.com/
'// ========================================================
The shadow is what we think of it;
the tree is the real thing.
-- Abraham Lincoln (1809-1865)
'// =======================================================
Rules : http://ReliableAnswers.com/List/Rules.asp
Home : http://groups.yahoo.com/group/vbHelp/
=======================================================
Post : [EMAIL PROTECTED]
Join : [EMAIL PROTECTED]
Leave : [EMAIL PROTECTED]
'// =======================================================
Yahoo! Groups SponsorADVERTISEMENT
---------------------------------
Yahoo! Groups Links
To visit your group on the web, go to:
http://groups.yahoo.com/group/vbhelp/
To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
---------------------------------
Do you Yahoo!?
The all-new My Yahoo! - Get yours free!
[Non-text portions of this message have been removed]
'// =======================================================
Rules : http://ReliableAnswers.com/List/Rules.asp
Home : http://groups.yahoo.com/group/vbHelp/
=======================================================
Post : [EMAIL PROTECTED]
Join : [EMAIL PROTECTED]
Leave : [EMAIL PROTECTED]
'// =======================================================
Yahoo! Groups Links
'// =======================================================
Rules : http://ReliableAnswers.com/List/Rules.asp
Home : http://groups.yahoo.com/group/vbHelp/
=======================================================
Post : [EMAIL PROTECTED]
Join : [EMAIL PROTECTED]
Leave : [EMAIL PROTECTED]
'// =======================================================
Yahoo! Groups SponsorADVERTISEMENT
---------------------------------
Yahoo! Groups Links
To visit your group on the web, go to:
http://groups.yahoo.com/group/vbhelp/
To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
---------------------------------
Do you Yahoo!?
Discover all that�s new in My Yahoo!
[Non-text portions of this message have been removed]
------------------------ Yahoo! Groups Sponsor --------------------~-->
$9.95 domain names from Yahoo!. Register anything.
http://us.click.yahoo.com/J8kdrA/y20IAA/yQLSAA/k7folB/TM
--------------------------------------------------------------------~->
'// =======================================================
Rules : http://ReliableAnswers.com/List/Rules.asp
Home : http://groups.yahoo.com/group/vbHelp/
=======================================================
Post : [EMAIL PROTECTED]
Join : [EMAIL PROTECTED]
Leave : [EMAIL PROTECTED]
'// =======================================================
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/vbhelp/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
