动态创建SQL Server数据库、表、存储过程等架构信息

原创 2003年08月18日 14:15:00
动态创建SQL Server数据库、表、存储过程等架构信息
作者: 孟宪会 出自: 【孟宪会之精彩世界】 发布日期: 2003-8-17 23:34:35

下面是利用SQL语句创建数据库、表、存储过程、视图、索引、规则、修改表、查看数据等的方法。所要增加的控件如下:

Imports System.Data Imports System.Data.SqlClient Public Class Form1 Inherits System.Windows.Forms.Form Private ConnectionString As String = "Data Source=.;Initial Catalog=;User Id=sa;Password=;" Private reader As SqlDataReader = Nothing Private conn As SqlConnection = Nothing Private cmd As SqlCommand = Nothing Private AlterTableBtn As System.Windows.Forms.Button Private sql As String = Nothing Private CreateOthersBtn As System.Windows.Forms.Button #Region " Windows 窗体设计器生成的代码 " '窗体重写处置以清理组件列表。 Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing Then If Not (components Is Nothing) Then components.Dispose() End If End If MyBase.Dispose(disposing) End Sub Public Sub New() MyBase.New() InitializeComponent() End Sub Private components As System.ComponentModel.IContainer Friend WithEvents 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 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.Button Friend WithEvents btnViewView As System.Windows.Forms.Button <System.Diagnostics.DebuggerStepThrough()> 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.Button() 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.Windows.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 = "CreateDBBtn" Me.CreateDBBtn.Size = New System.Drawing.Size(104, 23) Me.CreateDBBtn.TabIndex = 0 Me.CreateDBBtn.Text = "创建数据库" ' 'CreateTableBtn ' Me.CreateTableBtn.Location = New System.Drawing.Point(139, 9) Me.CreateTableBtn.Name = "CreateTableBtn" Me.CreateTableBtn.TabIndex = 1 Me.CreateTableBtn.Text = "创建表" ' 'CreateSPBtn ' Me.CreateSPBtn.Location = New System.Drawing.Point(230, 9) Me.CreateSPBtn.Name = "CreateSPBtn" Me.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 = "CreateViewBtn" Me.CreateViewBtn.TabIndex = 3 Me.CreateViewBtn.Text = "创建视图" ' 'btnAlterTable ' Me.btnAlterTable.Location = New System.Drawing.Point(441, 9) Me.btnAlterTable.Name = "btnAlterTable" Me.btnAlterTable.TabIndex = 4 Me.btnAlterTable.Text = "修改表" ' 'btnCreateOthers ' Me.btnCreateOthers.Location = New System.Drawing.Point(17, 43) Me.btnCreateOthers.Name = "btnCreateOthers" Me.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 = "btnDropTable" Me.btnDropTable.TabIndex = 6 Me.btnDropTable.Text = "删除表" ' 'btnViewData ' Me.btnViewData.Location = New System.Drawing.Point(351, 43) Me.btnViewData.Name = "btnViewData" Me.btnViewData.TabIndex = 7 Me.btnViewData.Text = "查看数据" ' 'btnViewSP ' Me.btnViewSP.Location = New System.Drawing.Point(230, 43) Me.btnViewSP.Name = "btnViewSP" Me.btnViewSP.Size = New System.Drawing.Size(104, 23) Me.btnViewSP.TabIndex = 8 Me.btnViewSP.Text = "查看存储过程" ' 'btnViewView ' Me.btnViewView.Location = New System.Drawing.Point(443, 43) Me.btnViewView.Name = "btnViewView" Me.btnViewView.TabIndex = 9 Me.btnViewView.Text = "查看视图" ' 'DataGrid1 ' Me.DataGrid1.DataMember = "" Me.DataGrid1.HeaderForeColor = System.Drawing.SystemColors.ControlText Me.DataGrid1.Location = New System.Drawing.Point(20, 76) Me.DataGrid1.Name = "DataGrid1" Me.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.Drawing.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 = "Form1" Me.Text = "动态创建SQL Server数据库、表、存储过程等架构信息" CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub #End Region ' 创建数据库 Private Sub CreateDBBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles CreateDBBtn.Click conn = New SqlConnection(ConnectionString) ' 打开连接 If conn.State <> ConnectionState.Open Then conn.Open() End If 'MyDataBase为数据库名称 Dim sql As String = "CREATE DATABASE MyDataBase ON PRIMARY (Name=MyDataBase_data, filename = " + _ "'D:/MyDataBase.mdf', size=3," + "maxsize=5, filegrowth=10%) log on" + "(name=MyDataBase_log, " + _ "filename='D:/MyDataBase.ldf',size=3," + "maxsize=20,filegrowth=1)" cmd = New SqlCommand(sql, conn) Try cmd.ExecuteNonQuery() Catch ae As SqlException MessageBox.Show(ae.Message.ToString()) End Try End Sub '创建表 Private Sub CreateTableBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles CreateTableBtn.Click conn = New SqlConnection(ConnectionString) ' 打开连接 If conn.State = ConnectionState.Open Then conn.Close() End If ConnectionString = "Data Source=.;Initial Catalog=MyDataBase;User Id=sa;Password=;" conn.ConnectionString = ConnectionString conn.Open() sql = "CREATE TABLE myTable" + "(myId INTEGER CONSTRAINT PKeyMyId PRIMARY KEY," + _ "myName CHAR(50) NOT Null, myAddress CHAR(255), myValues FLOAT)" cmd = New SqlCommand(sql, conn) Try cmd.ExecuteNonQuery() ' 添加纪录 sql = "INSERT INTO myTable(myId, myName, myAddress, myValues) " + _ "VALUES (1001, _'【孟宪会之精彩世界】之一', 'http://xml.sz.luohuedu.net/', 100 ) " cmd = New SqlCommand(sql, conn) cmd.ExecuteNonQuery() sql = "INSERT INTO myTable(myId, myName, myAddress, myValues) " + _ "VALUES (1002, '【孟宪会之精彩世界】之二', 'http://www.erp800.com/net_lover/', 99) " cmd = New SqlCommand(sql, conn) cmd.ExecuteNonQuery() sql = "INSERT INTO myTable(myId, myName, myAddress, myValues) " + _ "VALUES (1003, '【孟宪会之精彩世界】之三', 'http://xml.sz.luohuedu.net/', 99) " cmd = New SqlCommand(sql, conn) cmd.ExecuteNonQuery() sql = "INSERT INTO myTable(myId, myName, myAddress, myValues) " + _ "VALUES (1004, '【孟宪会之精彩世界】之四', 'http://www.erp800.com/net_lover/', 100) " cmd = New SqlCommand(sql, conn) cmd.ExecuteNonQuery() Catch ae As SqlException MessageBox.Show(ae.Message.ToString()) End Try End Sub '创建存储过程 Private Sub CreateSPBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles CreateSPBtn.Click sql = "CREATE PROCEDURE myProc AS" + " SELECT myName, myAddress FROM myTable GO" ExecuteSQLStmt(sql) End Sub '创建视图 Private Sub CreateViewBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles CreateViewBtn.Click sql = "CREATE VIEW myView AS SELECT myName FROM myTable" ExecuteSQLStmt(sql) End Sub '修改表 Private Sub btnAlterTable_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles btnAlterTable.Click sql = "ALTER TABLE MyTable ADD newCol datetime NOT NULL DEFAULT (getdate())" ExecuteSQLStmt(sql) End Sub '创建规则和索引 Private Sub btnCreateOthers_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles btnCreateOthers.Click sql = "CREATE UNIQUE INDEX " + "myIdx ON myTable(myName)" ExecuteSQLStmt(sql) sql = "CREATE RULE myRule " + "AS @myValues >= 90 AND @myValues < 9999" ExecuteSQLStmt(sql) End Sub '删除表 Private Sub btnDropTable_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles btnDropTable.Click Dim sql As String = "DROP TABLE MyTable" ExecuteSQLStmt(sql) End Sub '浏览表数据 Private Sub btnViewData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles btnViewData.Click conn = New SqlConnection(ConnectionString) If conn.State = ConnectionState.Open Then conn.Close() End If ConnectionString = "Data Source=.;Initial Catalog=MyDataBase;User Id=sa;Password=;" conn.ConnectionString = ConnectionString conn.Open() Dim da As New SqlDataAdapter("SELECT * FROM myTable", conn) Dim ds As New DataSet("myTable") da.Fill(ds, "myTable") DataGrid1.DataSource = ds.Tables("myTable").DefaultView End Sub '浏览存储过程 Private Sub btnViewSP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles btnViewSP.Click conn = New SqlConnection(ConnectionString) If conn.State = ConnectionState.Open Then conn.Close() End If ConnectionString = "Data Source=.;Initial Catalog=MyDataBase;User Id=sa;Password=;" conn.ConnectionString = ConnectionString conn.Open() Dim da As New SqlDataAdapter("myProc", conn) Dim ds As New DataSet("SP") da.Fill(ds, "SP") DataGrid1.DataSource = ds.DefaultViewManager End Sub '浏览视图 Private Sub btnViewView_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles btnViewView.Click conn = New SqlConnection(ConnectionString) If conn.State = ConnectionState.Open Then conn.Close() End If ConnectionString = "Data Source=.;Initial Catalog=MyDataBase;User Id=sa;Password=;" conn.ConnectionString = ConnectionString conn.Open() Dim da As New SqlDataAdapter("SELECT * FROM myView", conn) Dim ds As New DataSet() da.Fill(ds) DataGrid1.DataSource = ds.DefaultViewManager End Sub Private Sub ExecuteSQLStmt(ByVal sql As String) conn = New SqlConnection(ConnectionString) ' 打开连接 If conn.State = ConnectionState.Open Then conn.Close() End If ConnectionString = "Data Source=.;Initial Catalog=MyDataBase;User Id=sa;Password=;" conn.ConnectionString = ConnectionString conn.Open() cmd = New SqlCommand(sql, conn) Try cmd.ExecuteNonQuery() Catch ae As SqlException MessageBox.Show(ae.Message.ToString()) End Try End Sub End Class

SQL Server 比较两个数据库的视图和存储过程结构差异

IF EXISTS ( SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N'[dbo]....
  • tuzhen007
  • tuzhen007
  • 2014年02月26日 11:28
  • 1010

按日期保存数据的sql server动态存储过程

  • yibingde
  • yibingde
  • 2014年08月16日 12:44
  • 616

sql server数据库中存储过程实现跨数据库定时抓取数据

http://msdn.microsoft.com/zh-cn/library/ms188246.aspx   set ANSI_NULLS ON set QUOTED_IDENTIFIER O...
  • u013597888
  • u013597888
  • 2015年02月25日 16:54
  • 471

存储过程备份和还原sqlserver

数据库列表:帐套数据库与系统数据库列表。 备份文件列表:数据源来自master.dbo.sys_BackupHistory表。 首先在master数据库建立3个存储过程及一个备份历史表...
  • sgpian
  • sgpian
  • 2016年08月02日 18:55
  • 1912

SQL Server 存储过程详解

一. 什么是存储过程系统存储过程是系统创建的存储过程,目的在于能够方便的从系统表中查询信息或完成与更新数据库表相关的管理任务或其他的系统管理任务。系统存储过程主要存储在master数据库中,以“sp”...
  • younghaiqing
  • younghaiqing
  • 2017年03月17日 11:38
  • 1378

MySql存储过程动态创建表并插入数据

MySql存储过程动态创建表并插入数据          最近做的一个项目,数据库用的是MySql,对于MySql不是很熟练,只是会简单的应用,毕竟简单的sql语句还是相通的,但是随着项目的深入复杂...
  • linxi1209163com
  • linxi1209163com
  • 2015年07月31日 20:45
  • 4568

如何在sqlserver中写存储过程

original link http://www.codeproject.com/Articles/126898/Sql-Server-How-to-write-a-Stored-procedur...
  • w_vc_love
  • w_vc_love
  • 2013年03月09日 16:53
  • 4854

sqlsever存储过程练习题

 一、存储过程练习题 1、根据玩家姓名,显示该玩家玩过哪些公司的游戏 2、根据战绩的关键字(比如’第一名’)查询玩家所属的省份。 二、触发器练习题 1、PlayGame表的插入触发器:功...
  • Pythonor_clean
  • Pythonor_clean
  • 2015年04月13日 11:49
  • 668

SQL SERVER如何获取指定数据库中所有存储过程的参数

SELECT sp.object_Id as FunctionId, sp.name as FunctionName, isnull(param.name,'')as Para...
  • whaxrl
  • whaxrl
  • 2016年04月14日 14:22
  • 894

SQL server 存储过程 创建与使用

存储过程(Procedure) 存储过程是SQL语句和控制语句的预编译集合,保存在数据库中,可以调用执行,并且允许用户声明变量.逻辑控制语句以及其他强大的编程功能 ----------------...
  • miniduhua
  • miniduhua
  • 2016年08月03日 11:47
  • 9029
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:动态创建SQL Server数据库、表、存储过程等架构信息
举报原因:
原因补充:

(最多只允许输入30个字)