PdcDatabase.CreateUserTable - Revision history

TC: /* Description */

2023-06-22T13:25:00Z

Description

← Older revision		Revision as of 13:25, 22 June 2023
Line 3:		Line 3:

	== Description ==		== Description ==
	Using this method you can create a usertable inclusive all fields ~~without any reorganization of the~~ database.<br>		Using this method you can create a usertable inclusive all fields, no manually database reorganisation needed.<br>
	This is only possible if the table doesn't exist already. To determine this use the method 'UserTableExists'.<br>		This is only possible if the table doesn't exist already. To determine this use the method 'UserTableExists'.<br>
	<br />		<br />
Line 31:		Line 31:
	* Indexed:<br />		* Indexed:<br />
	: text value, true or false.<br />		: text value, true or false.<br />




	== Notes ==		== Notes ==

TC: /* Code example */

2018-04-19T08:57:02Z

Code example

@@ Line 40: / Line 40: @@
 == Code example ==
 <source lang="vb">
 sub sCreateUserTable

TC at 14:24, 10 October 2017

2017-10-10T14:24:10Z

← Older revision		Revision as of 14:24, 10 October 2017
Line 42:		Line 42:
	<source lang="vb">		<source lang="vb">
	sub sCreateUserTable		sub sCreateUserTable
			dim strTableName
	dim strFieldData		dim strFieldData

TC at 14:23, 10 October 2017

2017-10-10T14:23:31Z

← Older revision		Revision as of 14:23, 10 October 2017
Line 44:		Line 44:
	dim strFieldData		dim strFieldData

	strTableName = "UT_TEST"		if pdc.Info.PDCVersion >= 5.1 then
	if not pdc.Database.UserTableExists(strTableName ) then		strTableName = "UT_TEST"
	strFieldData = "UT_TEXT~Tekstveld~TEXT~99~Default~0~~TRUE"		if not pdc.Database.UserTableExists(strTableName ) then
	strFieldData = strFieldData & "~UT_CHOICE~Keuzelijst~CHOICE~99~Yes~0~Yes#No#DontKnow~FALSE"		if pdc.Info.PDCVersion >= 5.3 then
	strFieldData = strFieldData & "~UT_NUMERIC~Getal~NUMERIC~0~99~4~~FALSE"		'Create indexed userfields
	strFieldData = strFieldData & "~UT_CURRENCY~Valuta~CURRENCY~0~99,99~2~~FALSE"		strFieldData = "UT_TEXT~Tekstveld~TEXT~99~Default~0~~TRUE"
	strFieldData = strFieldData & "~UT_DATE~Datum~DATE~0~~0~~FALSE"		strFieldData = strFieldData & "~UT_CHOICE~Keuzelijst~CHOICE~99~Yes~0~Yes#No#DontKnow~FALSE"
	strFieldData = strFieldData & "~UT_YESNO~Checkbox~YESNO~0~TRUE~~~FALSE"		strFieldData = strFieldData & "~UT_NUMERIC~Getal~NUMERIC~0~99~4~~FALSE"
	strFieldData = strFieldData & "~UT_MEMO~Memo~MEMO~0~~~~FALSE"		strFieldData = strFieldData & "~UT_CURRENCY~Valuta~CURRENCY~0~99,99~2~~FALSE"
	strFieldData = strFieldData & "~UT_TIMESTAMP~Datum/Tijd~TIMESTAMP~0~~~~FALSE"		strFieldData = strFieldData & "~UT_DATE~Datum~DATE~0~~0~~FALSE"
			strFieldData = strFieldData & "~UT_YESNO~Checkbox~YESNO~0~TRUE~~~FALSE"
			strFieldData = strFieldData & "~UT_MEMO~Memo~MEMO~0~~~~FALSE"
			strFieldData = strFieldData & "~UT_TIMESTAMP~Datum/Tijd~TIMESTAMP~0~~~~FALSE"
			else
			'Not indexed userfields
			strFieldData = "UT_TEXT~Tekstveld~TEXT~99~Default~0~"
			strFieldData = strFieldData & "~UT_CHOICE~Keuzelijst~CHOICE~99~Yes~0~Yes#No#DontKnow"
			strFieldData = strFieldData & "~UT_NUMERIC~Getal~NUMERIC~0~99~4~"
			strFieldData = strFieldData & "~UT_CURRENCY~Valuta~CURRENCY~0~99,99~2~"
			strFieldData = strFieldData & "~UT_DATE~Datum~DATE~0~~0~"
			strFieldData = strFieldData & "~UT_YESNO~Checkbox~YESNO~0~TRUE~~"
			strFieldData = strFieldData & "~UT_MEMO~Memo~MEMO~0~~~"
			strFieldData = strFieldData & "~UT_TIMESTAMP~Datum/Tijd~TIMESTAMP~0~~~"
			end if

	if pdc.Database.CreateUserTable(strTableName , strTableName , strFieldData) then		if pdc.Database.CreateUserTable(strTableName , strTableName , strFieldData) then
	msgbox "Table '" & strTableName & "' created successfull."		msgbox "Table '" & strTableName & "' created successfull."
			else
			msgbox "Error during creation of table '" & strTableName & "'." & vbCrLf & _
			"Error: " & pdc.LastError
			end if
	else		else
	msgbox "~~Error during creation of table~~ '" & strTableName & "'." ~~& vbCrLf & _~~		msgbox "Table '" & strTableName & "' already exists."
	~~"Error: " & pdc.LastError~~ end if		end if
	else		else
	msgbox "~~Table '" & strTableName & "' already exists~~."		msgbox "Free user tables only created from PdC version 5.1 onwards."
	end if		end if
	end sub		end sub

TC at 13:59, 10 October 2017

2017-10-10T13:59:33Z

← Older revision		Revision as of 13:59, 10 October 2017
Line 44:		Line 44:
	dim strFieldData		dim strFieldData

	strFieldData = "UT_TEXT~Tekstveld~TEXT~99~Default~0~~TRUE"		strTableName = "UT_TEST"
	strFieldData = strFieldData & "~UT_CHOICE~Keuzelijst~CHOICE~99~Yes~0~Yes#No#DontKnow~FALSE"		if not pdc.Database.UserTableExists(strTableName ) then
	strFieldData = strFieldData & "~UT_NUMERIC~Getal~NUMERIC~0~99~4~~FALSE"		strFieldData = "UT_TEXT~Tekstveld~TEXT~99~Default~0~~TRUE"
	strFieldData = strFieldData & "~UT_CURRENCY~Valuta~CURRENCY~0~99,99~2~~FALSE"		strFieldData = strFieldData & "~UT_CHOICE~Keuzelijst~CHOICE~99~Yes~0~Yes#No#DontKnow~FALSE"
	strFieldData = strFieldData & "~UT_DATE~Datum~DATE~0~~0~~FALSE"		strFieldData = strFieldData & "~UT_NUMERIC~Getal~NUMERIC~0~99~4~~FALSE"
	strFieldData = strFieldData & "~UT_YESNO~Checkbox~YESNO~0~TRUE~~~FALSE"		strFieldData = strFieldData & "~UT_CURRENCY~Valuta~CURRENCY~0~99,99~2~~FALSE"
	strFieldData = strFieldData & "~UT_MEMO~Memo~MEMO~0~~~~FALSE"		strFieldData = strFieldData & "~UT_DATE~Datum~DATE~0~~0~~FALSE"
	strFieldData = strFieldData & "~UT_TIMESTAMP~Datum/Tijd~TIMESTAMP~0~~~~FALSE"		strFieldData = strFieldData & "~UT_YESNO~Checkbox~YESNO~0~TRUE~~~FALSE"
			strFieldData = strFieldData & "~UT_MEMO~Memo~MEMO~0~~~~FALSE"
			strFieldData = strFieldData & "~UT_TIMESTAMP~Datum/Tijd~TIMESTAMP~0~~~~FALSE"

	~~if not pdc.Database.UserTableExists("UT_TEST") then~~		if pdc.Database.CreateUserTable(strTableName , strTableName , strFieldData) then
	if pdc.Database.CreateUserTable(~~"UT_TEST"~~, ~~"UT_TEST"~~, strFieldData) then		msgbox "Table '" & strTableName & "' created successfull."
	msgbox "~~Success~~"
	else		else
	msgbox "Error: " & pdc.LastError		msgbox "Error during creation of table '" & strTableName & "'." & vbCrLf & _
	end if ~~'pdc.Database.CreateUserTable("UT_TEST", "UT_TEST", strFieldData)~~		"Error: " & pdc.LastError end if
	else		else
	msgbox "Table already exists."		msgbox "Table '" & strTableName & "' already exists."
	end if ~~'pdc.Database.UserTableExists("UT_TEST")~~		end if
			end sub
	end sub ~~'sCreateUserTable~~
	</source>		</source>

Arjan at 13:44, 11 May 2017

2017-05-11T13:44:10Z

← Older revision		Revision as of 13:44, 11 May 2017
Line 67:		Line 67:

	== Availability ==		== Availability ==
	Available since 11-12-2015 (from version 5.1 onwards)		Available since 11-12-2015 (from version 5.1 onwards) <br />
	parameter Indexed is available since 05-11-2017 (from 5.3 onwards)		parameter Indexed is available since 05-11-2017 (from 5.3 onwards)

Arjan at 13:43, 11 May 2017

2017-05-11T13:43:50Z

← Older revision		Revision as of 13:43, 11 May 2017
Line 68:		Line 68:
	== Availability ==		== Availability ==
	Available since 11-12-2015 (from version 5.1 onwards)		Available since 11-12-2015 (from version 5.1 onwards)
			parameter Indexed is available since 05-11-2017 (from 5.3 onwards)

Arjan at 13:41, 11 May 2017

2017-05-11T13:41:49Z

← Older revision		Revision as of 13:41, 11 May 2017
Line 7:		Line 7:
	<br />		<br />
	<br />		<br />
	The FieldData parameter is the most important and complex parameter in this method. It consists of 7 elements, separated by ~.<br />		The FieldData parameter is the most important and complex parameter in this method. It consists of 8 elements, separated by ~.<br />
	* Field Name:<br />		* Field Name:<br />
	:text value, cannot be empty, cannot exist in UF_FIELDNAME or VELDNAAM.<br />		:text value, cannot be empty, cannot exist in UF_FIELDNAME or VELDNAAM.<br />
Line 29:		Line 29:
	* Choices:<br />		* Choices:<br />
	: text value, separated by #.<br />		: text value, separated by #.<br />
			* Indexed:<br />
			: text value, true or false.<br />


Line 42:		Line 44:
	dim strFieldData		dim strFieldData

	strFieldData = "UT_TEXT~Tekstveld~TEXT~99~Default~0~"		strFieldData = "UT_TEXT~Tekstveld~TEXT~99~Default~0~~TRUE"
	strFieldData = strFieldData & "~UT_CHOICE~Keuzelijst~CHOICE~99~Yes~0~Yes#No#DontKnow"		strFieldData = strFieldData & "~UT_CHOICE~Keuzelijst~CHOICE~99~Yes~0~Yes#No#DontKnow~FALSE"
	strFieldData = strFieldData & "~UT_NUMERIC~Getal~NUMERIC~0~99~4~"		strFieldData = strFieldData & "~UT_NUMERIC~Getal~NUMERIC~0~99~4~~FALSE"
	strFieldData = strFieldData & "~UT_CURRENCY~Valuta~CURRENCY~0~99,99~2~"		strFieldData = strFieldData & "~UT_CURRENCY~Valuta~CURRENCY~0~99,99~2~~FALSE"
	strFieldData = strFieldData & "~UT_DATE~Datum~DATE~0~~0~"		strFieldData = strFieldData & "~UT_DATE~Datum~DATE~0~~0~~FALSE"
	strFieldData = strFieldData & "~UT_YESNO~Checkbox~YESNO~0~TRUE~~"		strFieldData = strFieldData & "~UT_YESNO~Checkbox~YESNO~0~TRUE~~~FALSE"
	strFieldData = strFieldData & "~UT_MEMO~Memo~MEMO~0~~~"		strFieldData = strFieldData & "~UT_MEMO~Memo~MEMO~0~~~~FALSE"
	strFieldData = strFieldData & "~UT_TIMESTAMP~Datum/Tijd~TIMESTAMP~0~~~"		strFieldData = strFieldData & "~UT_TIMESTAMP~Datum/Tijd~TIMESTAMP~0~~~~FALSE"

	if not pdc.Database.UserTableExists("UT_TEST") then		if not pdc.Database.UserTableExists("UT_TEST") then

TC at 12:06, 9 February 2016

2016-02-09T12:06:05Z

@@ Line 39: / Line 39: @@
 <source lang="vb">
 </source>
 == Availability ==
 Available since 11-12-2015 (from version 5.1 onwards)

TC at 11:53, 9 February 2016

2016-02-09T11:53:26Z

← Older revision		Revision as of 11:53, 9 February 2016
Line 8:		Line 8:
	<br />		<br />
	The FieldData parameter is the most important and complex parameter in this method. It consists of 7 elements, separated by ~.<br />		The FieldData parameter is the most important and complex parameter in this method. It consists of 7 elements, separated by ~.<br />
	* Field Name<br />		* Field Name:<br />
	:text value, cannot be empty, cannot exist in UF_FIELDNAME or VELDNAAM.<br />		:text value, cannot be empty, cannot exist in UF_FIELDNAME or VELDNAAM.<br />
	* Field Description<br />		* Field Description:<br />
	: text value<br />		: text value. This text will be stored in the long fieldname in the user's language in the VELDNAAM table.<br />
	* Field Type: <br />		* Field Type: <br />
	: TEXT: Length >0, number of decimals = 0 and the length of the default value <= length <br />		: TEXT: Length >0, number of decimals = 0 and the length of the default value <= length.<br />
	: CHOICE: text value, length >0, number of decimals = 0, and the length of the default value <= length, choices are separated by #. If a default value is provided it needs to exists in the list of choices.<br />		: CHOICE: text value, length >0, number of decimals = 0, and the length of the default value <= length, choices are separated by #. If a default value is provided it needs to exists in the list of choices.<br />
	: NUMERIC: fieldlength = 0, number of decimals <~~+ 00~~, if a default value is provided it needs to be numeric.<br />		: NUMERIC: fieldlength = 0, number of decimals <= 99, if a default value is provided it needs to be numeric.<br />
	: CURRENCY: fieldlength = 0, number of decimals <~~+ 00~~, if a default value is provided it needs to be numeric.<br />		: CURRENCY: fieldlength = 0, number of decimals <= 99, if a default value is provided it needs to be numeric.<br />
			: DATE: fieldlength = 0, number of decimals = 0, default value is emtpy.<br />
			: YESNO: fieldlength = 0, number of decimals = 0, default value is empty (will be created as false), FALSE, TRUE.<br />
			: MEMO: fieldlength = 0, number of decimals = 0, default value is emtpy.<br />
			: TIMESTAMP: fieldlength = 0, number of decimals = 0, default value is emtpy.<br />
			* Field length:<br />
			: see specifics per field type above.<br />
			* Default value:<br />
			: see specifics per field type above.<br />
			* Number of decimals:<br />
			: see specifics per field type above.<br />
			* Choices:<br />
			: text value, separated by #.<br />