用Delphi对SQL-DMO进行封装的一种实现

  Except

   On E:EOleException do

     begin

       ShowMessage(e.Message);

       result:=false;

     end;

  end;

end;

连接完成后，就取得了对此实例的控制(根据所登录的用户，会有不同的控制权限)。下面列出的一些方法展示了一些功能。

GetTableList方法取得某个数据库的所有的表名，放在一个TStringList中返回。

function TDBCTRL.GetTableList(DBName: String;

  var TableList: TStringList): Boolean;

var

  NowDB:_DataBase;  //数据库

  NowTable:_Table;    //表

  I:integer;

begin

  try

    TableList.Clear ;   //清空StringList

    NowDB:=SqlServer.Databases.Item(DBName,Sqlserver);

//根据数据库名取得Database对象

    for I:=1 to NowDB.Tables.Count do

      begin

        NowTable:=NowDB.Tables.Item(I,0);

        TableList.add (NowTable.Name);

    &nbs

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ...  下一页 >> 

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18