Unit Script;
Procedure Main;
var
i:integer;
tc:tclientdataset;
begin
tc:=tclientdataset.create(nil);
tc.data:=HOSxP_Getdataset('show tables');
while not tc.eof do
begin
showdebugtext('Process... '+tc.fields[0].asstring);
try hosxp_getdataset('alter table '+tc.fields[0].asstring+' character set tis620 '); except end;
tc.next;
end;
try
hosxp_getdataset('alter database hos character set tis620 ');
except end;
tc.free;
showmessage('Done.');
end;
end.