怎么创建动态MSSQL数据库表
发表于：2025-11-09 作者：千家信息网编辑
千家信息网最后更新 2025年11月09日，这篇文章主要讲解了"怎么创建动态MSSQL数据库表"，文中的讲解内容简单清晰，易于学习与理解，下面请大家跟着小编的思路慢慢深入，一起来研究和学习"怎么创建动态MSSQL数据库表"吧！复制代码 代码如下
千家信息网最后更新 2025年11月09日怎么创建动态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安全错误
数据库的锁怎样保障安全
网络技术和校园生活感悟
软件开发进度清单
网易软件开发岗位薪水
服务器安全证怎么办
南昌网站服务器
网络技术与信息安全技术区别
通信软件开发人员资薪
数据库管理书籍
未转变者服务器图标
电脑1.9的服务器
服务器怎么更新数据库
戴尔服务器后面有一条线
我的世界梦想之城服务器
计算机控制及网络技术pdf
深圳软件开发公司前程无忧招聘
网络技术抽题库吗
人力资源管理系统数据库信息
中国引文数据库来源文献
数据库access下载
轻量级云服务器安装docker
手机网络安全专项检查
数据库单点问题
国家网络安全周教育
网络安全设备兼容性测试工具
东莞pc软件开发费用是多少
怀旧服新服务器刷新时间
服务器测试部门能裁掉吗
趋势网络安全版是否可以杀毒
数据库热块问题
DB数据库jar文件导入
