Form1
PX  Create
Form1%
ResLabel
PXTblCreate Result
ReturnCode
Command1
Generate Test File
GetRaten
nZone
TestStrings
lpStrs
Command1_Click
	AnsiUpper
lpString
PxFields
str1c
str2l
str3u
str49
SpyCls~
Command2_Click
Aarray
PxField
str7!
str10
str11
str12n
str13
str14
str15
str16T
str17
PxTypes9
PXTblCreate
lpName
	NumFields
Types
FLD21
FLD3)
TYP0a
TYP4y
PxType
Text1
	TableName
	PXWinInit
AppName
PxShare
PXExit
ReturnCode
Form_Click
engine
windows
programmers
	reference
Paradox
problem
creating
table
 This code is provided "AS IS" into the public domain.
 I needed to use The paradox engine with VB and this is my solution to
 the problem of creating a table with the paradox engine and VB. I put
 this together very quickly and did not have much time testing. There maye
 be BUGS in this code that I have not found!
 It is your responsibility to determine if it is suitible for your purposes.
 Jim Nechu
 OutRider Systems (Producers of Custom Controls for Visual Basic)r
 Voice: 713-521-0486
 Fax: 713-523-0386
 SEE: The programmers reference for Paradox for windows for.
 complete descriptions of all Paradox functions available.
 The following two functions are needed anytime you use the Paradox engine .
 for windows.g
pxengwin.dlln
pxengwin.dll
 This is the Paradox engine function that creates a data file. Two of it's
 arguments are pointers to arrays of pointers to strings. Since VB doesn't
 provide for arrays of pointers to strings we will have to improvise. Seet
 the next declare statement.
pxengwin.dll
 This is a standard windows API call. We use it because it returns the far
 address of it's string argument.a
 We are going to lie to VB and tell VB that it is returning a long. Thea
 reason for this is that we need to store this value in one of the elementse
 of an array of longs. A long is the same size as a far address. We are then
 going to pass the PXTblCreate function a pointer to an array of longs
 instead of a pointer to an array of pointers to strings. If the elementss
 of the array of longs are actually addresses of strings then it's address
 is actually a pointer to an array of pointers to strings.
 The following arrays will hold the pointers to strings. To see how they are
 used see the code attached to the Command1 button..
Command1_Click
 This code is provided "AS IS" into the public domain. a
 I needed to use The paradox engine with VB and this is my solution to
 the problem of creating a table with the paradox engine and VB. I put
 this together very quickly and did not have much time testing. There mayy
 be BUGS in this code that I have not found! m
 It is your responsibility to determine if it is suitible for your purposes.
 Jim Nechh
 OutRider Systems (Producers of Custom Controls for Visual Basic)r
 Voice: 713-521-0486
 Fax: 713-523-0386
 See the declarations for this module for more detailed information on
 The various DLL calls and their arguments..
Numeric Field
 First field name
Alpha Field
 Second field name
Date Field
 Ditto
Currency Field
 Ditto
Short Field
 Ditto o
 Assign the addresses of the strings that define the field names
 to the elements of the fields array.t
 First field typed
 Second field type
 Ditto n
 Assign the addresses of the strings that define the field types toe
 the elements of the Types array.n
table
 This is the name of the table to create
TESTSTR
 Initialize paradox for windowsr
 Make the call to create the table
 Exit paradox for windows
 Save the return code and display it