cmd = new sqlcommand(sql, conn)
cmd.executenonquery()
sql = insert into mytable(myid, myname, myaddress, myvalues) + _
values (1003, '【孟宪会之精彩世界】之三', 'http://xml.sz.luohuedu.net/', 99)
cmd = new sqlcommand(sql, conn)
cmd.executenonquery()
sql = insert into mytable(myid, myname, myaddress, myvalues) + _
values (1004, '【孟宪会之精彩世界】之四', 'http://www.erp800.com/net_lover/', 100)
cmd = new sqlcommand(sql, conn)
cmd.executenonquery()
catch ae as sqlexception
messagebox.show(ae.message.tostring())
end try
end sub
'创建存储过程
private sub createspbtn_click(byval sender as system.object, byval e as system.eventargs) _
handles createspbtn.click
sql = create procedure myproc as + select myname, myaddress from mytable go
executesqlstmt(sql)
end sub
'创建视图
private sub createviewbtn_click(byval sender as system.object, byval e as system.eventargs) _
handles createviewbtn.click
sql = create view myview as select myname from mytable
executesqlstmt(sql)
end sub
'修改表
private sub btnaltertable_click(byval sender as system.object, byval e as system.eventargs) _
54com.cn
handles btnaltertable.click
sql = alter table mytable add newcol datetime not null default (getdate())
executesqlstmt(sql)
end sub
'创建规则和索引
private sub btncreateothers_click(byval sender as system.object, byval e as system.eventargs) _
handles btncreateothers.click
sql = create unique index + myidx on mytable(myname)
executesqlstmt(sql)
sql = create rule myrule + as @myvalues >= 90 and @myvalues executesqlstmt(sql)
end sub
'删除表
private sub btndroptable_click(byval sender as system.object, byval e as system.eventargs) _
handles btndroptable.click
dim sql as string = drop table mytable
executesqlstmt(sql)
end sub