VERIFICAR SE O BANCO DE DADOS EXISTE NA CONEXAO
Bom Dia,
Gostaria de saber se existe uma forma de verificar se o banco existe na conexao com o POSTGRES via codigo.
segue o que estou fazendo ou tentando fazer.
Obrigado a todos pela ajuda.
Public Sub verificabanco()
Dim rs As ADODB.Recordset
Dim sSql As String
Dim recResult As New ADODB.Recordset
On Error GoTo final
Gconn.Open [Ô]Provider=PostgreSQL.1;Password=[ô]postgres[ô];User ID=[ô]postgres[ô];Data Source=localhost;Location=dev_server1 ;Extended Properties=[ô][ô];;[Ô]
final:
MsgBox Err.Description, , [Ô]Erro[Ô]
AQUI ELE DEVERIA CRIAR UMA VEZ QUE RETORNOU UM ERRO DE QUE O DATABASE NAO EXISTE.
[ô][ô] [Ô]CREATE DATABASE dev_server1[Ô] & _
[ô][ô] [Ô]With Owner = postgres [Ô] & _
[ô][ô] [Ô]ENCODING = [ô][Ô] & [Ô]UTF8[Ô] & [Ô][ô] [Ô] & _
[ô][ô] [Ô]TABLESPACE = pg_default[Ô]
End Sub
Gostaria de saber se existe uma forma de verificar se o banco existe na conexao com o POSTGRES via codigo.
segue o que estou fazendo ou tentando fazer.
Obrigado a todos pela ajuda.
Public Sub verificabanco()
Dim rs As ADODB.Recordset
Dim sSql As String
Dim recResult As New ADODB.Recordset
On Error GoTo final
Gconn.Open [Ô]Provider=PostgreSQL.1;Password=[ô]postgres[ô];User ID=[ô]postgres[ô];Data Source=localhost;Location=dev_server1 ;Extended Properties=[ô][ô];;[Ô]
final:
MsgBox Err.Description, , [Ô]Erro[Ô]
AQUI ELE DEVERIA CRIAR UMA VEZ QUE RETORNOU UM ERRO DE QUE O DATABASE NAO EXISTE.
[ô][ô] [Ô]CREATE DATABASE dev_server1[Ô] & _
[ô][ô] [Ô]With Owner = postgres [Ô] & _
[ô][ô] [Ô]ENCODING = [ô][Ô] & [Ô]UTF8[Ô] & [Ô][ô] [Ô] & _
[ô][ô] [Ô]TABLESPACE = pg_default[Ô]
End Sub
SELECT DISTINCT TABLE_SCHEMA
FROM INFORMATION_SCHEMA.TABLES
WHERE TABLE_SCHEMA=[ô]nome da base de dados[ô]
Dai voce trata o retorno da recordset ...............
FROM INFORMATION_SCHEMA.TABLES
WHERE TABLE_SCHEMA=[ô]nome da base de dados[ô]
Dai voce trata o retorno da recordset ...............
GOODSPEAKES, e verificando se o banco de dados existe, caso nao exista crialo- na hora, nao consigo fazer esse tratamento de erros, pois com as tabelas eu consegui fazer.
obrigado pela sua ajuda
obrigado pela sua ajuda
CREATE SCHEMA nomedabasededados AUTHORIZATION postgres;
criacao de tabelas
CREATE TABLE solucoesglobais.al_almoxarifado (
codigo INTEGER NOT NULL,
descricao VARCHAR(50),
localizacao VARCHAR(100),
gerente VARCHAR(100),
responsavel VARCHAR(100),
ass_req1 TEXT,
ass_req2 TEXT,
ass_req3 TEXT,
ass_transf1 TEXT,
ass_transf2 TEXT,
ass_transf3 TEXT,
barra_req BOOLEAN,
barra_transf BOOLEAN,
sem_saldo BOOLEAN DEFAULT true,
CONSTRAINT al_almoxarifado_pkey PRIMARY KEY(codigo)
) WITHOUT OIDS;
COMMENT ON COLUMN solucoesglobais.al_almoxarifado.sem_saldo
IS [ô]Aceita Pedido de Produtos sem saldo.[ô];
CREATE INDEX al_001 ON solucoesglobais.al_almoxarifado
USING btree (descricao);
CREATE TABLE solucoesglobais.al_almoxarifado (
codigo INTEGER NOT NULL,
descricao VARCHAR(50),
localizacao VARCHAR(100),
gerente VARCHAR(100),
responsavel VARCHAR(100),
ass_req1 TEXT,
ass_req2 TEXT,
ass_req3 TEXT,
ass_transf1 TEXT,
ass_transf2 TEXT,
ass_transf3 TEXT,
barra_req BOOLEAN,
barra_transf BOOLEAN,
sem_saldo BOOLEAN DEFAULT true,
CONSTRAINT al_almoxarifado_pkey PRIMARY KEY(codigo)
) WITHOUT OIDS;
COMMENT ON COLUMN solucoesglobais.al_almoxarifado.sem_saldo
IS [ô]Aceita Pedido de Produtos sem saldo.[ô];
CREATE INDEX al_001 ON solucoesglobais.al_almoxarifado
USING btree (descricao);
Tópico encerrado , respostas não são mais permitidas