如何使用.NET和VB编程创建SQLServer

王朝mssql·作者佚名  2008-05-19
窄屏简体版  字體: |||超大  

概要

程序员常常需要以编程方式创建数据库。本文介绍如何使用 ADO.NET 和 Visual Basic .Net 以编程方式创建 Microsoft SQL

创建示例的步骤

1.新建一个 Visual Basic .Net Windows 应用程序项目。默认情况下,将 Form1 添加到项目中。

2.在 Form1 上放一个 Command 按钮,并将其 Name 属性更改为 btnCreateDatabase,将其 Text 属性更改为 Create Database。

3.复制下面一行代码并粘贴到 Form1 的“general declaration”部分: Imports System.Data.SqlClient

4.复制下面的代码并粘贴到“Windows Form Designer generated code”区域之后:

Private Sub btnCreateDatabase_Click(ByVal sender As System.Object, _

ByVal e As System.EventArgs) Handles btnCreateDatabase.Click

Dim reader As SqlDataReader

Dim str As String

Dim myConn As SqlConnection = New SqlConnection("Server=(local)

etsdk;" & _

"uid=sa;pwd=;database=master")

str = "CREATE DATABASE MyDatabase ON PRIMARY " & _

"(NAME = MyDatabase_Data, " & _

" FILENAME = 'D:MyFolderMyDatabaseData.mdf', " & _

" SIZE = 2MB, " & _

" MAXSIZE = 10MB, " & _

" FILEGROWTH = 10%) " & _

" LOG ON " & _

"(NAME = MyDatabase_Log, " & _

" FILENAME = 'D:MyFolderMyDatabaseLog.ldf', " & _

" SIZE = 1MB, " & _

" MAXSIZE = 5MB, " & _

" FILEGROWTH = 10%) "

Dim myCommand As SqlCommand = New SqlCommand(str, myConn)

Try

myConn.Open()

reader = myCommand.ExecuteReader()

Catch ex As Exception

MessageBox.Show(ex.ToString())

Finally

If Not reader Is Nothing Then

reader.Close()

If (myConn.State = ConnectionState.Open) Then

myConn.Close()

End If

MessageBox.Show("Database is created successfully", _

"MyProgram", MessageBoxButtons.OK, _

MessageBoxIcon.Information)

End If

End Try

End Sub

5.更改连接字符串使其指向 SQL Server,要确保将 Database 参数设置为 Master 或保留为空白。

6.按 F5 键或 CTRL+F5 组合键以运行该项目,然后单击创建数据库。

其他注意事项

此代码创建的是带有特定属性的自定义数据库。

将要保存所创建 .mdf 和 .ldf 文件的文件夹必须在运行该代码之前就已存在、否则会引发异常。

如果想创建一个类似于 SQL Server 的 Model 数据库的数据库并想让它存储在默认位置,那么请更改代码中的 str 变量: str = "CREATE DATABASE MyDatabase"

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航