Question Sagun Tangsrisanguan · May 30, 2022

Hi

I use VB.net and add reference VISM.OCX in my project to fetch my data in global ^ztonMS it had 4000 record 

code is

 AxVisM1.MServer = "CN_IPTCP:" & TCLServer & ":" & Authen
        AxVisM1.NameSpace = TCLNamespace

        AxVisM1.P0 = ""
        AxVisM1.P1 = ""
        AxVisM1.P2 = ""

        AxVisM1.P3 = ""

       AxVisM1.P4 = ""

        'AxVisM1.Execute("d RefRange^NHSNAV2")

        While True
            AxVisM1.Execute("set P0=$o(^ztonMS(""REF"",P0))")
            AxVisM1.Execute("s P1=$g(^ztonMS(""REF"",P0))")

            xP1 = AxVisM1.P0.ToString

            If (AxVisM1.P0.

1
0 203
Question Sagun Tangsrisanguan · Jan 16, 2020

Hello Everyone

I use VB.NET to dev. some program for query data 

Code in VB like this

 

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click     

 AxVisM1.MServer = "CN_IPTCP:myserver[1972]"
            AxVisM1.NameSpace = "LABDATA"
            AxVisM1.Code = "s err="""",err=$$select^LVBEPVIS(""" & ln & """)"
            AxVisM1.Execute(AxVisM1.Code)
        

        tmptxt = AxVisM1.PLIST.ToString

messagebox.show(tmptxt)

 

but it show only 

 

and then i try to run same command in Cterm. it show 

Could you suggest  What wrong ? and Why VISM.

7
0 449