Thanks for testing!
Thankyou for version 1.13
Works as advertised.
12345678E:\...\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
Joe
12345678910111213141516uses
"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
Thanks for testing!
www.thinbasic.com | www.thinbasic.com/community/ | help.thinbasic.com
Windows 10 Pro for Workstations 64bit - 32 GB - Intel(R) Xeon(R) W-10855M CPU @ 2.80GHz - NVIDIA Quadro RTX 3000
Looks good! Just make sure your paths are correct and that the Visual FoxPro app is properly registered.
Bookmarks