CONECTANDO MYSQL NO VB6

CJMCARDOSO 26/07/2009 12:56:10
#317894
Ola pessoal tenho sistema feito em vb6 com conecção mysql 4.22 gostaria de saber com faço para verificar se o banco de dados existe ou nao se nao existe ela cria o banco e tabelas respectivas, sou novato com programação mysql nao sei como faz isso alguem pode me ajudar?
JESUEL.OLIVEIRA 26/07/2009 16:40:03
#317903
Amigo, uso RESUME NEXT se der erro não faz nada, ou seja se existe não criar.

  Sub Atualizacao_Tabela()

On Error Resume Next
    Call Conectar_Banco
cria
CONN.Execute [Ô]CREATE TABLE mov_lojas_sep_valor(MOV_LJ_ID int(8) UNSIGNED AUTO_INCREMENT NOT NULL PRIMARY KEY, MOV_LJ_COD_DEBITO INT(8) NOT NULL, MOV_LJ_COD_LOJA INT(8) NOT NULL, MOV_LJ_VALOR_LOJA decimal(10,2) NOT NULL);[Ô]

altera
    CONN.Execute [Ô]ALTER TABLE cadempresa ADD COLUMN EMP_BLOQUEIO_DT DATETIME;[Ô]
    CONN.Execute [Ô]ALTER TABLE cadempresa ADD COLUMN EMP_DESBLOQUEIO_DT DATETIME;[Ô]
    
deleta
    CONN.Execute [Ô]DROP table cli_cad_servico[Ô]
    CONN.Execute [Ô]DROP table cli_cad_servico_medico[Ô]
    CONN.Execute [Ô]DROP table cli_mov_geral[Ô]
CONN.Close
End Sub
TECLA 26/07/2009 21:28:57
#317915
Criar tabela, caso não exista:
CREATE TABLE IF NOT EXISTS contato (
    codigo INT,
    nome VARCHAR(80),
    PRIMARY KEY (codigo)
);


Para o banco de dados, utilize o mesmo operador (IF NOT EXISTS):
CREATE DATABASE IF NOT EXISTS banco...
Tópico encerrado , respostas não são mais permitidas
Voltar