Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Chris Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Unresolved External TOPSPEED in Name.obj

Status
Not open for further replies.

ZSteve

Programmer
May 31, 2012
21
AU
Hi all,
I get the above error message in hand code created, based on the Hello, Lesson 13 app.
As I am new to the Clarion code, any help would be very much appreciated.
Regards, Steve

The code is as follows:

PROGRAM

OMIT('***')
* Created with Clarion 9.1
* User: Steve
* Date: 30/06/2014
* Time: 10:43 PM
***
INCLUDE('Keycodes.CLW')
INCLUDE('Errors.CLW')
MAP
UpdateName PROCEDURE
Main PROCEDURE

END

Name1 FILE,DRIVER('TopSpeed'),CREATE
Rec RECORD
Name STRING(20)
END
END

CODE
Main

Main PROCEDURE
AppFrame APPLICATION('Update Name'),AT(,,280,200),SYSTEM,RESIZE,MAX
MENUBAR
MENU('&File'),USE(?File)
ITEM('&Browse Phones'),USE(?FileBrowsePhones)
ITEM,SEPARATOR
ITEM('E&xit'),USE(?FileExit),STD(STD:Close)
END
ITEM('&Update Name!'),USE(?UpdateName)
END
END
CODE
OPEN(AppFrame)
ACCEPT
CASE ACCEPTED()
OF ?UpdateName
Start(UpdateName,25000)
END
END ! ACCEPT

UpdateName PROCEDURE
!ReturnValue LONG,AUTO
window WINDOW('Update Name'),AT(,,185,92),SYSTEM,GRAY,RESIZE,MDI
PROMPT('N&ame:'),AT(14,14),USE(?Prompt1)
ENTRY(@s20),AT(68,13),USE(Name1.Rec.Name),REQ
BUTTON('OK'),AT(45,74),USE(?Ok),REQ,DEFAULT
BUTTON('Cancel'),AT(109,74,32,14),USE(?Cancel)
END

CODE
OPEN(window)
DO OpenFile
GET(Name1,1)

ACCEPT
CASE FIELD()
OF ?Ok
CASE EVENT()
OF EVENT:Accepted
PUT(Name1,1)

IF ERRORCODE() THEN STOP(ERROR()).
POST(EVENT:CloseWindow)
END
OF ?Cancel
CASE EVENT()
OF EVENT:Accepted
POST(EVENT:CloseWindow)
END
END
END
!RETURN

OpenFile ROUTINE
OPEN(Name1,42h)
CASE ERRORCODE()
OF NoError
OROF IsOpenErr
EXIT
OF NoFileErr
CREATE(Name1)
IF ERRORCODE() THEN STOP(ERROR()).
OPEN(Name1,42h)
IF ERRORCODE() THEN STOP(ERROR()).
ELSE
STOP(ERROR())
RETURN
END


 
You have to add TOPSPEED driver to the Database driver libraries in the project.
 
Thanks for your reply newtoclarion,
How do you Add TopSpeed driver to the Database driver libraries in the project?
Regards, Steve
 
I don't have clarion 9 but it should me the same sequence as 6.3
it is from menu bar choose project -> Properties, you should see the Project Tree. in this tree you scroll down until you find Database driver libraries, when you double click on it will give the list of database drivers, you select TOPSPEED .


HTH


Regards
 
Hi HTH,
Your suggestion has worked. Thank you very much for that.

This is how it works in Clarion 9.1.
Main Menu > Project > Add > File Driver > highligt TopSpeed(TPS) and click on Select button.

Regards, Steve
 
You are welcome anytime.
by the way my name is SK (HTH stands for Hope This Helps) [smile]
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top