1、Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (ponents Is Nothing) Then ponents.Dispose() End If MyBase.Dispose(disposing) End Sub Public Sub New() MyBase.New() InitializeComponent() Private ponents As System.ComponentModel.IContainer Friend WithEvent
2、s DataGrid1 As System.Windows.Forms.DataGrid Friend WithEvents CreateDBBtn As System.Windows.Forms.Button Friend WithEvents CreateTableBtn As System.Windows.Forms.Button Friend WithEvents CreateSPBtn As System.Windows.Forms.Button Friend WithEvents CreateViewBtn As System.Windows.Forms.Button Friend
3、 WithEvents btnAlterTable As System.Windows.Forms.Button Friend WithEvents btnCreateOthers As System.Windows.Forms.Button Friend WithEvents btnDropTable As System.Windows.Forms.Button Friend WithEvents btnViewData As System.Windows.Forms.Button Friend WithEvents btnViewSP As System.Windows.Forms.But
4、ton Friend WithEvents btnViewView As System.Windows.Forms.Button Private Sub InitializeComponent() Me.CreateDBBtn = New System.Windows.Forms.Button() Me.CreateTableBtn = New System.Windows.Forms.Button() Me.CreateSPBtn = New System.Windows.Forms.Button() Me.CreateViewBtn = New System.Windows.Forms.B
5、utton() Me.btnAlterTable = New System.Windows.Forms.Button() Me.btnCreateOthers = New System.Windows.Forms.Button() Me.btnDropTable = New System.Windows.Forms.Button() Me.btnViewData = New System.Windows.Forms.Button() Me.btnViewSP = New System.Windows.Forms.Button() Me.btnViewView = New System.Wind
6、ows.Forms.Button() Me.DataGrid1 = New System.Windows.Forms.DataGrid() CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() CreateDBBtn Me.CreateDBBtn.Location = New System.Drawing.Point(19, 9) Me.CreateDBBtn.Name = CreateDBBtnMe.CreateDBBtn.Size = New System.D
7、rawing.Size(104, 23) Me.CreateDBBtn.TabIndex = 0 Me.CreateDBBtn.Text = 创立数据库CreateTableBtn Me.CreateTableBtn.Location = New System.Drawing.Point(139, 9) Me.CreateTableBtn.Name = CreateTableBtnMe.CreateTableBtn.TabIndex = 1 Me.CreateTableBtn.Text = 创立表CreateSPBtn Me.CreateSPBtn.Location = New System.
8、Drawing.Point(230, 9) Me.CreateSPBtn.Name = CreateSPBtnMe.CreateSPBtn.Size = New System.Drawing.Size(104, 23) Me.CreateSPBtn.TabIndex = 2 Me.CreateSPBtn.Text = 创立存储过程CreateViewBtn Me.CreateViewBtn.Location = New System.Drawing.Point(350, 9) Me.CreateViewBtn.Name = CreateViewBtnMe.CreateViewBtn.TabIn
9、dex = 3 Me.CreateViewBtn.Text = 创立视图btnAlterTable Me.btnAlterTable.Location = New System.Drawing.Point(441, 9) Me.btnAlterTable.Name = btnAlterTableMe.btnAlterTable.TabIndex = 4 Me.btnAlterTable.Text = 修改表btnCreateOthers Me.btnCreateOthers.Location = New System.Drawing.Point(17, 43) Me.btnCreateOthe
10、rs.Name = btnCreateOthersMe.btnCreateOthers.Size = New System.Drawing.Size(104, 23) Me.btnCreateOthers.TabIndex = 5 Me.btnCreateOthers.Text = 创立规那么和索引btnDropTable Me.btnDropTable.Location = New System.Drawing.Point(138, 43) Me.btnDropTable.Name = btnDropTableMe.btnDropTable.TabIndex = 6 Me.btnDropTa
11、ble.Text = 删除表btnViewData Me.btnViewData.Location = New System.Drawing.Point(351, 43) Me.btnViewData.Name = btnViewDataMe.btnViewData.TabIndex = 7 Me.btnViewData.Text = 查看数据btnViewSP Me.btnViewSP.Location = New System.Drawing.Point(230, 43) Me.btnViewSP.Name = btnViewSPMe.btnViewSP.Size = New System
12、.Drawing.Size(104, 23) Me.btnViewSP.TabIndex = 8 Me.btnViewSP.Text = 查看存储过程btnViewView Me.btnViewView.Location = New System.Drawing.Point(443, 43) Me.btnViewView.Name = btnViewViewMe.btnViewView.TabIndex = 9 Me.btnViewView.Text = 查看视图DataGrid1 Me.DataGrid1.DataMember = Me.DataGrid1.HeaderForeColor =
13、 System.Drawing.SystemColors.ControlText Me.DataGrid1.Location = New System.Drawing.Point(20, 76) Me.DataGrid1.Name = DataGrid1Me.DataGrid1.Size = New System.Drawing.Size(500, 183) Me.DataGrid1.TabIndex = 10 Form1 Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13) Me.ClientSize = New System.Drawi
14、ng.Size(538, 281) Me.Controls.AddRange(New System.Windows.Forms.Control() Me.DataGrid1, Me.btnViewView, Me.btnViewSP, Me.btnViewData, Me.btnDropTable, Me.btnCreateOthers, Me.btnAlterTable, Me.CreateViewBtn, Me.CreateSPBtn, Me.CreateTableBtn, Me.CreateDBBtn) Me.Name = Form1Me.Text = 动态创立SQL Server数据库
15、、表、存储过程等架构信息CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) #End Region 创立数据库 Private Sub CreateDBBtnClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CreateDBBtn.Click conn = New SqlConnection(ConnectionString) 翻开连接 If conn.Stat
16、e ConnectionState.Open Then conn.Open() MyDataBase为数据库名称 Dim sql As String = CREATE DATABASE MyDataBase ON PRIMARY (Name=MyDataBasedata, filename = + D:MyDataBase.mdf, size=3, + maxsize=5, filegrowth=10%) log on(name=MyDataBaselog, filename=MyDataBase.ldf,size=3,maxsize=20,filegrowth=1)cmd = New Sql
17、Command(sql, conn) Try cmd.ExecuteNonQuery() Catch ae As SqlException MessageBox.Show(ae.Message.ToString() End Try 创立表 Private Sub CreateTableBtnClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CreateTableBtn.Click If conn.State = ConnectionState.Open Then conn.Close() Conn
18、ectionString = Initial Catalog=MyDataBase;conn.ConnectionString = ConnectionString sql = CREATE TABLE myTable(myId INTEGER CONSTRAINT PKeyMyId PRIMARY KEY,myName CHAR(50) NOT Null, myAddress CHAR(255), myValues FLOAT) 添加纪录 INSERT INTO myTable(myId, myName, myAddress, myValues) VALUES (1001, 【孟宪会之精彩世
19、界】之一, xml.sz.luohuedu./, 100 ) VALUES (1002, 【孟宪会之精彩世界】之二.erp800./lover/, 99) VALUES (1003, 【孟宪会之精彩世界】之三VALUES (1004, 【孟宪会之精彩世界】之四, 100) 创立存储过程 Private Sub CreateSPBtnClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CreateSPBtn.Click CREATE PROCEDURE myProc AS SELECT myName,
20、 myAddress FROM myTable GOExecuteSQLStmt(sql) 创立视图 Private Sub CreateViewBtnClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CreateViewBtn.Click CREATE VIEW myView AS SELECT myName FROM myTable修改表 Private Sub btnAlterTableClick(ByVal sender As System.Object, ByVal e As Syste
21、m.EventArgs) Handles btnAlterTable.Click ALTER TABLE MyTable ADD newCol datetime NOT NULL DEFAULT (getdate()创立规那么和索引 Private Sub btnCreateOthersClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCreateOthers.Click CREATE UNIQUE INDEX myIdx ON myTable(myName)CREATE RULE myRu
22、le AS myValues = 90 AND myValues 9999删除表 Private Sub btnDropTableClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDropTable.Click DROP TABLE MyTable浏览表数据 Private Sub btnViewDataClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnViewData.Click Dim
23、 da As New SqlDataAdapter(SELECT * FROM myTable, conn) Dim ds As New DataSet(myTable) da.Fill(ds, DataGrid1.DataSource = ds.Tables().DefaultView 浏览存储过程 Private Sub btnViewSPClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnViewSP.Click myProcSPDataGrid1.DataSource = ds.DefaultViewManager 浏览视图 Private Sub btnViewViewClick(ByVal sender As System.Object, ByVal e As System.EventA