Written by

Question Sagun Tangsrisanguan · Jan 16, 2020

Why VISM cannot return result in PLIST

#Caché

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.OCX cannot return values to PLIST?

Thank

Discussion (7)1

Add reply

Comments

Vitaliy Serdtsev · Jan 17, 2020

Could you cite the test code for $$select^LVBEPVIS and run it from a VBScript program from Windows Explorer. Also give your $zv (interested primarily in 8-bit or Unicode).

My test for the Caché Unicode:

LVBEPVIS.MAC:<FONT COLOR="#ff0000">select</FONT><FONT COLOR="#000000">(n)
  </FONT><FONT COLOR="#0000ff">s </FONT><FONT COLOR="#800000">PLIST</FONT><FONT COLOR="#000000">=4
  </FONT><FONT COLOR="#0000ff">s </FONT><FONT COLOR="#800000">PLIST</FONT><FONT COLOR="#000000">(1)=</FONT><FONT COLOR="#008000">"018625110"
  </FONT><FONT COLOR="#0000ff">s </FONT><FONT COLOR="#800000">PLIST</FONT><FONT COLOR="#000000">(2)=</FONT><FONT COLOR="#008000">"01862511"</FONT><FONT COLOR="#000000"></FONT><FONT COLOR="#0000ff">$c</FONT><FONT COLOR="#000000">(9,233,769)
  </FONT><FONT COLOR="#0000ff">s </FONT><FONT COLOR="#800000">PLIST</FONT><FONT COLOR="#000000">(3)=</FONT><FONT COLOR="#008000">"F"</FONT><FONT COLOR="#000000"></FONT><FONT COLOR="#0000ff">$c</FONT><FONT COLOR="#000000">(1)</FONT><FONT COLOR="#008000">"Female"</FONT><FONT COLOR="#000000"></FONT><FONT COLOR="#0000ff">$c</FONT><FONT COLOR="#000000">(1)_</FONT><FONT COLOR="#008000">"Y"
  </FONT><FONT COLOR="#0000ff">s </FONT><FONT COLOR="#800000">PLIST</FONT><FONT COLOR="#000000">(4)=35633
  </FONT><FONT COLOR="#0000ff">q </FONT><FONT COLOR="#000000">1</FONT>
test.vbs:Set AxVisM1 = CreateObject("VISM.VisMCtrl.1")
AxVisM1.Server="CN_IPTCP:localhost[1972]:_system:@SYS"
AxVisM1.NameSpace="USER"
AxVisM1.Execute("s err="""",err=$$select^LVBEPVIS(""018625110"")")
WScript.Echo AxVisM1.PLIST
Result: