How to create a database in specified folder in vb.net

Question

0.00/5 (No votes)

See more:

I want to create a database. the database name will be savefiledialog file name. And it will create on selected directory of savefiledialog. (i have added a savefiledialog on my form). Following code creating database in MSSQL default folder. Help plz

VB

Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click

        Dim filename, dbPath As String

        SaveFileDialog1.Filter = "MS SQL Database File (*.mdf*)|*.mdf"
        If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            dbPath = SaveFileDialog1.FileName
            filename = System.IO.Path.GetFileNameWithoutExtension(dbPath)
            Dim str As String
            Dim myConn = New SqlConnection("Data Source=.\SQLEXPRESS;Integrated security=true;database=")

            str = "CREATE DATABASE " + filename + ";"
            Dim myCommand = New SqlCommand(str, myConn)
            Try
                myConn.Open()
                myCommand.ExecuteNonQuery()
                MessageBox.Show("DataBase is Created Successfully", "New Database", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Catch ex As Exception
                MessageBox.Show(ex.ToString(), "New Database", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Finally
                If (myConn.State = ConnectionState.Open) Then
                    myConn.Close()
                End If
            End Try
        End If

    End Sub

Posted 10-Dec-13 19:58pm

Member 10457175

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

farhad Najib · Answer 1 · 2013-12-11T00:26:00

Dim str As String

Dim myConn As SqlConnection = New SqlConnection("Server=(local)\netsdk;" & _
"uid=sa;pwd=;database=master")

str = "CREATE DATABASE MyDatabase ON PRIMARY " & _
"(NAME = MyDatabase_Data, " & _
" FILENAME = 'D:\MyFolder\MyDatabaseData.mdf', " & _
" SIZE = 2MB, " & _
" MAXSIZE = 10MB, " & _
" FILEGROWTH = 10%) " & _
" LOG ON " & _
"(NAME = MyDatabase_Log, " & _
" FILENAME = 'D:\MyFolder\MyDatabaseLog.ldf', " & _
" SIZE = 1MB, " & _
" MAXSIZE = 5MB, " & _
" FILEGROWTH = 10%) "

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

Try
myConn.Open()
myCommand.ExecuteNonQuery()
MessageBox.Show("Database is created successfully", _
"MyProgram", MessageBoxButtons.OK, _
MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show(ex.ToString())
Finally
If (myConn.State = ConnectionState.Open) Then
myConn.Close()
End If
End Try