zoukankan      html  css  js  c++  java
  • 如何调用SQLDMO读取SQL Server服务器列表及指定服务器的数据库列表

    KeyLife富翁笔记
    作者: HongYuan
    标题: 如何调用SQL-DMO读取SQL Server服务器列表及指定服务器的数据库列表
    关键字: SQL-DMO
    分类: 个人专区
    密级: 公开
    (评分: , 回复: 0, 阅读: 533) »»

    procedure TFormServerSelect.GetDatabasesLsit(FDatabasesLsit:TStrings);
    var
      SQLServer, DBList: Variant;
      i, iDatabasesCount: Integer;
    begin
      if not CurrAutoConfigurationSqlServerParams then exit;
      if FDatabasesLsit=nil then FDatabasesLsit:=cbxDataBases.Items;
      FDatabasesLsit.Clear;
      try
        SQLServer := CreateOleObject('SQLDMO.SQLServer');
        SQLServer.LoginSecure := cbxLoginSecure.Checked;
        SQLServer.LoginTimeout := 15;// 设定超时时间
        SQLServer.Connect(edtServerName.Text,edtUserName.Text,edtUserPassword.Text);
        DBList := SQLServer.Databases;
        iDatabasesCount := DBList.Count;
        for i := 1 to iDatabasesCount do
          FDatabasesLsit.Add(DBList.Item(i).Name);
        SQLServer := NULL;
        DBList := NULL;
        Application.MessageBox('连接成功,您现在可以从数据库列表中选择存在的数据!','信息提示',MB_OK+MB_ICONINFORMATION);
      except
        Application.MessageBox('当前服务器登录失败,用户名或口令输入错误,请重新输入!','信息提示',MB_OK+MB_ICONINFORMATION);
      end;
    end;


    procedure TFormServerSelect.GetDatabasesLsit(FDatabasesLsit:TStrings);
    var
      SQLServer, DBList: Variant;
      i, iDatabasesCount: Integer;
    begin
      if not CurrAutoConfigurationSqlServerParams then exit;
      if FDatabasesLsit=nil then FDatabasesLsit:=cbxDataBases.Items;
      FDatabasesLsit.Clear;
      try
        SQLServer := CreateOleObject('SQLDMO.SQLServer');
        SQLServer.LoginSecure := cbxLoginSecure.Checked;
        SQLServer.LoginTimeout := 15;// 设定超时时间
        SQLServer.Connect(edtServerName.Text,edtUserName.Text,edtUserPassword.Text);
        DBList := SQLServer.Databases;
        iDatabasesCount := DBList.Count;
        for i := 1 to iDatabasesCount do
          FDatabasesLsit.Add(DBList.Item(i).Name);
        SQLServer := NULL;
        DBList := NULL;
        Application.MessageBox('连接成功,您现在可以从数据库列表中选择存在的数据!','信息提示',MB_OK+MB_ICONINFORMATION);
      except
        Application.MessageBox('当前服务器登录失败,用户名或口令输入错误,请重新输入!','信息提示',MB_OK+MB_ICONINFORMATION);
      end;
    end;


    2005-6-21 15:38:56
  • 相关阅读:
    CentOS6.5 mini安装到VirtualBox虚拟机中
    docker配置redis6.0.5集群
    docker搭建数据库高可用方案PXC
    我通过调试ConcurrentLinkedQueue发现一个IDEA的小虫子(bug), vscode复现, eclipse毫无问题
    ThreadLocal底层原理学习
    第九章
    多线程-java并发编程实战笔记
    Spring-IOC源码解读3-依赖注入
    Spring-IOC源码解读2.3-BeanDefinition的注册
    Spring-IOC源码解读2.2-BeanDefinition的载入和解析过程
  • 原文地址:https://www.cnblogs.com/ZhouXiHong/p/568271.html
Copyright © 2011-2022 走看看