怎样在DELPHI中使用SQLDMO？

Question

怎样在DELPHI中使用SQLDMO？
怎样在DELPHI中使用SQLDMO？
怎样在DELPHI中使用SQLDMO？
我在安装SQLDMO.dll文件时为什么老是死机呀。

Answer 1

var sa, sl: OleVariant;
var i: Integer;
var s: String;
begin
  sa := CreateOleObject('SQLDMO.Application');
  sl := sa.ListAvailableSQLServers;
  for i := 0 to sl.Count - 1 do 
  begin
    s := sl.Item(i);
    Result := s = '192.168.0.1';
    if Result then Break;
  end;
  sl := NULL;
  sa := NULL;
end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
DMO,DB,TB: OLEvariant;
Str:string;
begin
  Dmo:= CreateOleObject('SQLDMO.SQLServer');
  DB:= CreateOleObject('SQLDMO.DataBase');
  tB:= CreateOleObject('SQLDMO.table');
  Dmo.connect('who','sa','');
  db:=dmo.databases.item('pubs');
  tb:=db.tables.item('jobs');
  str:=tb.script();
  showmessage(str);
end;

Answer 3

这样必须安装了SQLDMO后才能使用哟。
我要通过Project--------->Import type l........得到PAS文件，然后引用这个文件？
可是我得不到这个文件，老是死机。