CRIAR BANCO ATRAVES DE ARQUIVO .SQL

PITERGALDIANO 22/12/2012 14:40:35
#416334
Pessoa, boa tarde!

Como faço um aplicativo em VB6 para executar um arquivo .SQL para criar bancos de dados.

Exemplo do Script:

CREATE DATABASE [ô]C:\SISTEMAS\BANCO.FDB[ô]
USER [ô]SYSDBA[ô] PASSWORD [ô]masterkey[ô]
PAGE_SIZE 1024
DEFAULT CHARACTER SET NONE;

CREATE table SIMBOLOGIA(
SIMBOLOGIA VARCHAR(03) not null,
DESCRICAO VARCHAR(30) not null,
CONSTRAINT PKSIMBOLOGIA PRIMARY KEY(SIMBOLOGIA));

Obrigado.
AUSTANDER 23/12/2012 22:21:26
#416358 Resposta escolhida
Dim Conexao As New ADODB.Connection
Dim Catalogo As New ADOX.Catalog [ô]Nome para o objeto

[ô]estabelecendo a conexao
Set Conexao = New ADODB.Connection
Conectar$ = [Ô]Provider=ZStyle IBOLE Provider;Password=masterkey;User ID=SYSDBA;SQL Dialect=1; Logging Level=0;Silent mode=True;Character Set=WIN1251;Data Source=:c:\CriarTabela\dados.fdb[Ô]

[ô] Abre a conexao
If Conexao.State = False Then
Conexao.Open Conectar$
Else
Set Conexao = Nothing
Conexao.Open Conectar$
End If

[ô]Define o objecto para a conexao
Set Catalogo.ActiveConnection = Conexao

[ô]cria a instrução para criar a tabela
sql = [Ô]CREATE TABLE teste[Ô] + [Ô](Codigo INTEGER NOT NULL CONSTRAINT PKeyMyId PRIMARY KEY,[Ô] + _
[Ô]Nome VARCHAR(50), Endereco VARCHAR(255), Salario Numeric(8,2))[Ô]

On Error GoTo erro

[ô]Inicia a transação
Conexao.BeginTrans
Conexao.Execute sql
[ô]Atualiza a base de dados efetuando o commit
Conexao.CommitTrans
MsgBox [Ô]Tabela Criada com sucesso![Ô], vbInformation, [Ô]Atualização[Ô]

erro:
Call Trata_Erros
Tópico encerrado , respostas não são mais permitidas
Voltar