PConnect($servidor, $usuario, $senha, $nomeBd) or die('ERRO FATAL: Conexão ao SGDB falhou.');
else $bd->Connect($servidor, $usuario, $senha, $nomeBd) or die('ERRO FATAL: Conexão ao SGDB falhou.');
if (!defined('ADODB_ASSOC_CASE')) define('ADODB_ASSOC_CASE', 0);
break;
default:
//mySQL
if ($persist) {
if (!($bd->PConnect($servidor, $usuario, $senha, $nomeBd))){
include_once (BASE_DIR.'/estilo/rondon/funcao_grafica.php');
if (!isset($config['militar'])) include_once BASE_DIR.'/instalacao/config-dist.php';
$diretorio=explode('/', dirname(safe_get_env('SCRIPT_NAME')));
$caminho=(isset($diretorio[2]) && $diretorio[2]=='instalacao' ? '../' : '');
echo '
gpweb';
echo '
Não foi possível abrir o banco de dados!
Verifique as configurações para acesso ao servidor MySQL no arquivo config.php na raiz do '.$config['gpweb'].' ou entre no menu de criação do arquivo config.php ou da base de dados.
';
echo '
'.botao('menu de instalação', 'Menu de Instalação','pressione este botão para acessar o menu de instalação.','','window.location=\''.str_replace('/instalacao', '', BASE_URL).'/instalacao/index.php\'').'
Verifique as configurações para acesso ao servidor MySQL no arquivo config.php na raiz do sistema ou entre no menu de criação do arquivo config.php ou da base de dados.
';
echo '
'.botao('menu de instalação', 'Menu de Instalação','pressione este botão para acessar o menu de instalação.','','window.location=\''.str_replace('/instalacao', '', BASE_URL).'/instalacao/index.php\'').'
';
echo '
';
exit;
}
}
}
$ADODB_FETCH_MODE = ADODB_FETCH_BOTH;
}
function db_error() {
global $bd;
if (!is_object($bd)) dprint(__file__, __line__, 0, 'Objeto do banco de dados não existe.');
return $bd->ErrorMsg();
}
function db_errno() {
global $bd;
if (!is_object($bd)) dprint(__file__, __line__, 0, 'Objeto do banco de dados não existe.');
return $bd->ErrorNo();
}
function db_insert_id($tabela='',$coluna='') {
global $bd;
if (!is_object($bd)) dprint(__file__, __line__, 0, 'Objeto do banco de dados não existe.');
return $bd->Insert_ID($tabela, $coluna);
}
function db_exec($sql) {
global $bd, $performance_dbtime, $performance_consultas_antigas;
if (!is_object($bd)) dprint(__file__, __line__, 0, 'Objeto do banco de dados não existe.');
$qid = $bd->Execute($sql);
dprint(__file__, __line__, 10, $sql);
if ($msg = db_error()) {
global $Aplic;
dprint(__file__, __line__, 0, "Erro ao executar:
$sql
");
$bd->Execute($sql);
if (!db_error()) echo '';
}
if (!$qid && preg_match('/^\