.NET开发

本类阅读TOP10

·NHibernate快速指南(翻译)
·vs.net 2005中文版下载地址收藏
·【小技巧】一个判断session是否过期的小技巧
·VB/ASP 调用 SQL Server 的存储过程
·?dos下编译.net程序找不到csc.exe文件
·通过Web Services上传和下载文件
·学习笔记(补)《.NET框架程序设计(修订版)》--目录
·VB.NET实现DirectDraw9 (2) 动画
·VB.NET实现DirectDraw9 (1) 托管的DDraw
·建站框架规范书之——文件命名

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
一个用Wsh来控制SqlServer的Dcom的VBs

作者:未知 来源:月光软件站 加入时间:2005-5-13 月光软件站

   大家知道,wsh(windows script host)在windows平台下是用来代替bat文件的,以其灵活,功能强大许多人都用来处理自己的日常事物,但在调用excel,sqlerver方面可能不是太清楚了,今天这个例子就是  用vbscript来调用Dcom来生成数据库或删除数据库:

可以先建一个以.vbs结尾的文件,靠下面的东西到里面进去,双击就可以执行了,只要把里面的sql脚步的路径和Sqlserver的密码和账户改下就能用了

    Dim str,ff,i ,intt,strtmp '定义普通变量
    Dim goSQLServer,oDatabase '定义Sql_Dmo对象变量
    Dim fso      '定义文件对象

 call main()
'==============================================================================
'==============================================================================
public sub main()
      InitSqlDmo "."

  DropDatabase "Assetcheck"

  CreateDatabase "assetcheck"

  '取得数据库
  Set oDatabase = goSQLServer.Databases("assetCheck")
  'msgbox   oDatabase.PrimaryFilePath

  '执行大量的Sql文本文件
   ExecuteSqlFromFile    "D:\AssetCheck\sqltext\assetcheck.sql"

   ClearSqlDmo

  If Err.Number <> 0 Then MsgBox "发生错误"
  MsgBox "脚本生成完成"
end sub
'-------------------------------------------------------------------------------
'初始化连接对象
public sub InitSqlDmo(aServerName)
 Set fso = CreateObject("Scripting.FileSystemObject")
 Set goSQLServer = CreateObject("SQLDMO.SQLServer")
 goSQLServer.Connect aServerName, "sa", ""
end sub
'-----------------------------------------------------------------------------
'创建数据库
public sub CreateDatabase(astrDataBaseName )
  strtmp = " create DataBase  " &  astrDataBaseName
  goSQLServer.ExecuteImmediate strtmp 
end sub
'删除数据库
public sub DropDatabase(astrDataBaseName )
  strtmp = " Drop DataBase  " &  astrDataBaseName
  goSQLServer.ExecuteImmediate strtmp 
end sub
'------------------------------------------------------------------------------
'执行脚本
public sub ExecuteSqlFromFile(astrExecuteSqlFile )
 Set ff = fso.OpenTextFile(astrExecuteSqlFile)
  Do While ff.AtEndOfStream <> True
   strtmp = ff.ReadLine
   str = str & vbCrLf & strtmp
   i = i + 1
   If i >= 1500 And strtmp = "" Then
    i = 1
    oDatabase.ExecuteImmediate (str)
    str = ""
   End If
  Loop

  If Trim(str) <> "" Then
   oDatabase.ExecuteImmediate (str)
  End If

  ff.Close
end sub
'-----------------------------------------------------------------------------------
public sub ClearSqlDmo()
 Set fso = Nothing
 Set goSQLServer = Nothing
end sub




相关文章

相关软件