怎么创建动态MSSQL数据库表
发表于：2026-11-02 作者：千家信息网编辑
千家信息网最后更新 2026年11月02日，这篇文章主要讲解了"怎么创建动态MSSQL数据库表"，文中的讲解内容简单清晰，易于学习与理解，下面请大家跟着小编的思路慢慢深入，一起来研究和学习"怎么创建动态MSSQL数据库表"吧！复制代码 代码如下
千家信息网最后更新 2026年11月02日怎么创建动态MSSQL数据库表
这篇文章主要讲解了"怎么创建动态MSSQL数据库表"，文中的讲解内容简单清晰，易于学习与理解，下面请大家跟着小编的思路慢慢深入，一起来研究和学习"怎么创建动态MSSQL数据库表"吧！
复制代码 代码如下:
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()
复制代码 代码如下:
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#
复制代码 代码如下:
'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,_复制代码 代码如下:
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 '创建数据库 PrivateSubCreateDBBtn_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)_ HandlesCreateDBBtn.Click conn=NewSqlConnection(ConnectionString) '打开连接 Ifconn.State<>ConnectionState.OpenThen conn.Open() EndIf 'MyDataBase为数据库名称 DimsqlAsString="CREATEDATABASEMyDataBaseONPRIMARY(Name=MyDataBase_data,filename="+_ 54com.cn "'D:\MyDataBase.mdf',size=3,"+"maxsize=5,filegrowth=10%)logon"+"(name=MyDataBase_log,"+_ "filename='D:\MyDataBase.ldf',size=3,"+"maxsize=20,filegrowth=1)" cmd=NewSqlCommand(sql,conn) Try cmd.ExecuteNonQuery() CatchaeAsSqlException MessageBox.Show(ae.Message.ToString()) EndTry EndSub '创建表 PrivateSubCreateTableBtn_Click(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,myName,myAddress,myValues)"+_ "VALUES(1002,'【孟宪会之精彩世界】之二','http://www.erp800.com/net_lover/',99)"#p#
复制代码 代码如下:
cmd=NewSqlCommand(sql,conn) cmd.ExecuteNonQuery() sql="INSERTINTOmyTable(myId,myName,myAddress,myValues)"+_ "VALUES(1003,'【孟宪会之精彩世界】之三','http://xml.sz.luohuedu.net/',99)" cmd=NewSqlCommand(sql,conn) cmd.ExecuteNonQuery() sql="INSERTINTOmyTable(myId,myName,myAddress,myValues)"+_ "VALUES(1004,'【孟宪会之精彩世界】之四','http://www.erp800.com/net_lover/',100)" cmd=NewSqlCommand(sql,conn) cmd.ExecuteNonQuery() CatchaeAsSqlException MessageBox.Show(ae.Message.ToString()) EndTry EndSub '创建存储过程 PrivateSubCreateSPBtn_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)_ HandlesCreateSPBtn.Click sql="CREATEPROCEDUREmyProcAS"+"SELECTmyName,myAddressFROMmyTableGO" ExecuteSQLStmt(sql) EndSub '创建视图 PrivateSubCreateViewBtn_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)_ HandlesCreateViewBtn.Click sql="CREATEVIEWmyViewASSELECTmyNameFROMmyTable" ExecuteSQLStmt(sql) EndSub '修改表 PrivateSubbtnAlterTable_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)_ 54com.cn HandlesbtnAlterTable.Click sql="ALTERTABLEMyTableADDnewColdatetimeNOTNULLDEFAULT(getdate())" ExecuteSQLStmt(sql) EndSub '创建规则和索引 PrivateSubbtnCreateOthers_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)_ HandlesbtnCreateOthers.Click sql="CREATEUNIQUEINDEX"+"myIdxONmyTable(myName)" ExecuteSQLStmt(sql) sql="CREATERULEmyRule"+"AS@myValues>=90AND@myValues<9999" ExecuteSQLStmt(sql) EndSub '删除表 PrivateSubbtnDropTable_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)_ HandlesbtnDropTable.Click DimsqlAsString="DROPTABLEMyTable" ExecuteSQLStmt(sql) EndSub 复制代码 代码如下: '浏览表数据 PrivateSubbtnViewData_Click(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("SELECT*FROMmyTable",conn) DimdsAsNewDataSet("myTable") da.Fill(ds,"myTable") DataGrid1.DataSource=ds.Tables("myTable").DefaultView EndSub '浏览存储过程 PrivateSubbtnViewSP_Click(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 '浏览视图 PrivateSubbtnViewView_Click(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("SELECT*FROMmyView",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数据库表"的内容了，经过本文的学习后，相信大家对怎么创建动态MSSQL数据库表这一问题有了更深刻的体会，具体使用情况还需要大家实践验证。这里是，小编将为大家推送更多相关知识点的文章，欢迎关注！
代码
数据
数据库
动态
过程
存储
精彩
世界
视图
学习
浏览
内容
窗体
索引
规则
信息
名称
就是
思路
情况
数据库的安全要保护哪些东西
数据库安全各自的含义是什么
生产安全数据库录入
数据库的安全性及管理
数据库安全策略包含哪些
海淀数据库安全审计系统
建立农村房屋安全信息数据库
易用的数据库客户端支持安全管理
连接数据库失败ssl安全错误
数据库的锁怎样保障安全
互联网新科技
新华互联网科技学校
科技与互联网发展
互联网科技英文
互联网科技小贷
广州凡科互联网科技
时间互联网络科技
伴你行互联网科技有限公司
齐家互联网科技有限公司
长亮科技 互联网金融
江苏南京365互联网科技
互联网公司科技股
上海宁丞科技互联网
苏州铭阳互联网科技有限公司
企晟互联网信息科技有限公司
互联网科技圈年度人物
扫呗互联网科技有限公司
张家口科技产业互联网平台
科技美学互联网 艺术
恒生科技互联网指数十大成分股
伟宏互联网科技
重生之互联网科技帝国
互联网是不是新科技
奇士达互联网科技
互联网科技美容
隆华科技工业互联网
深圳国际航运科技和互联网
互联网科技寓意
深圳艾果互联网通讯科技
中国互联网公司的科技投入
