CreateObject in version 1.13

[Joe Caverly]

Thankyou for version 1.13

Works as advertised.

E:\...\vfp>timer e:\thinbasic\thinbasicc.exe test.tbasicc 
Timer 1 on: 17:42:06
Cust_id Date_trans      Part_id         Part_qty        Po_number       Notes   Emp_id          Invoiced    _dbaselock
C00001  1988/03/02      C-300-4010        5             55501           memo    991-22-3333     F   
C00001  1988/02/02      C-300-4010        1             51043           memo    111-22-5555     F   
C00001  1988/04/11      C-300-4010        1             57050           memo    111-22-5555     F   

Timer 1 off: 17:42:06  Elapsed: 0:00:00.660

uses "console"

dim oVFP as iDispatch

oVFP = CreateObject("VisualFoxPro.Application")

if IsComObject(oVFP) then
  oVFP.DoCmd("cd e:\utils")
  oVFP.DoCmd("SELECT * FROM orders WHERE part_id = 'C-300-4010' INTO CURSOR test")
  oVFP.DoCmd("Go Top")
  oVFP.DoCmd("_VFP.DataToClip(,,3)")
  oVFP.Quit()
  printl(ClipBoard_GetText)
EndIf

oVFP = Nothing

Joe

[ErosOlmi]

Thanks for testing!

[etermark]

Looks good! Just make sure your paths are correct and that the Visual FoxPro app is properly registered.