DBAccess Control 64 Field Limitation

[MikeColledge]

I'm using PowerCOBOL version 7 and have run into a problem. I'm using an MS Access database. The PowerCOBOL DBAccess control will allow me to access only 64 fields from the table. This table contains over 100 fields and I need all of them. How can I get access to all of the fields? Any assistance will be greatly appreciated!

 

[fredericofonseca]

No way around it.

Use another control for DB access such as the Microsoft ADO Data Control.

or even other of your choice. See

http://www.vbxtras.com

for several options.


Regards

Frederico Fonseca
SysSoft Integrated Ltd

http://www.syssoft-int.com

 

[Tromba]

Hi Mike

I suggest you to use OleAutomation to manage your MsAccess database, connecteting it to the ODBC driver using the SQLODBCS.EXE utility in the Netcobol for Windows folder.

Gianni

 

[fsccdm]

If you have licensed datagrid control from microsoft you can use PcobADODatasource from version 7. I work with more 220 fields correctly. See samples on v7. For retrieve data from field you can use only the property "Col" and "TEXT" of datagrid
(ex: MOVE SPACE TO RIGA-COND V-CHIAVE

MOVE "Text" OF CO-SETT TO V-CH1
MOVE "Text" OF TB-COD TO V-CH2
STRING
"(CV068 = '" DELIMITED BY SIZE
V-CHIAVE DELIMITED BY SIZE
"')" DELIMITED BY SIZE
INTO RIGA-COND

MOVE 0 TO SW-EXIST
MOVE RIGA-COND TO "Filter" OF "RecordSet" OF CM-AD1
IF SW-EXIST = 1
INVOKE "REcordSet" OF CM-AD1 "AddNew"
END-IF.

PERFORM CAR-1
.
FINE.
EXIT PROGRAM.
CAR-1.
********
MOVE 68 TO "Col" OF DB-GR1
MOVE V-CHIAVE TO "Text" OF DB-GR1
*********
MOVE 0 TO "Col" OF DB-GR1
MOVE "Text" OF TB-COD TO "Text" OF DB-GR1

MOVE 1 TO "Col" OF DB-GR1

MOVE SPACE TO SW-SOGG
MOVE "Text" OF CO-SOGG TO SW-SOGG
************************************
fsccdm