WEB开发网
开发学院WEB开发综合 .NET和VB编程创建SQLServer 阅读

.NET和VB编程创建SQLServer

 2006-02-27 11:40:54 来源:WEB开发网   
核心提示:1.新建一个VisualBasic.NetWindows应用程序项目,默认情况下,.NET和VB编程创建SQLServer,将Form1添加到项目中,2.在Form1上放一个Command按钮,其他注意事项此代码创建的是带有特定属性的自定义数据库,将要保存所创建.mdf和.ldf文件的文件夹必须在运行该代码之前就已存在
1.新建一个VisualBasic.NetWindows应用程序项目。默认情况下,将Form1添加到项目中。

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

3.复制下面一行代码并粘贴到Form1的“generaldeclaration”部分:ImportsSystem.Data.SqlClient

4.复制下面的代码并粘贴到“WindowsFormDesignergeneratedcode”区域之后:  

PRivateSubbtnCreateDatabase_Click(ByValsenderAsSystem.Object,_
  ByValeAsSystem.EventArgs)HandlesbtnCreateDatabase.Click
  DimreaderAsSqlDataReader
  DimstrAsString
  DimmyConnAsSqlConnection=NewSqlConnection("Server=(local)\netsdk;"&_
  "uid=sa;pwd=;database=master") 

str="CREATEDATABASEMyDatabaSEONPRIMARY"&_
  "(NAME=MyDatabase_Data,"&_
  "FILENAME='D:\MyFolder\MyDatabaseData.mdf',"&_
  "SIZE=2MB,"&_
  "MAXSIZE=10MB,"&_
  "FILEGROWTH=10)"&_
  "LOGON"&_
  "(NAME=MyDatabase_Log,"&_
  "FILENAME='D:\MyFolder\MyDatabaseLog.ldf',"&_
  "SIZE=1MB,"&_
  "MAXSIZE=5MB,"&_
  "FILEGROWTH=10)"
  DimmyCommandAsSqlCommand=NewSqlCommand(str,myConn)
  Try
  myConn.Open()
  reader=myCommand.ExecuteReader()
  CatchexAsException
  MessageBox.Show(ex.ToString())
  Finally
  IfNotreaderIsNothingThen
  reader.Close()
  If(myConn.State=ConnectionState.Open)Then
  myConn.Close()
  EndIf
  MessageBox.Show("Databaseiscreatedsuccessfully",_
  "MyProgram",MessageBoxButtons.OK,_
  MessageBoxIcon.Information)
  EndIf
  EndTry
  EndSub 

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

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

其他注意事项  

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

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

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

->

Tags:NET VB 编程

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接