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

最新推荐文章于 2021-01-21 02:52:58 发布

ymx1121

最新推荐文章于 2021-01-21 02:52:58 发布

阅读量1k

点赞数

CC 4.0 BY-SA版权

文章标签： vb.net 数据库 sql exception string database

本文链接：https://blog.youkuaiyun.com/ymx1121/article/details/2595877

本文介绍了一个使用C#编写的函数，用于根据用户输入的文件路径和SQL Server配置信息，自动生成创建SQL数据库的脚本。该脚本能够创建数据库、数据文件和日志文件，并确保文件路径和数据库名称的正确性。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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