{"id":1926,"date":"2014-11-14T00:22:17","date_gmt":"2014-11-14T00:22:17","guid":{"rendered":"https:\/\/alt2.minisoft.com\/support\/?p=1926"},"modified":"2016-09-24T09:18:28","modified_gmt":"2016-09-24T09:18:28","slug":"mpe-file-access-access-from-vb","status":"publish","type":"post","link":"https:\/\/c002.minisoft.com\/support\/mpe-file-access-access-from-vb\/","title":{"rendered":"MPE File Access &#8211; Access from VB"},"content":{"rendered":"<p class=\"subheads\"><strong><span style=\"font-family: Arial;\">The MDMDA session<\/span><\/strong><\/p>\n<p class=\"basic\"><span style=\"font-family: Arial;\">The MDMDA session object is being called from a Visual Basic application.<\/span><\/p>\n<p class=\"subheads\"><strong><span style=\"font-family: Arial;\">Download sample code [FTP] [HTTP]<\/span><\/strong><\/p>\n<pre>Option Explicit\r\n\r\nDim DA As Object\r\nDim FMPE As Object\r\n\r\nPrivate Sub Form_Load()\r\n\r\nDim Password As String\r\nDim fopt\r\nDim aopt\r\n\r\nSet DA = CreateObject(\"MdmDA.Session\")\r\nDA.HostAddress = \"support.minisoft.com\"\r\nDA.Port = 30002\r\nDA.LoginUser = \"MGR\"\r\nDA.LoginAccount = \"MINISOFT\"\r\nDA.UserPassword = InputBox(\"User Password\")\r\nDA.TraceFile = \"TEST.LOG\"\r\nDA.TimeOut = 10\r\nDA.TraceLevel = 15\r\nDA.Connect\r\n\r\nfopt = &amp;O4\r\naopt = &amp;O4\r\n\r\nIf DA.ConnectStatus = True Then\r\n\r\nSet FMPE = DA.AddMPEFileRef(\"ACMD1NEW\")\r\nFMPE.Delimiter = \",\"\r\nIf FMPE.FOpen(\"ACMD1NEW\", fopt, aopt, 80, 0) Then\r\nFMPE.AddItem \"REC1\", \"X\", 80, 0, 1, False, True\r\nElse\r\nMsgBox FMPE.ErrorMessage, vbCritical, \"FOpen\"\r\nEnd If\r\n\r\nEnd If\r\n\r\nWriteRec_Click\r\nErrorMessage = FMPE.ErrorMessage\r\nErrorNumber = FMPE.ErrorNumber\r\n\r\nEnd Sub\r\n\r\nPrivate Sub Form_Unload(Cancel As Integer)\r\n\r\nSet FMPE = Nothing\r\nDA.Disconnect\r\n\r\nSet DA = Nothing\r\nEnd\r\n\r\nEnd Sub\r\n\r\nPrivate Sub ReadRec_Click()\r\n\r\nRec1.Text = \"\"\r\nIf FMPE.FRead(80) Then\r\nRec1.Text = FMPE.Item(\"REC1\")\r\nElse\r\nIf (FMPE.ErrorNumber &lt;&gt; 0) Then\r\nMsgBox FMPE.ErrorMessage\r\nMsgBox FMPE.ErrorNumber\r\nEnd If\r\nEnd If\r\nErrorMessage = FMPE.ErrorMessage\r\nErrorNumber = FMPE.ErrorNumber\r\n\r\nEnd Sub\r\n\r\nPrivate Sub RewindCmd_Click()\r\n\r\nIf FMPE.FPoint(0) Then\r\nElse\r\nMsgBox FMPE.ErrorMessage\r\nMsgBox FMPE.ErrorNumber\r\nEnd If\r\nErrorMessage = FMPE.ErrorMessage\r\nErrorNumber = FMPE.ErrorNumber\r\n\r\nEnd Sub\r\n\r\nPrivate Sub WriteRec_Click()\r\n\r\nFMPE.Item(\"REC1\") = \"test\" + Format(Rnd(500))\r\nIf FMPE.FWrite(80) Then\r\nElse\r\nMsgBox FMPE.ErrorMessage\r\nMsgBox FMPE.ErrorNumber\r\nEnd If\r\nErrorMessage = FMPE.ErrorMessage\r\nErrorNumber = FMPE.ErrorNumber\r\n\r\nEnd Sub<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>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(&#8220;MdmDA.Session&#8221;) DA.HostAddress = &#8220;support.minisoft.com&#8221; DA.Port = 30002 DA.LoginUser = &#8220;MGR&#8221; DA.LoginAccount [&hellip;]<\/p>\n","protected":false},"author":75,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[61,54],"tags":[],"_links":{"self":[{"href":"https:\/\/c002.minisoft.com\/support\/wp-json\/wp\/v2\/posts\/1926"}],"collection":[{"href":"https:\/\/c002.minisoft.com\/support\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/c002.minisoft.com\/support\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/c002.minisoft.com\/support\/wp-json\/wp\/v2\/users\/75"}],"replies":[{"embeddable":true,"href":"https:\/\/c002.minisoft.com\/support\/wp-json\/wp\/v2\/comments?post=1926"}],"version-history":[{"count":1,"href":"https:\/\/c002.minisoft.com\/support\/wp-json\/wp\/v2\/posts\/1926\/revisions"}],"predecessor-version":[{"id":1927,"href":"https:\/\/c002.minisoft.com\/support\/wp-json\/wp\/v2\/posts\/1926\/revisions\/1927"}],"wp:attachment":[{"href":"https:\/\/c002.minisoft.com\/support\/wp-json\/wp\/v2\/media?parent=1926"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/c002.minisoft.com\/support\/wp-json\/wp\/v2\/categories?post=1926"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/c002.minisoft.com\/support\/wp-json\/wp\/v2\/tags?post=1926"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}