如何在vb.net中的指定文件夹中创建数据库 [英] How to create a database in specified folder in vb.net

问题描述

我想创建一个数据库。数据库名称将是savefiledialog文件名。它将在savefiledialog的选定目录上创建。 （我在表单上添加了savefiledialog）。下面的代码在MSSQL默认文件夹中创建数据库。帮助PLZ

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

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

推荐答案

Dim str As String



Dim myConn As SqlConnection = New SqlConnection（Server =（local）\\\
etsdk;&_

uid = sa; pwd =; database = master）



str =在初级创建数据库MyDatabase&_

（NAME = MyDatabase_Data，&_

FILENAME ='D：\ MyFolder \ MyDatabaseData.mdf'，&_

SIZE = 2MB，&_

MAXSIZE = 10MB，&_

FILEGROWTH = 10％&_

登录&_

（NAME = MyDatabase_Log，&_

FILENAME ='D：\ MyFolder \ MyDatabaseLog.ldf'，&_

SIZE = 1MB，&_

MAXSIZE = 5MB，&_

FILEGROWTH = 10％）



Dim myCommand As SqlCommand =新的SqlCommand（str，myConn）



尝试

myConn.Open（）

myCommand.ExecuteNonQuery （）

MessageBox.Show（数据库创建成功，_

MyProgram，MessageBoxButtons.OK，_

MessageBoxIcon.Information ）

Catch ex As Exception

MessageBox.Show（ex.ToString（））

最后

如果（ myConn.State = ConnectionState.Open）然后

myConn.Close（）

结束如果

结束尝试

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

这篇关于如何在vb.net中的指定文件夹中创建数据库的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！