这个表单使用一个叫做Files的Collection类来通俗化列表框
但在【0-1000】区间内的时候,ID生成有可能第一次是12,第二次是10,第三次是14电脑开机当前页面发生
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或保留为空白
mac同时按住command+shift+alt+/,调出Maintenance(维护)控制台,选择Registry(登记)
。