//Conexao Catalogo ConnCatalogo is Connection ConnCatalogo..Provider = GPU_01_DbCatalogo.Db_ProviderDatabase ConnCatalogo..User = GPU_01_DbCatalogo.Db_User ConnCatalogo..Password = GPU_01_DbCatalogo.Db_Password ConnCatalogo..Database = GPU_01_DbCatalogo.Db_Database ConnCatalogo..Server = GPU_01_DbCatalogo.Db_Server ConnCatalogo..Access = GPU_01_DbCatalogo.Db_Access ConnCatalogo..Source = GPU_01_DbCatalogo.Db_Source ConnCatalogo..CacheSize = GPU_01_DbCatalogo.Db_CacheSize IF HOpenConnection(ConnCatalogo) = true HChangeConnection("*",ConnCatalogo) END |