感兴趣的小伙伴,下面一起跟随编程之家 jb51.cc的小编两巴掌来看看吧!
以下是引用片段:代码如下:
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
#RegionWindows窗体设计器生成的代码
'窗体重写处置以清理组件列表。
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',+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,myValues)+_
VALUES(1002,'【孟宪会之精彩世界】之二','http://www.erp800.com/net_lover/',99)
#p#
代码如下:
cmd=NewsqlCommand(sql,myValues)+_
VALUES(1003,'【孟宪会之精彩世界】之三',99)
cmd=NewsqlCommand(sql,myValues)+_
VALUES(1004,'【孟宪会之精彩世界】之四',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