[函数]procedure GetSQLServerLsit(sSList:TStrings);

原创 2005年05月25日 15:30:00

作用:获取MS SQLServer服务器列表

{------------------------------------}
{      MS SQLServer服务器列表        }
{           Uses ComObj              }
{------------------------------------}
procedure GetSQLServerLsit(sSList:TStrings);
var
  SQLServer: Variant;
  ServerList: Variant;
  i, nServers: integer;
begin
  sSList.Clear;
  try
    SQLServer := CreateOleObject('SQLDMO.Application');
    ServerList := SQLServer.ListAvailableSQLServers;
    nServers := ServerList.Count;
    for i := 1 to nservers do
      sSList.Add(ServerList.Item(i));
    SQLServer := NULL;
    serverList := NULL;
  except
    Application.MessageBox('您当前的机器没有安装SQL Server,无法导入SQL Server服务器列表,'+
      #13+#10+'请直接输入SQL Server服务器名称!','信息提示',MB_OK+MB_ICONINFORMATION);
  end;
end;

Oracle创建一个type、package、body、function、procedure及常用系统函数。

捕获代码 begin null;--逻辑代码 exception when others then null;--异常处理代码 end;...
  • mycn027
  • mycn027
  • 2014年03月07日 08:49
  • 520

oracle 游标,函数 function , 存储过程 PROCEDURE , 触发器 Trigger

1、 ORACLE函数定义 function uf_execute_sql(as_where varchar2, as_sql varchar2) return varchar2 is v_ret...
  • jwlsky
  • jwlsky
  • 2012年05月20日 21:24
  • 1893

MySQL 的存储过程 procedure 与 函数 function 的区别和使用方法

存储过程与函数的区别  本质上没区别,执行的本质都一样。   只是函数有如:只能返回一个变量的限制。而存储过程可以返回多个。     函数是可以嵌入在sql中使用的,可以在select中调用,而存...
  • xlxxcc
  • xlxxcc
  • 2016年09月09日 13:46
  • 7093

MySQL 的存储过程 procedure 与 函数 function 的区别和使用方法

Mysql 的 function 和 procedure 有啥区别呢 ? 网上搜索后说 function 有返回值, procedure 无返回值。 从function 的语法角度来说确实如此, fu...

oracle数据库的存储过程PROCEDURE与函数FUNCTION示例

程序结构 ============================================================= 例题1: 取出s_emp表(参见oracle默认数据库te...

TStrings与TStringList

delohi中与TStrings相关的类的关系如下图所示:       其中TStrings是一个虚类,若要创建一个TStrings对象必须由其子类中的具体类通过create方法创建一个对象,...
  • adamrao
  • adamrao
  • 2012年04月14日 15:10
  • 1148

Delphi 2009 中 TStrings 与 TStream 的增强

====================================================== 注:本文源代码点此下载 =============================...

Delphi TStrings的高级使用方法

对于TStrings类型变量,需要使用TStringList.Create;创建[luther.gliethttp],否则提示 abstract error错误TStrings是一个抽象类,在实际开发...

Delphi总结使用TStrings的一些技巧

先把要讨论的几个属性列出来: 1、CommaText 2、Delimiter & DelimitedText 3、Names & Values & ValueFromIndex 先看第一个:Comm...

TStrings类型变量

TStrings是一个抽象类,在实际开发中,是除了基本类型外,应用得最多的。常规的用法大家都知道,现在来讨论它的一些高级的用法。先把要讨论的几个属性列出来:1、CommaText2、Delimiter...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:[函数]procedure GetSQLServerLsit(sSList:TStrings);
举报原因:
原因补充:

(最多只允许输入30个字)