创建动态MSSQL数据库表
发布时间：2020-12-12 09:36:47 所属栏目：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 Publ
|
<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 （编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |