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]  ...  下一页 >>