用Delphi怎么调用SQL-DMO?

Question

在VB中创建一个SQLDMO.SQLServer对象就可以调用其方法了,
如:附加一个数据库
    Set oSvroot = CreateObject("SQLDMO.SQLServer")
    oSvroot.LoginTimeout = 60
    oSvroot.Connect "(local)", "sa", ""
    Call oSvroot.AttachDB(DBName, FileName1 & ", " & Filename2)如果用Delphi怎么弄? 谢谢!

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  DMO,DB,TB: OLEvariant;
  showStr: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');
  showstr:=tb.script();
  showmessage(showstr);
end;