王
王公子
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TBackupSetFrm.BitBtn6Click(Sender: TObject);
var
DMO,ScriptDB,TB: OLEvariant;
flag:SQLDMO_SCRIPT_TYPE;
ScriptStr:string;
begin
//SQLDMO_SCRIPT_TYPE
Dmo:= CreateOleObject('SQLDMO.SQLServer');
ScriptDB:= CreateOleObject('SQLDMO.DataBase');
tB:= CreateOleObject('SQLDMO.table');
Dmo.connect('sqlnhua','sa','WXM97061197');
flag:=SQLDMOScript_Default; //'c:/test.sql';
scriptdb.name:='act'; //数据库名
tb.name:='area'; //表名
scriptstr:=tb.script(flag);//生成SQL脚本语句,这里老是不行,我已
DMO:=NULL; //经搞了一个上午,还是不行
end;
var
DMO,ScriptDB,TB: OLEvariant;
flag:SQLDMO_SCRIPT_TYPE;
ScriptStr:string;
begin
//SQLDMO_SCRIPT_TYPE
Dmo:= CreateOleObject('SQLDMO.SQLServer');
ScriptDB:= CreateOleObject('SQLDMO.DataBase');
tB:= CreateOleObject('SQLDMO.table');
Dmo.connect('sqlnhua','sa','WXM97061197');
flag:=SQLDMOScript_Default; //'c:/test.sql';
scriptdb.name:='act'; //数据库名
tb.name:='area'; //表名
scriptstr:=tb.script(flag);//生成SQL脚本语句,这里老是不行,我已
DMO:=NULL; //经搞了一个上午,还是不行
end;