创建动态MSSQL数据库表

MsSQL 前端之家
前端之家收集整理的这篇文章主要介绍了创建动态MSSQL数据库表，前端之家小编觉得挺不错的，现在分享给大家，也给大家做个参考。

以下是引用片段：
<div class="codetitle"><a style="CURSOR: pointer" data="37229" class="copybut" id="copybut37229" onclick="doCopy('code37229')"> 代码如下:

<div class="codebody" id="code37229">
　　ImportsSystem.Data
　　ImportsSystem.Data.sqlClient
　　PublicClassForm1
　　InheritsSystem.Windows.Forms.Form
　　PrivateConnectionStringAsString="DataSource=.;InitialCatalog=;UserId=sa;Password=;"
　　PrivatereaderAssqlDataReader=Nothing
　　PrivateconnAssqlConnection=Nothing
　　PrivatecmdAssqlCommand=Nothing
　　PrivateAlterTableBtnAsSystem.Windows.Forms.Button
　　PrivatesqlAsString=Nothing
　　PrivateCreateOthersBtnAsSystem.Windows.Forms.Button
　　#Region"Windows窗体设计器生成的代码"
　　'窗体重写处置以清理组件列表。
　　ProtectedOverloadsOverridesSubDispose(ByValdisposingAsBoolean)
　　IfdisposingThen
　　IfNot(componentsIsNothing)Then
　　components.Dispose()
　　EndIf
　　EndIf
　　MyBase.Dispose(disposing)
　　EndSub
　　PublicSubNew()
　　MyBase.New()
　　InitializeComponent()
　　EndSub
　　PrivatecomponentsAsSystem.ComponentModel.IContainer
　　FriendWithEventsDataGrid1AsSystem.Windows.Forms.DataGrid
　　FriendWithEventsCreateDBBtnAsSystem.Windows.Forms.Button
　　FriendWithEventsCreateTableBtnAsSystem.Windows.Forms.Button
　　FriendWithEventsCreateSPBtnAsSystem.Windows.Forms.Button
　　FriendWithEventsCreateViewBtnAsSystem.Windows.Forms.Button
　　FriendWithEventsbtnAlterTableAsSystem.Windows.Forms.Button
　　FriendWithEventsbtnCreateOthersAsSystem.Windows.Forms.Button
　　FriendWithEventsbtnDropTableAsSystem.Windows.Forms.Button
　　FriendWithEventsbtnViewDataAsSystem.Windows.Forms.Button
　　FriendWithEventsbtnViewSPAsSystem.Windows.Forms.Button
　　FriendWithEventsbtnViewViewAsSystem.Windows.Forms.Button
　　PrivateSubInitializeComponent()
　　<div class="codetitle"><a style="CURSOR: pointer" data="28943" class="copybut" id="copybut28943" onclick="doCopy('code28943')"> 代码如下:
<div class="codebody" id="code28943">
Me.CreateDBBtn=NewSystem.Windows.Forms.Button()
　　Me.CreateTableBtn=NewSystem.Windows.Forms.Button()
　　Me.CreateSPBtn=NewSystem.Windows.Forms.Button()
　　Me.CreateViewBtn=NewSystem.Windows.Forms.Button()
　　Me.btnAlterTable=NewSystem.Windows.Forms.Button()
　　Me.btnCreateOthers=NewSystem.Windows.Forms.Button()
　　Me.btnDropTable=NewSystem.Windows.Forms.Button()
　　Me.btnViewData=NewSystem.Windows.Forms.Button()
　　Me.btnViewSP=NewSystem.Windows.Forms.Button()
　　Me.btnViewView=NewSystem.Windows.Forms.Button()
　　Me.DataGrid1=NewSystem.Windows.Forms.DataGrid()
　　CType(Me.DataGrid1,System.ComponentModel.ISupportInitialize).BeginInit()
　　Me.SuspendLayout()
　　'
　　'CreateDBBtn
　　'
　　Me.CreateDBBtn.Location=NewSystem.Drawing.Point(19,9)
　　Me.CreateDBBtn.Name="CreateDBBtn"
　　Me.CreateDBBtn.Size=NewSystem.Drawing.Size(104,23)
　　Me.CreateDBBtn.TabIndex=0
　　Me.CreateDBBtn.Text="创建数据库"
　　'
　　'CreateTableBtn
　　'
　　Me.CreateTableBtn.Location=NewSystem.Drawing.Point(139,9)
　　Me.CreateTableBtn.Name="CreateTableBtn"
　　Me.CreateTableBtn.TabIndex=1
　　Me.CreateTableBtn.Text="创建表"
　　'
　　'CreateSPBtn
　　'
　　Me.CreateSPBtn.Location=NewSystem.Drawing.Point(230,9)
　　Me.CreateSPBtn.Name="CreateSPBtn"
　　Me.CreateSPBtn.Size=NewSystem.Drawing.Size(104,23)
　　Me.CreateSPBtn.TabIndex=2
　　Me.CreateSPBtn.Text="创建存储过程"
　　'
　　'CreateViewBtn
　　'
　　Me.CreateViewBtn.Location=NewSystem.Drawing.Point(350,9)
　　Me.CreateViewBtn.Name="CreateViewBtn"
　　Me.CreateViewBtn.TabIndex=3中国网管联盟www.bitscn.com
　　Me.CreateViewBtn.Text="创建视图"
　　'
　　'btnAlterTable
　　'
　　Me.btnAlterTable.Location=NewSystem.Drawing.Point(441,9)
　　Me.btnAlterTable.Name="btnAlterTable"
　　Me.btnAlterTable.TabIndex=4
　　Me.btnAlterTable.Text="修改表"

#p#
<div class="codetitle"><a style="CURSOR: pointer" data="6917" class="copybut" id="copybut6917" onclick="doCopy('code6917')"> 代码如下:
<div class="codebody" id="code6917">　　'btnCreateOthers
　　'
　　Me.btnCreateOthers.Location=NewSystem.Drawing.Point(17,43)
　　Me.btnCreateOthers.Name="btnCreateOthers"
　　Me.btnCreateOthers.Size=NewSystem.Drawing.Size(104,23)
　　Me.btnCreateOthers.TabIndex=5
　　Me.btnCreateOthers.Text="创建规则和索引"
　　Feedom.net
　　'
　　'btnDropTable
　　'
　　Me.btnDropTable.Location=NewSystem.Drawing.Point(138,43)
　　Me.btnDropTable.Name="btnDropTable"
　　Me.btnDropTable.TabIndex=6
　　Me.btnDropTable.Text="删除表"
　　'
　　'btnViewData
　　'
　　Me.btnViewData.Location=NewSystem.Drawing.Point(351,43)
　　Me.btnViewData.Name="btnViewData"
　　Me.btnViewData.TabIndex=7
　　Me.btnViewData.Text="查看数据"
　　'
　　'btnViewSP
　　'
　　Me.btnViewSP.Location=NewSystem.Drawing.Point(230,43)
　　Feedom.net
　　Me.btnViewSP.Name="btnViewSP"
　　Me.btnViewSP.Size=NewSystem.Drawing.Size(104,23)
　　Me.btnViewSP.TabIndex=8
　　Me.btnViewSP.Text="查看存储过程"
　　'
　　'btnViewView
　　'
　　Me.btnViewView.Location=NewSystem.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=NewSystem.Drawing.Point(20,76)54com.cn
　　Me.DataGrid1.Name="DataGrid1"
　　Me.DataGrid1.Size=NewSystem.Drawing.Size(500,183)
　　Me.DataGrid1.TabIndex=10
　　'
　　'Form1
　　'
　　Me.AutoScaleBaseSize=NewSystem.Drawing.Size(5,13)
　　Me.ClientSize=NewSystem.Drawing.Size(538,281)
　　Me.Controls.AddRange(NewSystem.Windows.Forms.Control(){Me.DataGrid1,Me.btnViewView,
　　Me.btnViewSP,Me.btnViewData,Me.btnDropTable,Me.btnCreateOthers,Me.btnAlterTable,

<div class="codetitle"><a style="CURSOR: pointer" data="46438" class="copybut" id="copybut46438" onclick="doCopy('code46438')"> 代码如下:
<div class="codebody" id="code46438">　　Me.CreateViewBtn,Me.CreateSPBtn,Me.CreateTableBtn,Me.CreateDBBtn})
　　Me.Name="Form1"
　　Me.Text="动态创建sqlServer数据库、表、存储过程等架构信息"
　　CType(Me.DataGrid1,System.ComponentModel.ISupportInitialize).EndInit()
　　Me.ResumeLayout(False)
　　EndSub
　　#EndRegion
　　'创建数据库
　　PrivateSubCreateDBBtnClick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)
　　HandlesCreateDBBtn.Click
　　conn=NewsqlConnection(ConnectionString)
　　'打开连接
　　Ifconn.State<>ConnectionState.OpenThen
　　conn.Open()
　　EndIf
　　'MyDataBase为数据库名称
　　DimsqlAsString="CREATEDATABASEMyDataBaSEONPRIMARY(Name=MyDataBasedata,filename="+
　　54com.cn
　　"'D:\MyDataBase.mdf',size=3,"+"maxsize=5,filegrowth=10%)logon"+"(name=MyDataBaselog,"+
　　"filename='D:\MyDataBase.ldf',"+"maxsize=20,filegrowth=1)"
　　cmd=NewsqlCommand(sql,conn)
　　Try
　　cmd.ExecuteNonQuery()
　　CatchaeAssqlException
　　MessageBox.Show(ae.Message.ToString())
　　EndTry
　　EndSub
　　'创建表
　　PrivateSubCreateTableBtnClick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)
　　HandlesCreateTableBtn.Click
　　conn=NewsqlConnection(ConnectionString)
　　'打开连接
　　Ifconn.State=ConnectionState.OpenThen
　　conn.Close()
　　EndIf
　　ConnectionString="DataSource=.;InitialCatalog=MyDataBase;UserId=sa;Password=;"
　　conn.ConnectionString=ConnectionString
　　conn.Open()
　　sql="CREATETABLEmyTable"+"(myIdINTEGERCONSTRAINTPKeyMyIdPRIMARYKEY,"+_
　　"myNameCHAR(50)NOTNull,myAddressCHAR(255),myValuesFLOAT)"
　　cmd=NewsqlCommand(sql,conn)
　　Try
　　cmd.ExecuteNonQuery()
　　'添加纪录
　　54com.cn
　　sql="INSERTINTOmyTable(myId,myName,myAddress,myValues)"+
　　"VALUES(1001,'【孟宪会之精彩世界】之一','http://xml.sz.luohuedu.net/',100)"
　　cmd=NewsqlCommand(sql,conn)
　　cmd.ExecuteNonQuery()
　　sql="INSERTINTOmyTable(myId,myValues)"+_
　　"VALUES(1002,'【孟宪会之精彩世界】之二','http://www.erp800.com/net_lover/',99)"

#p#
<div class="codetitle"><a style="CURSOR: pointer" data="27875" class="copybut" id="copybut27875" onclick="doCopy('code27875')"> 代码如下:<div class="codebody" id="code27875">　　cmd=NewsqlCommand(sql,myValues)"+_
　　"VALUES(1003,'【孟宪会之精彩世界】之三',99)"
　　cmd=NewsqlCommand(sql,myValues)"+_
　　"VALUES(1004,'【孟宪会之精彩世界】之四',conn)
　　cmd.ExecuteNonQuery()
　　CatchaeAssqlException
　　MessageBox.Show(ae.Message.ToString())
　　EndTry
　　EndSub
　　'创建存储过程
　　PrivateSubCreateSPBtnClick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)
　　HandlesCreateSPBtn.Click
　　sql="CREATEPROCEDUREmyProcAS"+"SELECTmyName,myAddressFROMmyTableGO"
　　ExecutesqlStmt(sql)
　　EndSub
　　'创建视图
　　PrivateSubCreateViewBtnClick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)
　　HandlesCreateViewBtn.Click
　　sql="CREATEVIEWmyViewASSELECTmyNameFROMmyTable"
　　ExecutesqlStmt(sql)
　　EndSub
　　'修改表
　　PrivateSubbtnAlterTableClick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)
　　54com.cn
　　HandlesbtnAlterTable.Click
　　sql="ALTERTABLEMyTableADDnewColdatetimeNOTNULLDEFAULT(getdate())"
　　ExecutesqlStmt(sql)
　　EndSub
　　'创建规则和索引
　　PrivateSubbtnCreateOthersClick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)
　　HandlesbtnCreateOthers.Click
　　sql="CREATEUNIQUEINDEX"+"myIdxONmyTable(myName)"
　　ExecutesqlStmt(sql)
　　sql="CREATERULEmyRule"+"AS@myValues>=90AND@myValues<9999"
　　ExecutesqlStmt(sql)
　　EndSub
　　'删除表
　　PrivateSubbtnDropTableClick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)
　　HandlesbtnDropTable.Click
　　DimsqlAsString="DROPTABLEMyTable"
　　ExecutesqlStmt(sql)
　　EndSub
<div class="codetitle"><a style="CURSOR: pointer" data="10121" class="copybut" id="copybut10121" onclick="doCopy('code10121')"> 代码如下:<div class="codebody" id="code10121">
　　'浏览表数据
　　PrivateSubbtnViewDataClick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)
　　HandlesbtnViewData.Click
　　conn=NewsqlConnection(ConnectionString)
　　Ifconn.State=ConnectionState.OpenThen
　　conn.Close()
　　EndIf
　　ConnectionString="DataSource=.;InitialCatalog=MyDataBase;UserId=sa;Password=;"
　　conn.ConnectionString=ConnectionString
　　conn.Open()
　　DimdaAsNewsqlDataAdapter("SELECTFROMmyTable",conn)
　　DimdsAsNewDataSet("myTable")
　　da.Fill(ds,"myTable")
　　DataGrid1.DataSource=ds.Tables("myTable").DefaultView
　　EndSub
　　'浏览存储过程
　　PrivateSubbtnViewSPClick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)
　　HandlesbtnViewSP.Click
　　conn=NewsqlConnection(ConnectionString)
　　Ifconn.State=ConnectionState.OpenThen
　　conn.Close()
　　EndIf
　　ConnectionString="DataSource=.;InitialCatalog=MyDataBase;UserId=sa;Password=;"
　　conn.ConnectionString=ConnectionString
　　conn.Open()
　　DimdaAsNewsqlDataAdapter("myProc",conn)
　　DimdsAsNewDataSet("SP")
　　da.Fill(ds,"SP")
　　DataGrid1.DataSource=ds.DefaultViewManager
　　EndSub
　　'浏览视图
　　PrivateSubbtnViewViewClick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)
　　HandlesbtnViewView.Click
　　conn=NewsqlConnection(ConnectionString)
　　Ifconn.State=ConnectionState.OpenThen
　　conn.Close()
　　EndIf
　　ConnectionString="DataSource=.;InitialCatalog=MyDataBase;UserId=sa;Password=;"
　　conn.ConnectionString=ConnectionString
　　conn.Open()
　　DimdaAsNewsqlDataAdapter("SELECTFROMmyView",conn)
　　DimdsAsNewDataSet()
　　da.Fill(ds)
　　DataGrid1.DataSource=ds.DefaultViewManager
　　EndSub
　　PrivateSubExecutesqlStmt(ByValsqlAsString)
　　conn=NewsqlConnection(ConnectionString)
　　'打开连接
　　Ifconn.State=ConnectionState.OpenThen
　　conn.Close()
　　EndIf
　　ConnectionString="DataSource=.;InitialCatalog=MyDataBase;UserId=sa;Password=;"
　　conn.ConnectionString=ConnectionString
　　conn.Open()
　　cmd=NewsqlCommand(sql,conn)
　　Try
　　cmd.ExecuteNonQuery()
　　CatchaeAssqlException
　　MessageBox.Show(ae.Message.ToString())
　　EndTry
　　EndSub
　　EndClass

动态动态动态数据库数据库

猜你在找的MsSQL相关文章

SQL Server2012高可用之日志传送测试
（一）日志传送架构 （1.1）相关服务器 主服务器 ：用于生产的服务器，上面运行这生产SQL ...
SQL server事物复制报错：要复制的 LOB 数据的长度(xxxxx)超出了配置的最大值 65536
(一)事故背景 最近在SQL Server 2012生产数据库上配置完事物复制（发布订阅）后，生产数据...
SQL Server2012高可用之事物复制(发布订阅)测试
（一）测试目的 目前公司使用的SQL SERVER 2012高可用环境为主备模式，其中主库可执行读写...
使用zabbix监控sql server的发布订阅
（一）背景个人在使用sql server时，用到了sql server的发布订阅来做主从同步，类似MySQL的...
SQL学习（四）集合运算
UNION和OR谓词 找出 product 和 product2 中售价高于 500 的商品的基本信息. select * fro...
SQL学习（五） 高级处理
5.1 请说出针对本章中使用的 product（商品）表执行如下 SELECT 语句所能得到的结果。 SEL...
SQL学习(一）初识数据库
datawhale组队学习SQL task01
SQL学习(二）基础查询与排序
datawhale数据库组队学习第二天打卡
SQL Server 2005 返回修改后的数据
今天在公司看到同事写了个SQL2005的新特性的文章，觉得很实用，在这里和大家分享下。原著作...
SQL Server 数据库最小宕机迁移方案
一、目的 在做SQL Server数据库维护的时候，当上司要求我们把几十G的数据文件搬动到其它服...
MySQLMsSQLOracleSqlitePostgre SQLMariadbMongoDBNoSQLHBaseJDBC
undo日志persistent-cmysql-error-postal-codesql-match-almysql-5.6mysql-8.0database-tri安装路径系统错误data_dir丢失文件主从同步sql_mode数据库目录匿名用户character_seID归零数据库位置查询表重复字段查询字段截断日志SUSPECT7391Remote ServeLinked Serve玄学问题登录不上开启远程访问