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
  • 相关阅读:
    hdu2089 数位dp
    AIM Tech Round 3 (Div. 2)
    Codeforces Round #372 (Div. 2)
    src 小心得
    水平文字垂直居中
    点击验证码刷新(tp3.1)--超简单
    TP3.1 中URL和APP区别
    getField方法
    PHP截取中文无乱码函数——cutstr
    substr — 详解
  • 原文地址:https://www.cnblogs.com/ZhouXiHong/p/568271.html
Copyright © 2011-2022 走看看