概要
程序员常常需要以编程方式创建数据库本文介绍如何使用 ADONET 和 Visual Basic Net 以编程方式创建 Microsoft SQL
创建示例的步骤
新建一个 Visual Basic Net Windows 应用程序项目默认情况下将 Form 添加到项目中
在 Form 上放一个 Command 按钮并将其 Name 属性更改为 btnCreateDatabase将其 Text 属性更改为 Create Database
复制下面一行代码并粘贴到 Form 的general declaration部分 Imports SystemDataSqlClient
复制下面的代码并粘贴到Windows Form Designer generated code区域之后
Private Sub btnCreateDatabase_Click(ByVal sender As SystemObject _
ByVal e As SystemEventArgs) Handles btnCreateDatabaseClick
Dim reader As SqlDataReader
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\MyDatabaseDatamdf & _
SIZE = MB & _
MAXSIZE = MB & _
FILEGROWTH = %) & _
LOG ON & _
(NAME = MyDatabase_Log & _
FILENAME = D:\MyFolder\MyDatabaseLogldf & _
SIZE = MB & _
MAXSIZE = MB & _
FILEGROWTH = %)
Dim myCommand As SqlCommand = New SqlCommand(str myConn)
Try
myConnOpen()
reader = myCommandExecuteReader()
Catch ex As Exception
MessageBoxShow(exToString())
Finally
If Not reader Is Nothing Then
readerClose()
If (myConnState = ConnectionStateOpen) Then
myConnClose()
End If
MessageBoxShow(Database is created successfully _
MyProgram MessageBoxButtonsOK _
MessageBoxIconInformation)
End If
End Try
End Sub
更改连接字符串使其指向 SQL Server要确保将 Database 参数设置为 Master 或保留为空白
按 F 键或 CTRL+F 组合键以运行该项目然后单击创建数据库
其他注意事项
此代码创建的是带有特定属性的自定义数据库
将要保存所创建 mdf 和 ldf 文件的文件夹必须在运行该代码之前就已存在否则会引发异常
如果想创建一个类似于 SQL Server 的 Model 数据库的数据库并想让它存储在默认位置那么请更改代码中的 str 变量 str = CREATE DATABASE MyDatabase
