me.createviewbtn, me.createspbtn, me.createtablebtn, me.createdbbtn})
me.name = form1
me.text = 动态创建sql server数据库、表、存储过程等架构信息
ctype(me.datagrid1, system.componentmodel.isupportinitialize).endinit()
me.resumelayout(false)
end sub
#end region
' 创建数据库
private sub createdbbtn_click(byval sender as system.object, byval e as system.eventargs) _
handles createdbbtn.click
conn = new sqlconnection(connectionstring)
' 打开连接
if conn.state connectionstate.open then
conn.open()
end if
'mydatabase为数据库名称
dim sql as string = create database mydatabase on primary (name=mydatabase_data, filename = + _
54com.cn
'd:/mydatabase.mdf', size=3, + maxsize=5, filegrowth=10%) log on + (name=mydatabase_log, + _
filename='d:/mydatabase.ldf',size=3, + maxsize=20,filegrowth=1)
cmd = new sqlcommand(sql, conn)
try
cmd.executenonquery()
catch ae as sqlexception
messagebox.show(ae.message.tostring())
end try
end sub
'创建表
private sub createtablebtn_click(byval sender as system.object, byval e as system.eventargs) _
handles createtablebtn.click
conn = new sqlconnection(connectionstring)
' 打开连接
if conn.state = connectionstate.open then
conn.close()
end if
connectionstring = data source=.;initial catalog=mydatabase;user id=sa;password=;
conn.connectionstring = connectionstring
conn.open()
sql = create table mytable + (myid integer constraint pkeymyid primary key, + _
myname char(50) not null, myaddress char(255), myvalues float)
cmd = new sqlcommand(sql, conn)
try
cmd.executenonquery()
' 添加纪录
54com.cn
sql = insert into mytable(myid, myname, myaddress, myvalues) + _
values (1001, _'【孟宪会之精彩世界】之一', 'http://xml.sz.luohuedu.net/', 100 )
cmd = new sqlcommand(sql, conn)
cmd.executenonquery()
sql = insert into mytable(myid, myname, myaddress, myvalues) + _
values (1002, '【孟宪会之精彩世界】之二', 'http://www.erp800.com/net_lover/', 99)