PDB Database Classes - FAQ
Links
Contact Us


 

Q. How do I use the PDB classes with an Appforge Database TYPE definition?

A. The PDB Classes do not support a direct pass of a Database Type VARS like in Appforge.  You have to do the update the long way:

Public Type typDynamicArrayData
    RecNo As String ' Record Number
    RecordType As Byte
    UpdateDate As Date
    DynamicArray As String
End Type

Dim aData As typDynamicArrayData
PDBReadRecord(dbHandle, VarPtr(aData))

You will need to do the following to accomplish the same things:

Set oByteStream = New PDBByteStream

' Reads the ByteStream for the PDB Record
oByteStream.ByteArray = oPDB.ReadNextByIndex(I, 0, 0, 0)
    
' Converts the ByteStream to an AppForge Record Format
Set oAppforgeData.AppforgeDefinition = oAppforgeHeader
Set oAppforgeData.ByteStream = oByteStream
    
' Updating the UDT
aData.RecNo = oAppforgeData.StringValue(1)
aData.RecordType = oAppforgeData.ByteValue(2)
aData.UpdateDate = oAppforgeData.DateValue(3)
aData.DynamicArray = oAppforgeData.StringValue(4)