- Rongsen.Com.Cn 版权所有 2008-2010 京ICP备08007000号 京公海网安备11010802026356号 朝阳网安编号:110105199号
- 北京黑客防线网安工作室-黑客防线网安服务器维护基地为您提供专业的
服务器维护
,企业网站维护
,网站维护
服务 - (建议采用1024×768分辨率,以达到最佳视觉效果) Powered by 黑客防线网安 ©2009-2010 www.rongsen.com.cn
作者:黑客防线网安VB教程基地 来源:黑客防线网安VB教程基地 浏览次数:0 |
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)
etsdk;"&_
"uid=sa;pwd=;database=master")
str="CREATEDATABASEMyDatabaseONPRIMARY"&_
"(NAME=MyDatabase_Data,"&_
"FILENAME='D:MyFolderMyDatabaseData.mdf',"&_
"SIZE=2MB,"&_
"MAXSIZE=10MB,"&_
"FILEGROWTH=10)"&_
"LOGON"&_
"(NAME=MyDatabase_Log,"&_
"FILENAME='D:MyFolderMyDatabaseLog.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"
->我要申请本站:N点 | 黑客防线官网 | |
专业服务器维护及网站维护手工安全搭建环境,网站安全加固服务。黑客防线网安服务器维护基地招商进行中!QQ:29769479 |