ODBC Programming Overview - Revision history

Badge at 09:33, 29 May 2009

2009-05-29T09:33:12Z

← Older revision		Revision as of 09:33, 29 May 2009
Line 19:		Line 19:

	'''Example 1:'''		'''Example 1:'''
-		+
	Here is how to open the sample Northwind Traders database. Your program must use the dbOpen command and specify the data source name. The Internet Basic statements would look like this:		Here is how to open the sample Northwind Traders database. Your program must use the dbOpen command and specify the data source name. The Internet Basic statements would look like this:

-	Length 254 & Local Result$	+	100 Length 254 & Local Result$
-	Set ODBC = 1	+	200 Set ODBC = 1
-	~~Open~~ (ODBC) “G00” ! open ODBC gateway	+	300 open (ODBC) “G00” ! open ODBC gateway
-	Result$ = CONTROL(ODBC,”dbOpen:DSN=Northwind”)	+	400 Result$ = CONTROL(ODBC,”dbOpen:DSN=Northwind”)


Line 32:		Line 32:
	Here is how to set the database options to report StateNativeOrigin error codes and use the cursor library.		Here is how to set the database options to report StateNativeOrigin error codes and use the cursor library.

-	Length 254 & Local Result$	+	100 Length 254 & Local Result$
-	Set ODBC = 1	+	200 Set ODBC = 1
-	~~Open~~ (ODBC) “G00” ! open ODBC gateway	+	300 open (ODBC) “G00” ! open ODBC gateway
-	~~Result~~$ = Control(ODBC, "dbSetOptions:ErrorCodes;UseCursorLib")	+	400 result$ = Control(ODBC, "dbSetOptions:ErrorCodes;UseCursorLib")
-	If (Sub(Result$, 1, 1) EQ “-“)	+	500 If (Sub(Result$, 1, 1) EQ “-“)
-	~~Print~~ “Error:”;Result$8	+	600 print “Error:”;Result$8
-	Goto Error Return	+	700 Goto Error Return
-	EndIf	+	800 EndIf

	Some ODBC commands must be followed immediately by a Internet Basic WRITE in order to supply additional information to the driver. An example is the dbDefineRecordset command, where the recordset definition map (i.e., record layout) must be provided to the ODBC driver immediately after the dbDefineRecordset command is issued.		Some ODBC commands must be followed immediately by a Internet Basic WRITE in order to supply additional information to the driver. An example is the dbDefineRecordset command, where the recordset definition map (i.e., record layout) must be provided to the ODBC driver immediately after the dbDefineRecordset command is issued.
Line 46:		Line 46:

	'''fieldname, size; fieldname, size; fieldname, size (etc.)'''		'''fieldname, size; fieldname, size; fieldname, size (etc.)'''
-	The following example shows a recordset definition map for three database fields, FirstName (25 characters), LastName (25 characters), and Age (numeric, 3.0). Note that this information is written to the ODBC driver immediately after the recordset has been defined.	+
		+	The following example shows a recordset definition map for three database fields,<BR/>
		+	FirstName (25 characters), LastName (25 characters), and Age (numeric, 3.0).<BR/>
		+	Note that this information is written to the ODBC driver immediately after the recordset has been defined.

	''' Example 3:'''		''' Example 3:'''

Badge at 09:27, 29 May 2009

2009-05-29T09:27:08Z

← Older revision		Revision as of 09:27, 29 May 2009
Line 22:		Line 22:
	Here is how to open the sample Northwind Traders database. Your program must use the dbOpen command and specify the data source name. The Internet Basic statements would look like this:		Here is how to open the sample Northwind Traders database. Your program must use the dbOpen command and specify the data source name. The Internet Basic statements would look like this:

-	Length 254 & Local Result$	+	Length 254 & Local Result$
-	Set ODBC = 1	+	Set ODBC = 1
	Open (ODBC) “G00” ! open ODBC gateway		Open (ODBC) “G00” ! open ODBC gateway
	Result$ = CONTROL(ODBC,”dbOpen:DSN=Northwind”)		Result$ = CONTROL(ODBC,”dbOpen:DSN=Northwind”)
Line 32:		Line 32:
	Here is how to set the database options to report StateNativeOrigin error codes and use the cursor library.		Here is how to set the database options to report StateNativeOrigin error codes and use the cursor library.

-	Length 254 & Local Result$	+	Length 254 & Local Result$
-	Set ODBC = 1	+	Set ODBC = 1
	Open (ODBC) “G00” ! open ODBC gateway		Open (ODBC) “G00” ! open ODBC gateway
	Result$ = Control(ODBC, "dbSetOptions:ErrorCodes;UseCursorLib")		Result$ = Control(ODBC, "dbSetOptions:ErrorCodes;UseCursorLib")
	If (Sub(Result$, 1, 1) EQ “-“)		If (Sub(Result$, 1, 1) EQ “-“)
-	Print “Error:”;Result$8	+	Print “Error:”;Result$8
-	Goto Error Return	+	Goto Error Return
	EndIf		EndIf

Badge at 09:23, 29 May 2009

2009-05-29T09:23:02Z

← Older revision		Revision as of 09:23, 29 May 2009
Line 51:		Line 51:

	100 ! This FORMAT contains the recordset definition map		100 ! This FORMAT contains the recordset definition map
-	200 RSDefinition: FORMAT “FirstName, 25; LastName, 25 ; Age, 3.0”	+	200 RSDefinition: FORMAT “FirstName, 25; LastName, 25 ; Age, 3.0”
-	300 Length 254 & Local Result$	+	300 Length 254 & Local Result$
-	400 Set ODBC = 1	+	400 Set ODBC = 1
-	500 Open (ODBC) “G00” ! open ODBC gateway	+	500 Open (ODBC) “G00” ! open ODBC gateway
	600 ! Define a recordset named “MyRecordset”		600 ! Define a recordset named “MyRecordset”
	700 Result$ = Command(Lun, “dbDefineRecordset:MyRecordset”)		700 Result$ = Command(Lun, “dbDefineRecordset:MyRecordset”)
	800 If (Sub(Result$, 1, 1) EQ "+") ! Successful		800 If (Sub(Result$, 1, 1) EQ "+") ! Successful
	900 ! Definition map MUST be provided immediately		900 ! Definition map MUST be provided immediately
-	1000 Write (Lun, RSDefinition) Excp = BadDefinition	+	1000 Write (Lun, RSDefinition) Excp = BadDefinition
-	1100 EndIf	+	1100 EndIf

Badge at 08:58, 29 May 2009

2009-05-29T08:58:21Z

← Older revision		Revision as of 08:58, 29 May 2009
Line 51:		Line 51:

	100 ! This FORMAT contains the recordset definition map		100 ! This FORMAT contains the recordset definition map
-
	200 RSDefinition: FORMAT “FirstName, 25; LastName, 25 ; Age, 3.0”		200 RSDefinition: FORMAT “FirstName, 25; LastName, 25 ; Age, 3.0”
-
	300 Length 254 & Local Result$		300 Length 254 & Local Result$
	400 Set ODBC = 1		400 Set ODBC = 1
-
	500 Open (ODBC) “G00” ! open ODBC gateway		500 Open (ODBC) “G00” ! open ODBC gateway
-
	600 ! Define a recordset named “MyRecordset”		600 ! Define a recordset named “MyRecordset”
-
	700 Result$ = Command(Lun, “dbDefineRecordset:MyRecordset”)		700 Result$ = Command(Lun, “dbDefineRecordset:MyRecordset”)
-
	800 If (Sub(Result$, 1, 1) EQ "+") ! Successful		800 If (Sub(Result$, 1, 1) EQ "+") ! Successful
	900 ! Definition map MUST be provided immediately		900 ! Definition map MUST be provided immediately
	1000 Write (Lun, RSDefinition) Excp = BadDefinition		1000 Write (Lun, RSDefinition) Excp = BadDefinition
	1100 EndIf		1100 EndIf

Badge at 08:57, 29 May 2009

2009-05-29T08:57:11Z

← Older revision		Revision as of 08:57, 29 May 2009
Line 50:		Line 50:
	''' Example 3:'''		''' Example 3:'''

-	! This FORMAT contains the recordset definition map	+	100 ! This FORMAT contains the recordset definition map

-	RSDefinition: FORMAT “FirstName, 25; LastName, 25 ; Age, 3.0”	+	200 RSDefinition: FORMAT “FirstName, 25; LastName, 25 ; Age, 3.0”

-	Length 254 & Local Result$	+	300 Length 254 & Local Result$
-	Set ODBC = 1	+	400 Set ODBC = 1

-	Open (ODBC) “G00” ! open ODBC gateway	+	500 Open (ODBC) “G00” ! open ODBC gateway
		+
		+	600 ! Define a recordset named “MyRecordset”

-	~~! Define a recordset named “MyRecordset”~~	+	700 Result$ = Command(Lun, “dbDefineRecordset:MyRecordset”)

-	~~Result$ = Command(Lun, “dbDefineRecordset:MyRecordset”)~~	+	800 If (Sub(Result$, 1, 1) EQ "+") ! Successful
-		+	900 ! Definition map MUST be provided immediately
-	If (Sub(Result$, 1, 1) EQ "+") ! Successful	+	1000 Write (Lun, RSDefinition) Excp = BadDefinition
-	! Definition map MUST be provided immediately	+	1100 EndIf
-	Write (Lun, RSDefinition) Excp = BadDefinition	+
-	EndIf	+

Badge at 08:54, 29 May 2009

2009-05-29T08:54:44Z

← Older revision		Revision as of 08:54, 29 May 2009
Line 54:		Line 54:
	RSDefinition: FORMAT “FirstName, 25; LastName, 25 ; Age, 3.0”		RSDefinition: FORMAT “FirstName, 25; LastName, 25 ; Age, 3.0”

-	Length 254 & Local Result$	+	Length 254 & Local Result$
-	Set ODBC = 1	+	Set ODBC = 1

	Open (ODBC) “G00” ! open ODBC gateway		Open (ODBC) “G00” ! open ODBC gateway
Line 61:		Line 61:
	! Define a recordset named “MyRecordset”		! Define a recordset named “MyRecordset”

-	Result$ = Command(Lun, “dbDefineRecordset:MyRecordset”)	+	Result$ = Command(Lun, “dbDefineRecordset:MyRecordset”)

-	If (Sub(Result$, 1, 1) EQ "+") ! Successful	+	If (Sub(Result$, 1, 1) EQ "+") ! Successful
	! Definition map MUST be provided immediately		! Definition map MUST be provided immediately
-	Write (Lun, RSDefinition) Excp = BadDefinition	+	Write (Lun, RSDefinition) Excp = BadDefinition
-	EndIf	+	EndIf

Badge at 08:53, 29 May 2009

2009-05-29T08:53:24Z

← Older revision		Revision as of 08:53, 29 May 2009
Line 48:		Line 48:
	The following example shows a recordset definition map for three database fields, FirstName (25 characters), LastName (25 characters), and Age (numeric, 3.0). Note that this information is written to the ODBC driver immediately after the recordset has been defined.		The following example shows a recordset definition map for three database fields, FirstName (25 characters), LastName (25 characters), and Age (numeric, 3.0). Note that this information is written to the ODBC driver immediately after the recordset has been defined.

-		+	''' Example 3:'''
-	'''Example 3:'''	+

-	This FORMAT contains the recordset definition map~~! 1~~	+	! This FORMAT contains the recordset definition map
-	RSDefinition: FORMAT “FirstName, 25; LastName, 25 ; Age, 3.0”~~! 2~~	+
-	Length 254 & Local Result$~~! 3~~	+	RSDefinition: FORMAT “FirstName, 25; LastName, 25 ; Age, 3.0”
-	Set ODBC = 1~~! 4~~	+
-	Open (ODBC) “G00” - open ODBC gateway~~! 5~~	+	Length 254 & Local Result$
-	Define a recordset named “MyRecordset”~~! 6~~	+	Set ODBC = 1
-	Result$ = Command(Lun, “dbDefineRecordset:MyRecordset”) ~~! 7~~	+
-	! If (Sub(Result$, 1, 1) EQ "~~PLUSSIGN~~") - Successful ~~! 8~~	+	Open (ODBC) “G00” ! open ODBC gateway
-	! Definition map MUST be provided immediately ~~! 9~~	+
-	Write (Lun, RSDefinition) Excp = BadDefinition~~! 10~~	+	! Define a recordset named “MyRecordset”
-	EndIf~~! 11~~	+
		+	Result$ = Command(Lun, “dbDefineRecordset:MyRecordset”)
		+
		+	If (Sub(Result$, 1, 1) EQ "+") ! Successful
		+	! Definition map MUST be provided immediately
		+	Write (Lun, RSDefinition) Excp = BadDefinition
		+	EndIf

Badge at 08:45, 29 May 2009

2009-05-29T08:45:10Z

← Older revision		Revision as of 08:45, 29 May 2009
Line 58:		Line 58:
	Define a recordset named “MyRecordset”! 6		Define a recordset named “MyRecordset”! 6
	Result$ = Command(Lun, “dbDefineRecordset:MyRecordset”) ! 7		Result$ = Command(Lun, “dbDefineRecordset:MyRecordset”) ! 7
-	If (Sub(Result$, 1, 1) EQ "PLUSSIGN") - Successful ! 8	+	! If (Sub(Result$, 1, 1) EQ "PLUSSIGN") - Successful ! 8
	! Definition map MUST be provided immediately ! 9		! Definition map MUST be provided immediately ! 9
	Write (Lun, RSDefinition) Excp = BadDefinition! 10		Write (Lun, RSDefinition) Excp = BadDefinition! 10
	EndIf! 11		EndIf! 11

Badge at 08:44, 29 May 2009

2009-05-29T08:44:03Z

← Older revision		Revision as of 08:44, 29 May 2009
Line 59:		Line 59:
	Result$ = Command(Lun, “dbDefineRecordset:MyRecordset”) ! 7		Result$ = Command(Lun, “dbDefineRecordset:MyRecordset”) ! 7
	If (Sub(Result$, 1, 1) EQ "PLUSSIGN") - Successful ! 8		If (Sub(Result$, 1, 1) EQ "PLUSSIGN") - Successful ! 8
-	Definition map MUST be provided immediately ! 9	+	! Definition map MUST be provided immediately ! 9
	Write (Lun, RSDefinition) Excp = BadDefinition! 10		Write (Lun, RSDefinition) Excp = BadDefinition! 10
	EndIf! 11		EndIf! 11

Badge at 08:43, 29 May 2009

2009-05-29T08:43:18Z

← Older revision		Revision as of 08:43, 29 May 2009
Line 58:		Line 58:
	Define a recordset named “MyRecordset”! 6		Define a recordset named “MyRecordset”! 6
	Result$ = Command(Lun, “dbDefineRecordset:MyRecordset”) ! 7		Result$ = Command(Lun, “dbDefineRecordset:MyRecordset”) ! 7
-	If (Sub(Result$, 1, 1) EQ "+") - Successful ! 8	+	If (Sub(Result$, 1, 1) EQ "PLUSSIGN") - Successful ! 8
	Definition map MUST be provided immediately ! 9		Definition map MUST be provided immediately ! 9
	Write (Lun, RSDefinition) Excp = BadDefinition! 10		Write (Lun, RSDefinition) Excp = BadDefinition! 10
	EndIf! 11		EndIf! 11