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.