Results 1 to 3 of 3

Thread: CreateObject in version 1.13

  1. #1
    Member
    Join Date
    Feb 2023
    Location
    London, Ontario, Canada
    Posts
    37
    Rep Power
    5

    CreateObject in version 1.13

    Thankyou for version 1.13

    Works as advertised.

    1
    2
    3
    4
    5
    6
    7
    8
    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
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    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

  2. #2
    thinBasic author ErosOlmi's Avatar
    Join Date
    Sep 2004
    Location
    Milan - Italy
    Age
    57
    Posts
    8,818
    Rep Power
    10
    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

  3. #3
    Junior Member
    Join Date
    Jun 2023
    Posts
    7
    Rep Power
    2
    Looks good! Just make sure your paths are correct and that the Visual FoxPro app is properly registered.

Similar Threads

  1. Replies: 0
    Last Post: 31-08-2008, 22:07

Members who have read this thread: 8

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •