Delphi通过SQLDMO來控制SQLSERVER

原作者: [db:作者] 来自: [db:来源] 收藏邀请

作者：陆岛工作室

2008-05-30 我在网上找到一个网址，俄国人的，里面关于 SQLDMO的说明有很大的帮助。
地址如下：http://www.delphiturkiye.com/forum/viewtopic.php?f=19&t=20072 希望得空的时候，再来好好研究。

首先，需要把 SQLDMO.DLL 文件导入到DELPHI 中。sqldmo.dll 是一个com, 安装SQLServer 后位于 Program Files\Microsoft SQL Server\80\Tools\Binn
打开Delphi,Project菜单->Import Type Library...,在列表框中找到"Microsoft SQLDMO ObjectLibrary(Version 8.0)"
导入完后，当我们Compile的时候却发现这个单元无法编译, 提示大意为ID重复定义, 这个简单, 找到不能编辑的地方，把ID 改成 xID就行了，这样就可以编译通过。
在使用过程中,我发现在很多情况下,SQLDMO_TLB.pas中的类是不能用的, 出现av错误。比如Restore，必须这样使用: CreateOleObject('SQLDMO.Restore');
定义相同的类，如TTABLE等，这个需要处理一下，在TTABLE前加单元名，如DBE.TTABLE 或 SQLDMO_TLB.TTABLE 就OK啦。
下需介绍几个常用的功能。

取SQLSERVER的版本

function getSQLVersion(ServerName,LoginName,LoginPassword:String):TSqlVersion;
var
     osqlserver :_SqlServer;
     temp :SQLDMO_SQL_VER;
begin
     try
          oSqlserver :=coSqlserver.Create;
          oSqlserver._AddRef;
          oSqlserver.Name :=ServerName;
          temp :=oSqlserver.PingSQLServerVersion(ServerName,LoginName,LoginPassword);
          if temp=SQLDMOSQLVer_Unknown then
               result :=UnknownVer
          else if temp=SQLDMOSQLVer_Pre_60 then
               result :=SQL60
          else if temp=SQLDMOSQLVer_60 then
               result :=SQL60
          else if temp=SQLDMOSQLVer_65 then
               result :=SQL65
          else if temp=SQLDMOSQLVer_70 then
               result :=SQL70
          else
               result :=SQL2000;
          oSqlserver._Release;
          oSqlserver :=nil;
     except
          on E :Exception do
          begin
               application.MessageBox(Pchar(‘取SQLSERVER版本資訊出錯：‘+E.message),‘系統提示‘,MB_OK+MB_ICONSTOP);
          end;
     end;
end;

取安裝SQLSERVER操作系統的版本

function getOSType(ServerName:String):ToSTypes;
var
     oSqlserver :_SqlServer;
begin
     try
          oSqlServer :=coSqlServer.Create;
          oSqlserver._AddRef;
          oSqlserver.Name :=ServerName;
          if oSqlserver.IsOS(SQLDMO_WIN95) then
               result :=Win98ORWin95
          else if oSqlserver.IsOS(SQLDMO_WINNT) then
               result :=WinNTOR2000
          else
               result :=SysUnknown;
          oSqlserver._Release;
          oSqlserver :=nil;
      except
          on E :Exception do
          begin
               application.MessageBox(Pchar(‘取SQLSERVER操作系統出錯：‘+E.message),‘系統提示‘,MB_OK+MB_ICONSTOP);
          end;
     end;
end;

停止SQLServer

function stopSQLServer(serverName:String):Boolean;
var
     oSqlserver :_SqlServer;
begin
     try
          oSqlServer :=coSqlserver.Create;
          oSqlserver._AddRef;
          oSqlserver.Name :=ServerName;
          oSqlServer.Stop;
          oSqlserver._Release;
          oSqlserver :=nil;
     except
          on E :Exception do
          begin
               application.MessageBox(Pchar(‘停止SQLSERVER服務出錯：‘+E.message),‘系統提示‘,MB_OK+MB_ICONSTOP);
           end;
     end;
end;

暫停SQLServer

function PauseSQLServer(ServerName:String):Boolean;
var
     oSqlserver :_SqlServer;
begin
     try
          oSqlServer :=coSqlserver.Create;
          oSqlserver._AddRef;
          oSqlserver.Name :=ServerName;
          oSqlServer.Pause;
          oSqlserver._Release;
          oSqlserver :=nil;
     except
          on E :Exception do
          begin
               application.MessageBox(Pchar(‘暫停SQLSERVER服務出錯：‘+E.message),‘系統提示‘,MB_OK+MB_ICONSTOP);
          end;
     end;
end;

取SQLSERVER的狀態

function getSQLServerStatus(ServerName:String):TSQlServerStatus;
var
     oSqlServer :_SqlServer;
begin
     try
          osqlserver :=coSqlserver.Create;
          osqlServer._AddRef;
          osqlserver.Name :=serverName;
          if oSqlserver.Status=SQLDMOSvc_Unknown then
               result :=Unknown
          else if oSqlserver.Status=SQLDMOSvc_Running then
               result :=Running
          else if oSqlserver.Status=SQLDMOSvc_Paused then
               result :=Paused
          else if oSqlserver.Status=SQLDMOSvc_Stopped then
               result :=Stopped
          else if oSqlserver.Status=SQLDMOSvc_Starting then
               result :=Starting
          else if oSqlserver.Status=SQLDMOSvc_Stopping then
               result :=Stopping
          else if oSqlserver.Status=SQLDMOSvc_Continuing then
               result :=Continuing
          else if oSqlserver.Status=SQLDMOSvc_Pausing then
               result :=Pausing;
          oSqlserver._Release;
          oSqlserver :=nil;
     except
          on E :Exception do
          begin
               application.MessageBox(Pchar(‘取SQLSERVER狀態出錯：‘+E.message),‘系統提示‘,MB_OK+MB_ICONSTOP);
          end;
     end;
end;

啟動SQLServer服務

function StartSQLServer(ServerName,LoginName,LoginPassword:String):Boolean;
var
     oSqlServer :_SqlServer;
begin
     try
          osqlserver :=coSqlserver.Create;
          oSqlServer._AddRef;
          osqlserver.Name :=serverName;
          if oSqlServer.Status =SQLDMOSvc_Stopped then //服務停止
               oSqlServer.Start(False,ServerName,LoginName,LoginPassword);
          if oSqlServer.Status=SQLDMOSvc_Paused then //服務暫停
               oSqlServer.Continue;
          if (oSqlServer.Status=SQLDMOSvc_Paused) or (oSqlServer.Status=SQLDMOSvc_Stopped) then
               result :=False
          else
               result :=true;
          oSqlServer._Release;
          oSqlServer :=nil;
     except
          on E :Exception do
          begin
               result:=False;
               application.MessageBox(Pchar(‘啟動SQLSERVER服務出錯：‘+E.message),‘系統提示‘,MB_OK+MB_ICONSTOP);
          end;
     end;
end;

創建備份設備

procedure createBackUpDevice(serverName,LoginName,LoginPassword,DeviceName,FileName:String);
var
  osqlServer :_SqlServer;
  oBackupDevice :_BackupDevice;
begin
  try
    osqlServer :=coSqlServer.Create;
    osqlserver._AddRef;

    osqlServer.Connect(servername,LoginName,LoginPassword);
    oBackupDevice :=coBackupDevice.Create;
    oBackupDevice.Name :=DeviceName;
    oBackupDevice.PhysicalLocation :=FileName;
        oBackupDevice.Type_ :=SQLDMODevice_DiskDump;
    osqlServer.BackupDevices.Add(oBackupDevice);
    osqlServer.DisConnect;
    osqlserver._Release;
    osqlserver :=nil;
  except
    on E :Exception do
    begin
      application.MessageBox(Pchar(‘創建SQLSERVER備份設備出錯：‘+E.message),‘系統提示‘,MB_OK+MB_ICONSTOP);
    end;
  end;
end;

刪除備份設備

procedure dropBackUpDevice(serverName,Loginname,LoginPassword,deviceName:String);
var
  osqlServer :_SqlServer;
  count,i:Integer;
  oBackupDevice :_BackupDevice;
begin
  try
    osqlServer :=coSqlServer.Create;
    osqlServer._AddRef;
    osqlServer.Connect(servername,LoginName,LoginPassword);
    count :=osqlServer.BackupDevices.Count;
    For i :=1 to count do
    begin
      oBackupDevice:=osqlServer.BackupDevices.Item(i);
      if UpperCase(Trim(oBackupDevice.Name))=UpperCase(trim(deviceName)) then
      begin
        oSqlServer.BackupDevices.Remove(i);
        break;
      end;
    end;
    oSqlserver.DisConnect;
    oSqlServer._Release;
    oSqlServer :=nil;
  except
    on E :Exception do
    begin
      application.MessageBox(Pchar(‘刪除SQLSERVER備份設備出錯：‘+E.message),‘系統提示‘,MB_OK+MB_ICONSTOP);
    end;
  end;
end;

取所有的備份設備

function GetBackupDeviceInfo(serverName,LoginName,LoginPassword:String):TStringList;
var
  osqlServer :_SqlServer;
  count,i:Integer;
  oBackupDevice :_BackupDevice;
  rtn :TStringList;
begin
  try
    osqlserver :=cosqlServer.Create;
    osqlServer._AddRef;
    osqlserver.Connect(serverName,LoginName,LoginPassword);
    count :=osqlServer.BackupDevices.Count;
    rtn :=TStringList.Create;

    For i :=1 to count do
    begin
      oBackupDevice :=oSqlserver.BackupDevices.Item(i);
      rtn.Append(oBackupDevice.Name);
    end;

    result :=rtn;
    osqlserver.DisConnect;
    osqlserver._Release;
    osqlserver :=nil;
  except
    on E :Exception do
    begin
      application.MessageBox(Pchar(‘取SQLSERVER備份設備資訊出錯：‘+E.message),‘系統提示‘,MB_OK+MB_ICONSTOP);
    end;
    end;
end;

殺所有連接SqlServer的線程

procedure killprocess(serverName,dataBaseName,LoginName,LoginPassword:String);
var
  oqr :QueryResults;
  osqlServer :_SqlServer;
  coli,colcount,count,i :Integer;
  rs : _RecordSet;
  iColPIDNum :Integer;
  iColDbName :Integer;
  strName,strDBName:String;
  lPID :Integer;
begin
  try
    osqlserver :=coSqlserver.Create;
    osqlserver._AddRef;
    osqlServer.Connect(serverName,Loginname,LoginPassword);
    oqr :=osqlserver.EnumProcesses(-1);
    iColPIDNum :=-1;
    iColDbName :=-1;
    colcount :=oqr.Columns;

    for i :=1 to colcount do
    begin
      strName :=oqr.ColumnName[i];
      if Uppercase(strName)=‘SPID‘ then
        iColPIDNum :=i
      else if Uppercase(strName)=‘DBNAME‘ then
        iColDbName :=I;

      IF (iColPIDNum<>-1) and (iColDbName<>-1) then
        break;
    end;

    count :=oqr.Rows;
    for i :=1 to count do
    begin
      lPID :=oqr.GetColumnLong(i,iColPIDNum);
      strDBName:=oqr.GetColumnString(i,iColDbName);
      if Uppercase(Trim(strDBName))=Uppercase(trim(dataBaseName)) then
        oSqlserver.KillProcess(lPID);
    end;
  except
    on E :Exception do
    begin
      application.MessageBox(Pchar(‘刪除Sqlserver線程出錯：‘+E.message),‘系統提示‘,MB_OK+MB_ICONSTOP);
    end;
  end;
end;

取服務器所有的資料庫

function getAllDataBases(serverName,LoginName,LoginPassword:String):TStringList;
var
  oSqlServer :_SqlServer;
  rtn :TStringList;
  odataBase :_DataBase;
  count,i :Integer;
begin
  try
    osqlServer :=coSqlServer.Create;
    osqlServer._AddRef;
    osqlServer.Connect(ServerName,LoginName,LoginPassword);
    count :=osqlServer.Databases.Count;
    rtn :=TStringList.Create;

    for i :=1 to count do
    begin
      odataBase :=osqlserver.Databases.Item(i,‘owner‘);
      rtn.Append(odataBase.Name);
    end;

    result :=rtn;
    osqlServer.DisConnect;
    oSqlServer._Release;
    osqlServer :=nil;
  except
    on E :Exception do
    begin
      application.MessageBox(Pchar(‘取SQLSERVER資料庫列表出錯了‘+E.message),‘系統提示‘,MB_OK+MB_ICONSTOP);
    end;
  end;
end;

取網絡中所有SQLServer服務器列表

Function GetAllServers:TStringList;
var
  sApp : _Application ;
  sName : NameList;
  rtn :TStringList;
  count,i :Integer;
begin
  try
    sApp :=coApplication.Create;
    sName :=sApp.ListAvailableSQLServers;
    rtn :=TStringList.Create;
    count :=SName.Count;

    for i :=0 to count -1 do
      rtn.Append(sName.Item(i));

    result :=rtn;
  except
    on E :Exception do
    begin
      application.MessageBox(Pchar(‘取網絡中的SQLSERVER列表出錯了‘+E.message),‘系統提示‘,MB_OK+MB_ICONSTOP);
    end;
  end;
end;

刪除資料庫

procedure dropDatabase(serverName,LoginName,LoginPassword,dataBaseName:String);
var
  osqlServer:_SqlServer;
begin
  try
    osqlServer :=coSqlserver.Create;
    osqlServer._AddRef;
    osqlServer.Connect(serverName,LoginName,LoginPassword);
    osqlServer.Databases.Remove(dataBaseName,‘owner‘);
    oSqlServer.DisConnect;
    osqlServer._Release;
    oSqlServer :=nil;
  except
    on E:Exception do
    begin
      application.MessageBox(Pchar(‘刪除資料庫錯誤：‘+E.Message),‘系統提示‘,MB_OK+MB_ICONSTOP);
    end;
  end;
end;

創建資料庫

procedure createDatabase(serverName,LoginName,LoginPassword,dataBaseName:String);
var
  odataBase :_Database;
  oDBFileData :_DBFile;
  oLogFile :_LogFile;
  osqlServer :_SqlServer;
begin
  try
    osqlServer :=cosqlServer.Create;
    osqlServer._AddRef;
    osqlServer.Connect(serverName,LoginName,LoginPassword);
    odataBase :=coDataBase.Create;
    odataBase._AddRef;
    oDBFileData :=coDBFile.Create;
    oDBFileData._AddRef;
    oLogFile :=coLogFile.Create;
    oLogFile._AddRef;
    oDataBase.Name :=dataBaseName;
    oDBFileData.Name :=dataBaseName;
    oDBFileData.PhysicalName :=oSqlServer.Registry.SQLDataRoot +‘\data\‘+dataBaseName+‘.mdf‘;
    oDBFileData.PrimaryFile :=true;
    oDBFileData.Size :=2;
    oDBFileData.FileGrowthType := SQLDMOGrowth_MB;
    oDBFileData.FileGrowth := 1;
    oDatabase.FileGroups.Item(‘PRIMARY‘).DBFiles.Add(oDBFileData);

    oLogFile.Name :=dataBaseName+‘Log‘;
    oLogFile.PhysicalName :=oSqlServer.Registry.SQLDataRoot +‘\data\‘+dataBaseName+‘.ldf‘;
    oLogFile.Size :=2;

    oDatabase.TransactionLog.LogFiles.Add(oLogFile);

    oSqlServer.Databases.Add(oDatabase);
    osqlServer.DisConnect;
    oSqlServer._Release;
    oSqlServer :=nil;
    oDataBase._Release;
    oDataBase :=nil;
    oDBFileData._Release;
    oDBFileData :=nil;
    oLogFile._Release;
    oLogFile :=nil;
  except
    on E:Exception do
    begin
      application.MessageBox(Pchar(‘創建資料庫錯誤：‘+E.Message),‘系統提示‘,MB_OK+MB_ICONSTOP);
    end;
  end;
end;

停止SQLSERVER代理

procedure stopJobServer(serverName,LoginName,LoginPassword:String);
var
  oSqlServer :_SqlServer;
  oJobServer :JobServer;
begin
  try
    oSqlServer :=coSqlServer.Create;
    oSqlServer._AddRef;
    osqlServer.Connect(ServerName,LoginName,LoginPassword);
    oJobServer :=osqlServer.JobServer;

    if (oJobServer.Status=SQLDMOSvc_Running) then
      OjobServer.Stop;

    oSqlServer.DisConnect;
    oSqlServer._Release;
    oSqlServer :=nil;
  except
    on E :Exception do
    begin
      application.MessageBox(Pchar(E.Message+‘停止SQLSERVER代理錯誤！‘),‘系統提示‘,MB_OK+MB_ICONSTOP);
    end;
  end;
end;

啟動SQLServer代理

procedure startJobserver(serverName,LoginName,LoginPassword:String);
var
  oSqlServer :_SqlServer;
  oJobServer :JobServer;
begin
  try
    oSqlServer :=coSqlServer.Create;
    oSqlServer._AddRef;
    osqlServer.Connect(ServerName,LoginName,LoginPassword);
    oJobServer :=osqlServer.JobServer;

    if (oJobServer.Status<>SQLDMOSvc_Starting) and (oJobServer.Status<>SQLDMOSvc_Running) then
      OjobServer.Start;

    osqlServer.DisConnect;
    oSqlServer._Release;
    oSqlServer :=nil;
  except
    on E :Exception do
    begin
      application.MessageBox(Pchar(E.Message+‘啟動SQLSERVER代理錯誤！‘),‘系統提示‘,MB_OK+MB_ICONSTOP);
    end;
  end;
end;

取SQL的安裝路徑

function getSqlRootPath(serverName,LoginUserName,LoginPassword:String):String;
var
  osqlServer :_SqlServer;
begin
  try
    osqlServer :=coSqlServer.Create;
    oSqlServer._AddRef;
    oSqlServer.Connect(ServerName,LoginUserName,LoginPassword);
    result :=oSqlServer.Registry.SQLRootPath;
    osqlServer.DisConnect;
    osqlServer._Release;
    osqlServer :=nil;
  except
    Raise;
  end;
end;

鲜花

握手

雷人

路过

鸡蛋

该文章已有0人参与评论

请发表评论

全部评论

专题导读

More+

10-27 六六分期app的软件客服如何联系？(六六分期

11-06 可心卡盟:win10系统火狐flash插件崩溃怎么

11-06 亲亲特价:怎么删除回收站图标

11-06 济南大学虚拟社区:鲁大师节能降温的具体办

11-06 xlueops.exe:无线网络安装向导

11-06 女斗合众国:win7系统cf与主机连接不稳定怎

11-06 0xc000022-[cf烟雾头]cf怎么调烟雾头

11-06 qizideyouhuo:应用程序无法正常启动0xc0000

11-06 ipz-185:win7系统vcf文件怎么打开

11-06 傻哥蹦迪:win10系统s4怎么打开usb调试

11-06 八神浩树gtaste:回收站清空了怎么恢复

11-06 妖尾之黑色守护:win10系统电脑没有1440x900

11-06 校园至尊魔王小说:win7系统浏览网页时字体

11-06 女斗合众国:win10系统访问共享文件夹提示请

11-06 tokyo hot n0654:恢复win7系统默认字体一招

11-06 雨酷仙境:设置win7系统转移临时文件夹腾出

11-06 阿穆纳伊之杖:win7系统开始菜单在右边还原

11-06 tunespotting:win10系统火狐flash插件总是

11-06 甘尔葛分析师：计谋网站seo关键词暴涨有什

11-06 蔡贵霖: 计谋网站seo关键词暴涨有什么秘密

11-06 博益网首页:ao3网页版进入不了解决方法

11-06 漏斗子专栏: 网站数据分析小白易懂精华篇

11-06 见证双虹怎么做:win7系统开启telnet命令的

11-06 颾狐蝶蜋:系统资源不足无法完成请求的服务

11-06 国光中学校歌:提交网站到alexa查询详细步骤

11-06 西安有情天:静态网页和动态网页的区别

11-06 红木雅尚斋:外部链接构造对网站的好处

11-06 前官礼遇：防止域名劫持–增强域安全性的10

11-06 密传二转答案: 中文分词算法有哪些

11-06 金泉家园邮编:百度快照劫持的表现及应对方

delphi 接口发布时间：2022-07-18

Delphi中Messagedlg用法发布时间：2022-07-18

剪的笔顺,诠释剪的笔画,认识剪的部首

1 六六分期app的软件客服如何联系？(六六分期

六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期

阅读：18937|2023-10-27

2 可心卡盟:win10系统火狐flash插件崩溃怎么

今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知

阅读：9909|2022-11-06

3 亲亲特价:怎么删除回收站图标

今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道

阅读：8299|2022-11-06

4 济南大学虚拟社区:鲁大师节能降温的具体办

今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要

阅读：8658|2022-11-06

5 xlueops.exe:无线网络安装向导

我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多

阅读：8594|2022-11-06

6 女斗合众国:win7系统cf与主机连接不稳定怎

今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不

阅读：9602|2022-11-06

7 0xc000022-[cf烟雾头]cf怎么调烟雾头

电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很

阅读：8585|2022-11-06

8 qizideyouhuo:应用程序无法正常启动0xc0000

我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法

阅读：7972|2022-11-06

9 ipz-185:win7系统vcf文件怎么打开

今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win

阅读：8594|2022-11-06

10 傻哥蹦迪:win10系统s4怎么打开usb调试

今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎

阅读：7514|2022-11-06

客服电话

电子邮件

Delphi通过SQLDMO來控制SQLSERVER

请发表评论

全部评论

上一篇：

下一篇：

统一润滑油质量怎么样

dorezyuk/i_see_pee: icp based robot loca

CVE-2022-35381

jgm/peg-markdown: An implementation of m

dr-prodigy/python-holidays: Generate and

剪的笔顺,诠释剪的笔画,认识剪的部首

六六分期app的软件客服如何联系？(六六分期

florent37/ViewAnimator: A fluent Android

florent37/Shrine-MaterialDesign2: implem

CVE-2020-36276

SimpleSoftwareIO/simple-sms: Send and re

关于我们

产品与服务

解决方案

139-2527-9053