Ir para o conteúdo
arrelialp

Passagem de parâmetros para criação de Base de Dados

Mensagens Recomendadas

arrelialp    0
arrelialp

Viva,

Estou a tentar criar uma Base de Dados dinâmicamente. Assim, criei um Form e neste tenho diversas caixas de texto onde o utilizador irá escrever as seguintes informações:

Nome do Servidor;

Nome da Base de Dados;

Tamanho da Base de Dados;

Tamanho Máximo da Base de Dados;

Percentagem de crescimento do Ficheiro.

A minha dúvida está em passar estes valores (parâmetros) que estão nas diferentes caixas de texto para o comando que irá criar a Base de Dados.

O código que tenho, e está a funcionar é o seguinte:

 Sub CriarBaseDados()

        Dim str As String

        Dim myConn As SqlConnection = New SqlConnection("Server=localhost;" & _

                                                        "uid=sa;pwd=;database=master")

        str = "CREATE DATABASE MyDatabase ON PRIMARY " & _

             "(NAME = MyDatabase_Data, " & _

             " FILENAME = 'C:\BaseDados\MyDatabase.mdf', " & _

             " SIZE = 3MB, " & _

             " MAXSIZE = 10MB, " & _

             " FILEGROWTH = 10%) " & _

             " LOG ON " & _

             "(NAME = MyDatabase_Log, " & _

             " FILENAME = 'C:\BaseDados\MyDatabaseLog.ldf', " & _

             " SIZE = 1MB, " & _

             " MAXSIZE = 5MB, " & _

             " FILEGROWTH = 10%) "

        Dim myCommand As SqlCommand = New SqlCommand(str, myConn)

End Sub

Também gostava de saber como posso fazer o mesmo para o FILENAME (aqui é numa path), SIZE, MAXSIZE e FILEGROWTH

Agradeço desde já.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Caça    24
Caça

Podes concatenar com os valores das textboxes, tipo

str = "CREATE DATABASE " & TxtNomeDaBD.Text & " ON PRIMARY " & _
'(...)

Em relação a segunda pergunta, não entendi, uma vez que já estás a indicar essas propriedades em cima.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
arrelialp    0
arrelialp

Obrigado Caça.

Como é que posso juntar ao nome da base de dados, que vem da caixa de texto TxtNomeDaBD o texto " _Data"? De modo a que fique o nome da base de dados seguido imediatamente de _Data

E como faço o mesmo para o FILENAME = 'C:\BaseDados\[nome_da_base_dados].mdf', uma vez que aqui vem entre pelicas?

Obrigado

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Kissema    0
Kissema
Sub CriarBaseDados()

'Considere path um texto semelhante a este: "C:\BD\"
        Dim str As String

        Dim myConn As SqlConnection = New SqlConnection("Server=localhost;" & _

                                                        "uid=sa;pwd=;database=master")

        str = "CREATE DATABASE " & txtMyDatabase.Text & " ON PRIMARY " & _

             "(NAME = " & txtMyDatabase.Text & "_Data, " & _

             " FILENAME = '" & txtPath.Text & txtMyDatabase.Text & ".mdf', " & _

             " SIZE = " & CInt(txtTamanho1.Text) & "MB, " & _

             " MAXSIZE = " & CInt(txtTamanhoMax1.Text) & "MB, " & _

           " FILEGROWTH = "& txtPerc1.Text &" %) " & _

             " LOG ON " & _

             "(NAME = " & txtMyDatabase.Text & "_Log, " & _

             " FILENAME = '" & txtPath.Text & txtMyDatabase.Text & ".ldf', " & _

             " SIZE = " & CInt(txtTamanho2.Text) & "MB, " & _

             " MAXSIZE = " & CInt(txtTamanhoMax2.Text) & "MB, " & _

             " FILEGROWTH = "& txtPerc2.Text &" %)  "

        Dim myCommand As SqlCommand = New SqlCommand(str, myConn)

End Sub

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade