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

	option explicit

	Dim CSQLEng						' CaoSQLEngine
	Dim CSQLCtrl						' CaoSQLController
	Dim CtrlName,CtrlCount					' コントローラ名 , コントローラカウント
	Dim i

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

	CtrlCount = CSQLEng.Count				' Controllerの数を取得

	for i = 0 to CtrlCount -1
		Set CSQLCtrl = CSQLEng.Controller(i)

		CtrlName = CSQLCtrl.Name
		
		msgbox CtrlName

		Set CSQLCtrl = nothing
	next

	Set CSQLEng = nothing