sql查询.txt

来自「功能特点 根据指定字段将Excel表导入到数据库中」· 文本 代码 · 共 37 行

SELECT bybj.bj, COUNT(dzbys.xm) AS 合计毕业人数
FROM bybj INNER JOIN
      dzbys ON bybj.bj = dzbys.bj
WHERE (bybj.bj LIKE '大%班')
GROUP BY bybj.bj

统计各毕业班总人数


   //导入到数据库中，先整理字段对应表。
//    copy(sqlstr1,0,pos('=',sqlstr1)-1);  取等号前字符串
//    copy(sqlstr1,pos('=',sqlstr1)+1,length(sqlstr1)-pos('=',sqlstr1));  取等号后字符串
    listbox2.Refresh;
    insertsql:=tadotable.Create(nil);
    insertsql.Connection:=adoconnstr;
    insertsql.TableName:=tbnamelist.Text;
    insertsql.Active:=true;
    adoquery1.First;
    insertsql.First;
    rectotal:=adoquery1.RecordCount;
    pbar.Max:=rectotal;
    pbar.Position:=0;
 while  not adoquery1.Eof  do
   begin
    insertsql.Append;
   for   i:=0 to listbox2.Count-1 do    //分解字段
      begin
       tmp:=listbox2.Items.Strings[i];
       sqlstr1:=copy(tmp,0,pos('=',tmp)-1);
       sqlstr2:=copy(tmp,pos('=',tmp)+1,length(tmp)-pos('=',tmp));
       insertsql.FieldByName(sqlstr1).Value:=adoquery1.fieldbyname(sqlstr2).AsString;
     end;
    pbar.Position:=pbar.Position+1;
   insertsql.Post;
   adoquery1.Next;
  end;
  application.MessageBox('数据导入成功','任务提示',mb_ok);