ADO Tools - Revision history

Water at 19:52, 13 August 2024

2024-08-13T19:52:04Z

← Older revision		Revision as of 19:52, 13 August 2024
Line 150:		Line 150:
	Result:		Result:

			[[File:ADO OLE DB Providers.jpg\|\|OLE DB Providers]]

	= List all properties of an open ADO connection =		= List all properties of an open ADO connection =

Water at 19:51, 13 August 2024

2024-08-13T19:51:03Z

← Older revision		Revision as of 19:51, 13 August 2024
Line 150:		Line 150:
	Result:		Result:

	~~[[File:ADO OLE DB Providers.jpg\|\|OLE DB Providers]]~~

	= List all properties of an open ADO connection =		= List all properties of an open ADO connection =

Water: Updated version of _ADO_OLEDBProviderList

2024-08-13T19:28:46Z

Updated version of _ADO_OLEDBProviderList

Show changes

MLipok: /* List all installed OLE DB providers */ _ADO_OLEDBProvidersList fixed

2016-03-01T07:48:48Z

List all installed OLE DB providers: _ADO_OLEDBProvidersList fixed

← Older revision		Revision as of 07:48, 1 March 2016
Line 32:		Line 32:
	WEnd		WEnd

	Local $iPercent = 0		Local $iPercent = 0
	Local $sKeyValue = ''		Local $sKeyValue = ''
	; Process registry		; Process registry
Line 57:		Line 57:
	ReDim $aResult[$iIndexResult][3]		ReDim $aResult[$iIndexResult][3]

	_ArrayDisplay($aResult, ~~$sTitle~~, "", 0, Default, "Registry key\|OLE DB Provider\|Description")		_ArrayDisplay($aResult, "OLE DB Providers", "", 0, Default, "Registry key\|OLE DB Provider\|Description")

	EndFunc		EndFunc ;==>_ADO_OLEDBProvidersList
	</syntaxhighlight>		</syntaxhighlight>

MLipok: /* List all installed OLE DB providers */

2016-02-29T01:57:19Z

List all installed OLE DB providers

← Older revision		Revision as of 01:57, 29 February 2016
Line 10:		Line 10:

	Func _ADO_OLEDBProvidersList()		Func _ADO_OLEDBProvidersList()
	Local $sKey = "HKCR\CLSID", $iIndexReg = 1, $iIndexResult = 0		Local $sKey = "HKCR\CLSID"
			Local $iIndexReg = 1, $iIndexResult = 0
	Local $iMax = 100000, $iMin = 1, $iPrevious = $iMin, $iCurrent = $iMax / 2		Local $iMax = 100000, $iMin = 1, $iPrevious = $iMin, $iCurrent = $iMax / 2
	Local $aResult[200][3]		Local $aResult[200][3]
	~~Local $sTitle = "OLE DB Providers"~~

	ProgressOn(~~$sTitle~~, "Processing the Registry", "", Default, Default, $DLG_MOVEABLE)		ProgressOn("OLE DB Providers", "Processing the Registry", "", Default, Default, $DLG_MOVEABLE)

	; Count the number of keys		; Count the number of keys

MLipok: /* List all installed OLE DB providers */

2016-02-29T01:55:04Z

List all installed OLE DB providers

← Older revision		Revision as of 01:55, 29 February 2016
Line 32:		Line 32:
	WEnd		WEnd

			Local $iPercent = 0
			Local $sKeyValue = ''
	; Process registry		; Process registry
	While 1		While 1

MLipok: /* List all properties of an open ADO connection */ some example fix

2016-02-23T23:36:46Z

List all properties of an open ADO connection: some example fix

← Older revision		Revision as of 23:36, 23 February 2016
Line 103:		Line 103:

	$oProperties_coll = Null		$oProperties_coll = Null
			Return $aProperties
	EndFunc ;==>_ADO_Connection_PropertiesToArray		EndFunc ;==>_ADO_Connection_PropertiesToArray
	</syntaxhighlight>		</syntaxhighlight>

MLipok: /* List all properties of an open ADO connection */ new Attributes in _ADO_Connection_PropertiesToArray example

2016-02-23T23:25:14Z

List all properties of an open ADO connection: new Attributes in _ADO_Connection_PropertiesToArray example

← Older revision		Revision as of 23:25, 23 February 2016
Line 83:		Line 83:
	Local $aProperties = _ADO_Connection_PropertiesToArray($oADOConnection)		Local $aProperties = _ADO_Connection_PropertiesToArray($oADOConnection)

	_ArrayDisplay($aProperties, "ADO connection - List of properties", "", 0, Default, "~~PropertyName~~\|~~PropertyValue~~")		_ArrayDisplay($aProperties, "ADO connection - List of properties", "", 0, Default, "Name\|Type\|Value\|Attributes")

	EndFunc ;==>_Example_ListProperties		EndFunc ;==>_Example_ListProperties

	Func _ADO_Connection_PropertiesToArray(ByRef $oConnection)		Func _ADO_Connection_PropertiesToArray(ByRef $oConnection)
			; Property Object (ADO)
			; https://msdn.microsoft.com/en-us/library/windows/desktop/ms677577(v=vs.85).aspx
	Local $oProperties_coll = $oConnection.Properties		Local $oProperties_coll = $oConnection.Properties
	Local $aProperties[$oProperties_coll.count][2]		Local $aProperties[$oProperties_coll.count][4]
	Local $iIndex = 0		Local $iIndex = 0

	For $oProperty_enum In $oProperties_coll		For $oProperty_enum In $oProperties_coll
	$aProperties[$iIndex][0] = $oProperty_enum.Name		$aProperties[$iIndex][0] = $oProperty_enum.Name
	$aProperties[$iIndex][1] = $oProperty_enum.Value		$aProperties[$iIndex][1] = $oProperty_enum.Type
			$aProperties[$iIndex][2] = $oProperty_enum.Value
			$aProperties[$iIndex][3] = $oProperty_enum.Attributes
	$iIndex += 1		$iIndex += 1
	Next		Next

	$oProperties_coll = Null		$oProperties_coll = Null
	~~Return SetError($ADO_ERR_SUCCESS, $ADO_EXT_DEFAULT, $aProperties)~~

	EndFunc ;==>_ADO_Connection_PropertiesToArray		EndFunc ;==>_ADO_Connection_PropertiesToArray

MLipok: /* List all installed OLE DB providers */ _ADO_OLEDBProvidersList - example refactoring

2016-02-19T07:51:33Z

List all installed OLE DB providers: _ADO_OLEDBProvidersList - example refactoring

@@ Line 6: / Line 6: @@
 #include <Constants.au3>
 #include <Array.au3>
 </syntaxhighlight>

MLipok: /* List all properties of an open ADO connection */ _Example_ListProperties()

2016-02-19T07:23:36Z

List all properties of an open ADO connection: _Example_ListProperties()

← Older revision		Revision as of 07:23, 19 February 2016
Line 55:		Line 55:
	#include <Array.au3>		#include <Array.au3>
	#include <MsgBoxConstants.au3>		#include <MsgBoxConstants.au3>
	~~Global~~ $oADOConnection = ObjCreate("ADODB.Connection") ; Create a connection object
	If @error Then Exit MsgBox($MB_ICONERROR, "Error", "Error " & @error & " creating the connection object!")		_Example_ListProperties()
	~~Global~~ $sADOConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' & @ScriptDir & ';Extended Properties="Text;HDR=NO;FMT=Delimited(,)"'
	$oADOConnection.Open($sADOConnectionString) ~~; Open the connection~~		Func _Example_ListProperties()
	If @error Then Exit MsgBox($MB_ICONERROR, "Error", "Error " & @error & " opening the connection object!")		Local $oADOConnection = ObjCreate("ADODB.Connection") ; Create a connection object
	~~Global~~ $aProperties[~~1000~~][2], $iIndex = 0		If @error Then Exit MsgBox($MB_ICONERROR, "Error", "Error " & @error & " creating the connection object!")
	For $~~oProperty~~ In $~~oADOConnection.Properties~~
	$aProperties[$iIndex][0] = $~~oProperty~~.Name		; Open the connection
	$aProperties[$iIndex][1] = $~~oProperty~~.Value		Local $sADOConnectionString = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' & @ScriptDir & ';Extended Properties="Text;HDR=NO;FMT=Delimited(,)"'
	$iIndex = ~~$iIndex +~~ 1		$oADOConnection.Open($sADOConnectionString)
	Next		If @error Then Exit MsgBox($MB_ICONERROR, "Error", "Error " & @error & " opening the connection object!")
	~~$oADOConnection.Close ; Close the connection~~
	$~~oADOConnection~~ = ~~0 ; Release the connection object~~		Local $aProperties = _ADO_Connection_PropertiesToArray($oADOConnection)
	~~ReDim~~ $~~aProperties[~~$~~iIndex][2]~~
	~~_ArrayDisplay(~~$aProperties~~, "ADO connection - List of properties", "", 0, Default, "PropertyName\|PropertyValue"~~)		_ArrayDisplay($aProperties, "ADO connection - List of properties", "", 0, Default, "PropertyName\|PropertyValue")

			EndFunc ;==>_Example_ListProperties

			Func _ADO_Connection_PropertiesToArray(ByRef $oConnection)
			Local $oProperties_coll = $oConnection.Properties
			Local $aProperties[$oProperties_coll.count][2]
			Local $iIndex = 0

			For $oProperty_enum In $oProperties_coll
			$aProperties[$iIndex][0] = $oProperty_enum.Name
			$aProperties[$iIndex][1] = $oProperty_enum.Value
			$iIndex += 1
			Next

			$oProperties_coll = Null
			Return SetError($ADO_ERR_SUCCESS, $ADO_EXT_DEFAULT, $aProperties)

			EndFunc ;==>_ADO_Connection_PropertiesToArray
	</syntaxhighlight>		</syntaxhighlight>