W
wp231957
Unregistered / Unconfirmed
GUEST, unregistred user!
adoq.SQL.Clear ;
adoq.SQL.Text :='update base set class1=left(xh,6)';
adoq.ExecSQL ;
//这里为什么提示为 XUHAO没有默认值
adoq.SQL.Text :='update base set xuehao=mid(xh,7,2)';
adoq.ExecSQL ;
adoq.SQL.Text :='select class1 from base group by class1';
adoq.Open ;
adoq.SQL.Text :='update base set class1=left(xh,6)';
adoq.ExecSQL ;
//这里为什么提示为 XUHAO没有默认值
adoq.SQL.Text :='update base set xuehao=mid(xh,7,2)';
adoq.ExecSQL ;
adoq.SQL.Text :='select class1 from base group by class1';
adoq.Open ;