FiveTech Software tech support forums

... object. The "dual" nature of the Hash data type, being partly similar to arrays and partly to objects, finds its expression also in the syntactical notation that can be used for retrieving a value from a Hash. Both operators are supported, the array element operator [ ] and the : send ...

... e 0  A couple of things .. as you probably know ( perhaps from your comment ) .. oRs:RecordCount() returns a numeric value .. you also may have a syntactical error .. ( perhps ) oRSet:RecordCount should be coded like this --- oRSet:RecordCount() with the ending parenthesis. Suggestions : If oRset:RecordCount() ...

... table calls to recordsets, the quicker the migration will happen... it just 'clicked' with me. If you need help, this is the best place to get syntactical advice and suggestions .. Press on my friend !! Sql Server and ADO is a good choice. Rick Lipkin

Mulyadi

Try your insert code with this statement:

Code: Select all  Expand view

cSql := "INSERT INTO mulyadi.MyTable (KODE,KET) VALUES ( '" + txtKode + "','" + txtKet + "')"
 

I made some syntactical changes per my last post... Let me know how it works.

Rick Lipkin

... .. if you do not use a form adjust your code accordingly. Hopefully you will be able to modify the code to fit your situation and fix any untested syntactical errors I may have. Please note there are other ways of coding this to achieve the same result .. If you need any more examples or explanations ...

Rao

It WORKS in all situations ... :Click() :item(0) and in the case of a hyphen "-" in the Dom string ..

Thank you !!
Rick Lipkin

function OSendMulti( o, cMsg, uVal )   local aMsg  := HB_ATokens( cMsg, ":" )   local n     := Len( aMsg ) - If( uVal == nil, 0, 1 )   local p   AEval( aMsg, { |c| o := OSendEx( o, c ) }, 1, n )   if uVal != nil      o        := OS...

Rao The parameters seem to now work :Click() and :Item(0) .. however, now the "-" is erroring .. I appreciate your tenacity .. I know it is difficult to test this without the code. Very appreciative ! Rick Lipkin cSFD := "document:forms:tsf:lst-ib"OSendMulti( IE, cSFD+":...

Please try this now: function OSendMulti( o, cMsg, uVal )   local aMsg  := HB_ATokens( cMsg, ":" )   local n     := Len( aMsg ) - If( uVal == nil, 0, 1 )   local p   AEval( aMsg, { |c| o := OSendEx( o, c ) }, 1, n )   if uVal != nil...

Rao You have solved the hyphen "-" and the :item(0) function .. however the code does not now handle this type of method where you have an action .. like Click() cSSBD := "document:all:go" OSendMulti( IE, cSSBD+":Click()", ) // in func_lib.prg Application =========== Pa...

Mr Rick Now please try this function and let me know how this works. function OSendMulti( o, cMsg, uVal )   local aMsg  := HB_ATokens( cMsg, ":" )   local n     := Len( aMsg ) - If( uVal == nil, 0, 1 )   local p&n...

Rao A single function would be great .. I have been looking at the differences between your two iterations thinking I could test for one type of parameter or another .. I did try a dual try catch end try and got it working .. one other possibility that would defeat this strategy would be a combinati...

Yes.
Macros can not handle "-" and OSend (as I am using) can not handle "(x)"
I am thinking of how to make a better function to handle either situation.

Soon I shall post here

Rao YES .. the functions and parameters are now working .. however the dom string that contains a "-" hyphen again is broke cSFD := "document:forms:tsf:lst-ib"OSendMulti( IE, cSFD+":Value", cPARTS )   // in func_lib.prg  Application =========== Path and name: C:...

Please try this revised function as it is: function OSendMulti   local n   PARAMETERS o, cMsg, uVal   if PCount() > 2      if ( n := RAt( ":", cMsg ) ) > 0         o     := &&#...