创建动态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#