Access Êý¾Ý±íÊý¾Ý¸³Öµ¸ø¶þάÊý×鸳ÎÊÌâ
ÓÐÈçϹ¤×÷±í
¸ÚλÃû³Æ,Éú²úÏß
AD JBC
AD JBC
AR BLD
AP BLD
Ï뽫¸Ã±íµÄËùÓÐÊý¾Ý¸³Öµ¸øÒ»¸ö¶þάÊý×é Ч¹ûÈçÏÂÇóÓï¾ä
SA (500,2)
SA(1,1)=AD
SA(1,2)=JBC
SA(2,1)=AD
SA(2,2)=JBC
ÎÒÒÔ³¢ÊÔ¹ýһϷ½·¨
Set cn = CurrentProject.Connection
Set Rs = cn.Execute("Select * from Table_Name", 50, adCmdText)
For i = 0 To Rs.RecordCount
S(i, 1) = Rs(i)
Next i
ÎÒÓÃÒÔÉÏÓï¾äÏ뽫һÕÅÊý¾Ý±íµÄÊý¾ÝÕûÌ帳ֵ¸øÒ»¸ö¶þάÊý×鵫ÊÇRs.RecordCountµÄÖµ×ÜΪ -1
ÎÞ·¨¼ÌÐøÔËÐÐ
S(i,1)=Rs(10)Ö±½Ó¸³ÖµÒ²ÎÞ·¨¶Á³öÊý¾Ý±íÖеÄÊý¾Ý
Ò²³¢ÊÔ¹ýÈçÏ·½·¨~
Dim rstEmployees, strMessage
Dim intRows, avarRecords
Dim intRecord, intField
Dim intRecCount, intFieldCount
Set rstEmployees = CreateObject("ADOCE.Recordset.3.1") Access2000Õâ¾äÀඨÒå×ÜÊDz»³É¹¦
rstEmployees.Open "myTable"
strMessage = "Enter number of rows t
Ïà¹ØÎÊ´ð£º
DbgridÁ¬½Óaccess ÏÔʾÊý¾ÝʱÍ϶¯¹ö¶¯ÌõËÀ»ú£¿Ôõô½â¾ö°¡£¿
»úÆ÷Ì«²îÁ˰ɣ¿
ÊDz»ÊÇÄãÊý¾ÝÁ¿Ì«´óÁ˰¡
ÄãÊý¾ÝÉÙһЩ¿´¿´»¹ËÀ»úÂð£¿
Êý¾ÝºÜÉÙ°¡ ¾ÍÒ»Ò³¡£
ÎÒÔÚBCB6ÏÂ×ö¹ý²»ÉÙ DBGRID+ACCESS £¬´ÓÀ´Ã»ÓÐÓöµ½ ......
ÈçºÎÐÞ¸Ämsysobjects±íÖеÄÊý¾ÝÄØ£¿Ð»Ð»
ɶ¶¼Ã»ÓÐ,Òâ˼²»Ã÷È·,ÔÙÏêϸµã°É
²»Òª¸ÄsysobjectsÀïµÄ¶«Î÷¡£
ÓÃÆäËü·½·¨¸Ä£¬±íÃû»òÆäËû¡£
ÒªÔÚACCESS»·¾³ÏÂÅäÖÃȨÏÞ£¬²ÅÄÜ·ÃÎÊϵͳ±í...
лл´ó¼Ò¡£
ÊÇÕâÑù£¬¿´ ......
dwr.xml:
<create creator="struts" javascript="PrisonerActionForm">
<param name="formBean" value="prisonerForm"/>
< ......
ÎÊÌâÊÇÕâÑùµÄ,ÏÖÔÚÓÐÒ»¸ö¹¤×ʱí,ÊÇEXCELµÄ,ÎÒÒª°ÑËüµ¼ÈëACCESS,ÒòΪ Òª²éѯÿ¸öÈ˵Ť×Ê,¸ù¾Ý²»Í¬µÄ±àºÅ¿ÉÒÔ²éѯµ½Ïà¶ÔµÄÈË,
ÓÃASP Ôõô½«EXCELµ¼Èëµ½ACCESS,¶øÇÒÿÔ¶¼Óв»Í¬µÄ±í,
ÒýÓÃ
Æäʵ¾ÍÊǰÑEXCELµ±³ÉÊý ......
±í½á¹¹:
table1
Ö¤¼þºÅ ʱ¼ä
X31 2010-01-11
3BC 2010-02-03
3AD 2010-02-03
F23 2010-02-09
......
ÏÖÔÚҪͳ¼ÆÒ»¸öʱ¼ä¶ÎÈç 2010-01-09 µ½ 2010-02-09¼äµÄÊý¾Ý,
ÆÚ´ý½ ......