VB.NET2005创建SQL数据库(转贴)

     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