2024年6月21日发(作者：)

-

下面是利用sql语句创立数据库、表、存储过程、视图、索引、规则、修改表、查看数据等

的方法。所要增加的控件如下：

imports

imports ent

public class form1

inherits

private connectionstring as string = "data source=.;initial catalog=;user

id=sa;password=;"

private reader as sqldatareader = nothing

private conn as sqlconnection = nothing

private cmd as sqlmand = nothing

private altertablebtn as

private sql as string = nothing

private createothersbtn as

*region " windows 窗体设计器生成的代码 "

窗体重写处置以清理组件列表。

protected overloads overrides sub dispose(byval disposing as boolean)

if disposing then

if not (ponents is nothing) then

e()

end if

end if

e(disposing)

end sub

public sub new()

()

initializeponent()

end sub

private ponents as iner

friend withevents datagrid1 as id

friend withevents createdbbtn as

friend withevents createtablebtn as

friend withevents createspbtn as

friend withevents createviewbtn as

friend withevents btnaltertable as

friend withevents btncreateothers as

friend withevents btndroptable as

friend withevents btnviewdata as

friend withevents btnviewsp as

friend withevents btnviewview as

. z

-

private sub initializeponent()

dbbtn = new ()

tablebtn = new ()

spbtn = new ()

viewbtn = new ()

ertable = new ()

ateothers = new ()

ptable = new ()

wdata = new ()

wsp = new ()

wview = new ()

id1 = new id()

ctype(id1, rtinitialize).begininit()

dlayout()

createdbbtn

on = new (19, 9)

= "createdbbtn"

= new (104, 23)

e* = 0

*t = "创立数据库"

createtablebtn

on = new (139, 9)

= "createtablebtn"

e* = 1

*t = "创立表"

createspbtn

on = new (230, 9)

= "createspbtn"

= new (104, 23)

e* = 2

*t = "创立存储过程"

createviewbtn

on = new (350, 9)

= "createviewbtn"

e* = 3

. z