Let's start a new message thread with a charter to create the afore-mentioned libs.
I vote to call it BLinkLib (BasicLinkLibray)
Any other votes for the name of the COM object?
ie:
Option Explicit
Private CurRecord as BLinkLib.Record
Private CurField as BLinkLib.Field
Private BLink as New BLinkLib.BLink
Private WithEvents Pipe1 as BLinkLib.Pipe
Sub main()
Set Pipe1=BLink.GetPipe("Protege","Ver 1.0")
With Pipe1
.Path= "C:\DataFiles\"
.GetData "Data1.dbk"
End With
Str=""
For Each CurRecord in BLink.Records
For Each CurField in CurRecord.Fields
'Note
'Line below might be word wrapped
Str=Str & "{" & CurField.name & ":" & CurField.Value & "}"
'Note End
Next 'CurField
Str= Str & vbCrLf
Next 'CurRecord
Me.Print Str 'Test by outputing to fmMain
End Sub
|   |