vb.net如何用语句创建SQL数据库

[sam10000]

请教一下大家：
VB.net如何用语句的形式创建数据库呢？网上找了一下，实现不了。

[sam10000]

sql = "CREATE DATABASE MyDataBase ON PRIMARY (Name=MyDataBase_data, filename = " + _
"'D:/MyDataBase.mdf', size=3," + "maxsize=5, filegrowth=10%) log on" + "(name=MyDataBase_log, " + _
"filename='D:/MyDataBase.ldf',size=3," + "maxsize=20,filegrowth=1)"
找到这一句，如何执行呢？我用的是SQLSERVER 2014EXPRESS

[sam10000]

我用的是VS2013社区版加SQLSERVER2014EXPRESS，复制你的代码执行，不能用。

[eaqpi]

   Private Function CreateSQLData() As String
        Dim cdl As New SaveFileDialog
        cdl.Filter = "SQL文件(*.mdf)|*.mdf|所以文件(*.*)|*.*"
        If cdl.ShowDialog = Windows.Forms.DialogResult.OK Then
            If cdl.FileName.Length = 0 Then Return ("没取名")
        Else
            Return ("取消")
        End If
        Dim sFilePath As String = cdl.FileName
        Dim SqlConn As Data.SqlClient.SqlConnection = Nothing
        Dim sConn As String
        sConn = "server=" + Sql.Server + "; uid=" + Sql.User + ";pwd=" + Sql.Password + "; database=" + "Master" + ";"
        If SqlConn Is Nothing = True Then
            SqlConn = New SqlClient.SqlConnection(sConn)
            Try
                SqlConn.Open()
            Catch ex As Exception
                If SqlConn.State <> ConnectionState.Closed Then
                    SqlConn.Close()
                    SqlConn = Nothing
                End If
                Return sConn
            End Try
        End If
        If sFilePath.Substring(sFilePath.LastIndexOf(".") + 1).ToLower = "mdf" Then
            sFilePath = sFilePath.Substring(0, sFilePath.Length - 4)
        End If
        Dim fName As String = sFilePath.Substring(sFilePath.LastIndexOf("/") + 1)
        Dim strsql As String = ""
        strsql = strsql & "CREATE DATABASE [" + fName + "] ON (NAME =N'" + fName + "_Data',FILENAME="
        strsql = strsql & "N'" & sFilePath + "_Data.MDF',"
        strsql = strsql & "SIZE =1,FILEGROWTH=10%) LOG ON (NAME=N'" + fName + "_Log',FILENAME= N'" & sFilePath + "_Log.LDF' ,SIZE=1,FILEGROWTH=10%)"
        If SqlConn.State = ConnectionState.Open Then
            Try
                Dim SqlComm As SqlClient.SqlCommand = New SqlClient.SqlCommand(strsql, SqlConn)
                SqlComm.ExecuteNonQuery()
                SqlConn.Close()
                SqlConn.Dispose()
                Return ("创建新的数据库成功 " & fName)
            Catch ex As Exception
                If Not (SqlConn.State = ConnectionState.Closed) Then SqlConn.Close()
                Return (ex.ToString)
            End Try
        Else
            Return ("连接到 SQL Server 失败 " & fName)
        End If
    End Function