MPE File Access – Access from VB

The MDMDA session

The MDMDA session object is being called from a Visual Basic application.

Download sample code [FTP] [HTTP]

Option Explicit

Dim DA As Object
Dim FMPE As Object

Private Sub Form_Load()

Dim Password As String
Dim fopt
Dim aopt

Set DA = CreateObject("MdmDA.Session")
DA.HostAddress = "support.minisoft.com"
DA.Port = 30002
DA.LoginUser = "MGR"
DA.LoginAccount = "MINISOFT"
DA.UserPassword = InputBox("User Password")
DA.TraceFile = "TEST.LOG"
DA.TimeOut = 10
DA.TraceLevel = 15
DA.Connect

fopt = &O4
aopt = &O4

If DA.ConnectStatus = True Then

Set FMPE = DA.AddMPEFileRef("ACMD1NEW")
FMPE.Delimiter = ","
If FMPE.FOpen("ACMD1NEW", fopt, aopt, 80, 0) Then
FMPE.AddItem "REC1", "X", 80, 0, 1, False, True
Else
MsgBox FMPE.ErrorMessage, vbCritical, "FOpen"
End If

End If

WriteRec_Click
ErrorMessage = FMPE.ErrorMessage
ErrorNumber = FMPE.ErrorNumber

End Sub

Private Sub Form_Unload(Cancel As Integer)

Set FMPE = Nothing
DA.Disconnect

Set DA = Nothing
End

End Sub

Private Sub ReadRec_Click()

Rec1.Text = ""
If FMPE.FRead(80) Then
Rec1.Text = FMPE.Item("REC1")
Else
If (FMPE.ErrorNumber <> 0) Then
MsgBox FMPE.ErrorMessage
MsgBox FMPE.ErrorNumber
End If
End If
ErrorMessage = FMPE.ErrorMessage
ErrorNumber = FMPE.ErrorNumber

End Sub

Private Sub RewindCmd_Click()

If FMPE.FPoint(0) Then
Else
MsgBox FMPE.ErrorMessage
MsgBox FMPE.ErrorNumber
End If
ErrorMessage = FMPE.ErrorMessage
ErrorNumber = FMPE.ErrorNumber

End Sub

Private Sub WriteRec_Click()

FMPE.Item("REC1") = "test" + Format(Rnd(500))
If FMPE.FWrite(80) Then
Else
MsgBox FMPE.ErrorMessage
MsgBox FMPE.ErrorNumber
End If
ErrorMessage = FMPE.ErrorMessage
ErrorNumber = FMPE.ErrorNumber

End Sub