Access×éºÏ²éѯµÄ¸ñʽ - Web ¿ª·¢ / ASP
ÏÖÔÚÓиöAccess±íÃûÊÇReturn£¬×ֶκÍÄÚÈÝΪ
Month PBU Count
Jan IDI 12
Feb IDI 15
Jan TST 12
Feb TST 15
......
ÒªÇóµÃµ½×ÜÄ꣨1-12Ô£©Ä³¸öPBUµÄ×ܺͣ¬»¹Óзֱð1-12ÔµÄ×ܺͣ¬Èç¹ûҪдһ¸öÊý¾Ý¿âËÑË÷µÄselect£¬Ó¦¸ÃÔõôд£¿
²Î¿¼ÍøÉϵÄsum¿ÉÒÔËÑË÷³öÒ»ÌõÒªÇó£¨Ò»¸öµ¥Ôª£©£¬±ÈÈç
sql="select sum(count) as a from return where pbu='idi'"
È»ºórs a
Õâ¸öÄÜÇóµÃpbuÊÇidiµÄ×ÜÄê×ܺͣ¬ÆäËûµÄÔ·ݿÉÒÔ·Ö±ðcloseÊý¾Ý¿â£¬È»ºóÔÙopen£¬select¡£µ«ÊÇÎÒ²»Ïëÿ¸öµ¥Ôª¼ÆËã¶¼ÒªselectÒ»ÏÂÊý¾Ý¿â
ÍøÉÏÓÐÓÃsum caseÀ´·Ö±ðsum£¨£© as £¨£© from
±ÈÈçÔ¤ÏÈÉèÖúñäÁ¿£¬±ÈÈç
sum(count) as b from return where month='jan' and pbu='idi'
sum(count) as c from return where month='Feb' and pbu='idi'
È»ºó·Ö±ðrs b c...¾Í¿ÉÒÔÁË
µ«²»ÖªµÀÔõôд£¬Ð»Ð»¸÷λÌṩģ°åºÍ˼·
µ¥Ôª¸ñΪ£º
PBU Year Jan Feb Mar .......
IDI ×ÜºÍ ×ÜºÍ ×ܺÍ
TST ....
......
Ï£ÍûÍ·²¿Ð´Ò»Ìõselect£¬ÏÂÃæ¶¼rs³öÀ´asµÄÖµ
²»ÖªµÀ±í´ïÊÇ·ñÇå³þ£¬Ð»Ð»
<%
Dim nmonArr(1 to 12)
Dim nSumArr
nSumArr=0
Set rs = Server.CreateObject("ADODB.Recordset")
for i=1 to 12
SQLcmd ="sum(count) as A from return where month=i and pbu='idi'"
rs.Open SQLcmd,conn,1,1
nMonArr(i)=rs("count")
rs.close
nSumArr=nSumArr+nMonArr(i)
next
set rs=Nothing
%&g
Ïà¹ØÎÊ´ð£º
ÎÒÓÃAccessÊý¾Ý¿â×öÁËÒ»¸öͼÊéÊý¾Ý¿â£¬ÀïÃæÓÐÒ»¸ö×Ö¶ÎÊÇISBN£¬¾ÍÊÇISBNºÅ£¬µ«ÊÇÖ»µÄÒ»×Ü·ÖͼÊéдµÄISBNºÅ£¬ÓеÄûд£¬Ð´µÄÄÇÒ»²¿·ÖÓеÄISBNÊÇÖØ¸´µÄ£¬ÄÜ·ñÓÃSQLÓïÑÔ°ÑÖØ¸´µÄ¹ýÂ˵ô£¬µ«Ã»Ð´ISBNºÅµÄͼÊé²»ÄܹýÂ˵ô£¬È ......
ÏÂÃæÊÇÊý¾Ý
ID Money PID
1 50
2 40 1
3 30 1
4 ......
ÎÒÁ¬½ÓaccessÊý¾Ý¿â£¬ÒÔǰһֱºÜºÃ£¬×î½üÈ´×ÜÊdzö´í£¨Êý¾Ý¿âÁ¬½Ó³ö´í!£¡£©£¬´úÂëÈçÏ£º
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&" ......
VB.NET code:
Public Class excelAccess
Public Function exceltoTb(ByVal strExcelFileName As String, ByVal strSheetName As String) As System.Data.DataTable
Dim cnnStr As String = " ......
Êý¾Ý¿â½á¹¹ÊÇÕâÑùµÄ ²éѯ³öÀ´ÊÇÒ»¸öͳ¼ÆÐ§¹û
²éѯ³öÀ´¾ÍÊÇ µ±ÈÕÆÚΪʲôµÄʱºò ÕâÒ»ÌìËùÓÐÊý¾ÝµÄͳ¼Æ
sql = "select FScrq from TJlb "
Call OpenConn2
rs2.Open sql, cn2, 1, 1
D ......