Codejock Developer Community : Load Records From ADO Recordset http://forum.codejock.com/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Fri, 15 May 2026 23:05:05 +0000 Sat, 03 Mar 2007 21:04:32 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 forum.codejock.com/RSS_post_feed.asp?TID=4560 <![CDATA[Codejock Developer Community]]> http://forum.codejock.com/forum_images/codejock-logo.gif http://forum.codejock.com/ <![CDATA[Load Records From ADO Recordset : Added i = i + 1 just after the...]]> http://forum.codejock.com/forum_posts.asp?TID=4560&PID=20863&title=load-records-from-ado-recordset#20863 Author: Timothy5
Subject: 4560
Posted: 03 March 2007 at 9:04pm

Added i = i + 1 just after the case statement to correct the issue.

]]> Sat, 03 Mar 2007 21:04:32 +0000 http://forum.codejock.com/forum_posts.asp?TID=4560&PID=20863&title=load-records-from-ado-recordset#20863 <![CDATA[Load Records From ADO Recordset : I have a similar issue when I...]]> http://forum.codejock.com/forum_posts.asp?TID=4560&PID=20862&title=load-records-from-ado-recordset#20862 Author: Timothy5
Subject: 4560
Posted: 03 March 2007 at 8:47pm

I have a similar issue when I use columns that meet the Case conditions. What is the solution?]]> Sat, 03 Mar 2007 20:47:15 +0000 http://forum.codejock.com/forum_posts.asp?TID=4560&PID=20862&title=load-records-from-ado-recordset#20862 <![CDATA[Load Records From ADO Recordset : It&#039;s Great! But sorry,...]]> http://forum.codejock.com/forum_posts.asp?TID=4560&PID=14098&title=load-records-from-ado-recordset#14098 Author: DueSoft
Subject: 4560
Posted: 10 July 2006 at 10:32pm



It's Great!

But sorry, i'm done understand about this code,
'-------------------------------------------
      Select Case pField.Type
        Case adBigInt, adDecimal, adDouble, adInteger, adNumeric, adSingle, adSmallInt, adTinyInt
          'todo
        Case adBoolean
          'todo
        Case adDate, adDBDate, adDBTime, adDBTimeStamp
          'todo
      End Select
'------------------------------------------------------
When i try this code, i have a problem,
For example :
I have data like this :
----------------------------------
|No   |Name        |Phone      |
----------------------------------
|1    |Boy          |123456    |
|2    |David        |25633     |
----------------------------------

when i try, the result is like this :
----------------------------------
|No   |Name        |Phone      |
----------------------------------
|1    |1            |1        |
|1    |1            |1        |
----------------------------------

Why???? and what i do in code 'todo', please help me....
Can you send me fully code or VB Project for this code?


Thank's
Best Regards.]]> Mon, 10 Jul 2006 22:32:29 +0000 http://forum.codejock.com/forum_posts.asp?TID=4560&PID=14098&title=load-records-from-ado-recordset#14098 <![CDATA[Load Records From ADO Recordset : Dim pCol As ReportColumn Dim pRecord...]]> http://forum.codejock.com/forum_posts.asp?TID=4560&PID=14077&title=load-records-from-ado-recordset#14077 Author: OscarM
Subject: 4560
Posted: 10 July 2006 at 3:02am

  Dim pCol As ReportColumn
  Dim pRecord As ReportRecord, pItem As ReportRecordItem
  Dim pField As ADODB.Field
  Dim i As Long
 
  For Each pField In Rs.Fields
    With Rp1
      Set pCol = .Columns.Add(i, pField.Name, 100, True)
      Select Case pField.Type
        Case adBigInt, adDecimal, adDouble, adInteger, adNumeric, adSingle, adSmallInt, adTinyInt
          'todo
        Case adBoolean
          'todo
        Case adDate, adDBDate, adDBTime, adDBTimeStamp
          'todo
      End Select
    End With
  Next
 
  Do Until Rs.EOF
    Set pRecord = Rp1.Records.Add
    For Each pField In Rs.Fields
      If pField.Type = adBoolean Then
        Set pItem = pRecord.AddItem("")
        pItem.HasCheckbox = True
        pItem.Checked = pField.Value = True
      Else
        Set pItem = pRecord.AddItem(pField.Value)
      End If
    Next
    Rs.MoveNext
  Loop
 
  Rp1.Populate
 
  Set pCol = Nothing
  Set pField = Nothing
  Set pRecord = Nothing
  Set pItem = Nothing
]]> Mon, 10 Jul 2006 03:02:00 +0000 http://forum.codejock.com/forum_posts.asp?TID=4560&PID=14077&title=load-records-from-ado-recordset#14077 <![CDATA[Load Records From ADO Recordset : Thank&#039;s B4, I&#039;m is...]]> http://forum.codejock.com/forum_posts.asp?TID=4560&PID=14074&title=load-records-from-ado-recordset#14074 Author: DueSoft
Subject: 4560
Posted: 09 July 2006 at 11:41pm

Thank's B4,

I'm is new use this control, can you help me.
please tell me way to write it's code?

Thank's]]> Sun, 09 Jul 2006 23:41:25 +0000 http://forum.codejock.com/forum_posts.asp?TID=4560&PID=14074&title=load-records-from-ado-recordset#14074 <![CDATA[Load Records From ADO Recordset : Hi,This should be done via your...]]> http://forum.codejock.com/forum_posts.asp?TID=4560&PID=14063&title=load-records-from-ado-recordset#14063 Author: sserge
Subject: 4560
Posted: 09 July 2006 at 8:49am

Hi,

This should be done via your code:
-- open a recordset;
-- iterate all records;
-- for every of them, create a corresponding ReportRecord object;
-- for every field of the record, add a corresponding ReportRecordItem object to the ReportRecord (for corresponding columns).
-- call ReportControl.Populate

--
WBR,
Serge
]]> Sun, 09 Jul 2006 08:49:08 +0000 http://forum.codejock.com/forum_posts.asp?TID=4560&PID=14063&title=load-records-from-ado-recordset#14063 <![CDATA[Load Records From ADO Recordset : Hi... Please help me... How...]]> http://forum.codejock.com/forum_posts.asp?TID=4560&PID=14053&title=load-records-from-ado-recordset#14053 Author: DueSoft
Subject: 4560
Posted: 08 July 2006 at 12:50am

Hi...

Please help me...

How to adding records item from ado recordset?

Thank's B4.]]> Sat, 08 Jul 2006 00:50:49 +0000 http://forum.codejock.com/forum_posts.asp?TID=4560&PID=14053&title=load-records-from-ado-recordset#14053