CRIAR BANCO DE DADOS FIREBIRD PELO VB

PITERGALDIANO 10/01/2013 12:14:39
#417105
Pessoal, boa tarde!

Eu tenho um arquivos chamado [Ô]createbanco.sql[Ô]. Este arquivo possui instruções sql para criação do banco de dados [Ô]BANCO.FDB[Ô] com tabelas e demais itens.

Como faço para rodar (executar) esse arquivo em tempo de execução pelo VB6.

No IBExpert eu vou na opção de executar scripts e consigo criar, porém quero implementar isso em um programa para não precisar ficar entrando no ibexpert para criar o banco. Até mesmo porque quando eu instalar o sistema eu já criaria o banco de dados.

Grato.
SAMUKA 09/02/2013 08:48:53
#419056
Resposta escolhida
PITERGALDIANO, experimente utilizar o objeto Connection do ADO e a propriedade Execute.

Mais ou menos isso:

Dim cnn as new ADO.Connection
Dim meuScript as String

[ô][ô]Aqui voce deve implementar uma função que leia o arquivo e retorne o texto para a String meuScript
meuScript = LerArquivoComScript(Nome do Arquivo)

cnn.ConnectionString = [Ô]SUA CONECAO COM O FIREBIRD[Ô]
cnn.Execute meuScript

Tópico encerrado , respostas não são mais permitidas