functionTbdeasp.open(constsqlstr,aliname:WideString):OleVariant;
var
tmpre:variant;
begin
tmpre:=createoleobject(adodb.recordset);
try
tmpre.open(sqlstr,aliname);
except
end;
result:=tmpre;
end;
functionTbdeasp.execute(constsqlstr,connstr:WideString):OleVariant;
var
tmpre:variant;
begin
tmpre:=createoleobject(adodb.connection);
try
tmpre.open(connstr);
tmpre.execute(sqlstr);
result:=1;
except
result:=0;
end;