' Sample1 コントローラ名一覧の取得 (ControllerNamesプロパティを使用せず)
' こちらのサンプルはCaoSQLConfigの登録エントリの順番と関係なくControllerNamesがソートして取得できる

	option explicit

	Dim CSQLEng						' CaoSQLEngine
	Dim CSQLCtrl						' CaoSQLController
	Dim CtrlName,CtrlNames					' コントローラ名 , コントローラ一覧
	Dim i

	Set CSQLEng = CreateObject("CAOSQL.CaoSQLEngine")			' CaoSQLエンジン生成

	CtrlNames = CSQLEng.ControllerNames					' Controllerの数を取得

	for i = Lbound(Ctrlnames) to Ubound(CtrlNames)

		msgbox CtrlNames(i)

	next

	Set CSQLEng = nothing