通过SPT创建C
曾经用sqldmo创建远程数据库、表、权限等方法,为了少带sqldmo的dll,现在改为直接用spt创建,下面是我已经写完工的部分,资源共享:)发上来供大家参考并请多多指教!谢谢!
parameters cservername,cuser,cpassword,cdatabase
sqldisconnect(0) &&断开所有连接
lsconn='driver=sql server;server='+cservername+';uid='+cuser+';pwd='+cpassword+';database=master'
lnconn=sqlstringconnect(lsconn) &&建立连接句柄
if lnconn>0
*!* 1. 建新数据库
sqlexec(lnconn,'select cast(filename as char(200)) sys_path from sysfiles','mycursor')
sqlpath=alltrim(left(mycursor.sys_path,rat('\',alltrim(mycursor.sys_path))))
wait window "正在创建 ["+cdatabase+"] 数据库,请稍候......" nowait
sqlexec(lnconn,"sp_databases","mycursor") &&列出服务器上的数据库
select mycursor
go top
locate for alltrim(upper(mycursor.database_name))==alltrim(upper(cdatabase))
if !found()
csql="create database "+alltrim(cdatabase)
csql=csql+" on "
csql=csql+" ( name = "+alltrim(cdatabase)+"_dat,"
csql=csql+" filename = '"+sqlpath+alltrim(cdatabase)+"_dat.mdf',"
csql=csql+" size = 4,"
csql=csql+" filegrowth = 2 )"
csql=csql+" log on "
csql=csql+" ( name = "+alltrim(cdatabase)+"_log,"
csql=csql+" filename = '"+sqlpath+alltrim(cdatabase)+"_log.ldf',"
csql=csql+" size = 2mb,"
csql=csql+" filegrowth = 2mb )"
if sqlexec(lnconn,csql)
0条评论