Codejock Developer Community : report control_ADO

report control_ADO : thanks You're right, the...

Fri, 03 Dec 2004 23:03:59 +0000

Author: dlord
Subject: 1295
Posted: 03 December 2004 at 11:03pm

thanks

You're right, the nulls will get you. I tested 30,000 records into one report today. 14 columns. It worked with no problems. Well, the only thing was it's slows a bit as the memory swells. which is all expected. Good tool.

dlord

report control_ADO : There isn't a problem with...

Fri, 03 Dec 2004 06:42:11 +0000

Author: SuperMario
Subject: 1295
Posted: 03 December 2004 at 6:42am

There isn't a problem with the size of the database, the problem is with "NULL" values.

Here is the necessary modifications to make this code work.


While Not rs.EOF
Set Record = RC1.Records.Add
 Set Item = Record.AddItem(0)
    Item.Value = rs(0)
    Item.Icon = 0
  Set Item = Record.AddItem(0)
    Item.Value = IIf(IsNull(rs(1).Value), "Null", rs(1))
    Item.Icon = 1
  Set Item = Record.AddItem(0)
    Item.Value = IIf(IsNull(rs(2).Value), "Null", rs(2))
  Set Item = Record.AddItem(0)
    Item.Value = IIf(IsNull(rs(3).Value), "Null", rs(3))
  Set Item = Record.AddItem(0)
    Item.Value = IIf(IsNull(rs(4).Value), "Null", rs(4))
    rs.MoveNext
    i = i + 1
Wend

report control_ADO : Is there an update on this..?...

Thu, 02 Dec 2004 21:54:17 +0000

Author: dlord
Subject: 1295
Posted: 02 December 2004 at 9:54pm

Is there an update on this..? My db is approaching this size.

report control_ADO : hi. Error Message in MFC42.DLL...

Mon, 18 Oct 2004 04:36:34 +0000

Author: nunggum
Subject: 1295
Posted: 18 October 2004 at 4:36am

hi.

Error Message in MFC42.DLL Apprears When update Database to Report Control using ADO,
Small DB can update to Report control but Big DB (16,000 Records) Can't update.

Private db As New ADODB.Connection
Private rs As New ADODB.Recordset
Const COLUMN_PART = 0
Const COLUMN_CODE = 1
Const COLUMN_PAPER_SIZE = 2
Const COLUMN_SIZE = 3
Const COLUMN_PRINTER = 4
Private Sub Form_Load()
sSql = "SELECT * FROM sheet2 ;"
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\any1.mdb;Persist Security Info=False"
rs.Open sSql, db, adOpenStatic, adLockReadOnly
   While Not rs.EOF
      rs.MoveNext
   Wend
   If rs.RecordCount = 0 Then
      Set db = Nothing
   Set rs = Nothing
      RC1.Redraw
    Exit Sub
   End If
rs.MoveFirst
    With RC1.Columns
        .Add COLUMN_PART, "part1", 50, True
        .Add COLUMN_CODE, "part2", 50, True
        .Add COLUMN_PAPER_SIZE, "part3", 50, True
        .Add COLUMN_SIZE, "part4", 50, True
        .Add COLUMN_PRINTER, "part5", 50, True
    End With
Dim i As Long, Record As ReportRecord, Item As ReportRecordItem, str As String
i = 0
While Not rs.EOF
Set Record = RC1.Records.Add
    Set Item = Record.AddItem(i)
        Item.Value = rs(1)
        Item.Icon = 0
    Set Item = Record.AddItem(i)
        Item.Value = rs(2)
        Item.Icon = 1
    Set Item = Record.AddItem(i)
        Item.Value = rs(3)
    Set Item = Record.AddItem(i)
        Item.Value = rs(4)
    Set Item = Record.AddItem(i)
        Item.Value = rs(5)
        rs.MoveNext
    i = i + 1
Wend
    RC1.SetImageList Me.ImageList1
    RC1.PaintManager.ColumnStyle = xtpColumnFlat
    RC1.Populate
End Sub