ผมลองปรับ ก็ไม่น่าจะช้านะครับ
แก้ไขเป็น แก้ไข 2 ที่ ก็ให้รัน แค่ตาราง vn_stat อันเดียวก็ไม่น่าจะช้านะครับ ถ้าใช้ show tables ละก็นานแน่ เพราะต้องดึงมาทุกตาราง
Procedure Main;
var tc,ts:tclientdataset; i:integer; hn1:string;
begin
tc:=tclientdataset.create(nil);
ts:=tclientdataset.create(nil);
//tc.data:=hosxp_getdataset('show tables');
tc.data:=hosxp_getdataset('show tables like "vn_stat"');
// ตรงนี้ while not tc.eof do
begin
ts.data:=hosxp_getdataset('select lastvisit from vn_stat where vn = "'+GetGlobalValue('VN')+'" order by vn desc');
i:=ts.fieldbyname('lastvisit').asstring;
if i < 8 then
begin
showmessage('7 DAY');
logmemo.lines.add('Change...'+tc.fields[0].asstring);
try
// hosxp_getdataset('alter table '+tc.fields[0].asstring+' character set tis620');
except end;
end;
//tc.next;
tc.close;
// ตรงนี้ด้วย end;
tc.free;
ts.free;
end;
end.
ขอบคุณครับ
อ.MN
หัวข้อ: ทดสอบ SYS_VN_SCRIPT แจ้งเตือนเคยมาภายใน 7 วัน (อ่าน 17525 ครั้ง)