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

2019-06-07 09:43:01 203 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Orbbec-Gemini-335 深度相机 Python SDK 编译与配置全记录（Windows 环境）本篇博客将围绕 Windows 系统下 Orbbec SDK 的 Python 配置与编译过程进行详细说明，主要使用的是官方提供的 pyorbbecsdk Python wrapper 项目以及 Orbbec SDK V2 Python Wrapper 配置指南，并记录了安装与配置过程中遇到的若干问题及解决办法。阅读详情

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

...全文

无人驾驶之车辆控制（1）纯跟踪（Pure Pursuit）算法与Stanley算法目录引言1 Pure Pursuit纯几何跟踪算法1.1 车辆运动学自行车模型1.2 算法原理1.3 仿真测试2 Stanley算法2.1 算法原理2.2 仿真测试3 总结引言本文对Pure Pursuit以及Stanley control两种算法进行了调研以及初步的性能摸底。 1 Pure Pursuit纯几何跟踪算法 1.1 车辆运动学自行车模型运动学是从几何学的角度研究物体的运动规律，... 阅读详情

sam10000

VB 16,718 成员 110,520 内容

+ 关注 + 加入社区

切换为时间正序

eaqpi 2019-06-08

打赏
举报

   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

sam10000 2019-06-08

打赏
举报

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

sam10000 2019-06-07

打赏
举报

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

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

相关推荐