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
Ïà¹ØÎÊ´ð£º
ÎÒÓÃAccessÊý¾Ý¿â×öÁËÒ»¸öͼÊéÊý¾Ý¿â£¬ÀïÃæÓÐÒ»¸ö×Ö¶ÎÊÇISBN£¬¾ÍÊÇISBNºÅ£¬µ«ÊÇÖ»µÄÒ»×Ü·ÖͼÊéдµÄISBNºÅ£¬ÓеÄûд£¬Ð´µÄÄÇÒ»²¿·ÖÓеÄISBNÊÇÖØ¸´µÄ£¬ÄÜ·ñÓÃSQLÓïÑÔ°ÑÖØ¸´µÄ¹ýÂ˵ô£¬µ«Ã»Ð´ISBNºÅµÄͼÊé²»ÄܹýÂ˵ô£¬È ......
ÔÚMSSQLÖУ¬ÎÒÃÇ¿ÉÒÔÒ»´Î²éѯ¶à¸öÊý¾Ý±í²¢¼ÓÈëµ½Êý¾Ý¼¯ÖУ¬ÖмäÖ»ÐèÓ÷ֺŸô¿ª£®È磺
£¢select * from A;select * from B;select * from C£¢,Ìî³äÊý¾Ý¼¯ºóÔÚDSÖоÍÓÐÁËÈýÕÅ±í£®
µ«ÔÚÓÃͬÑùµÄÓï¾ä·ÃÎÊACCESSÊý¾ ......
ÎÒ½«Ò»¶Î4000À´×ÖµÄÎı¾¸³Öµ¸øËüÔõô¾Í³ö´íÁË,ÌáʾÔËÐÐʱ´íÎó2176 Õâ¸öÊôÐÔµÄÉèÖÃֵ̫³¤?
ÄãÊÇÔõÑù¸³ÖµµÄ£¿
²âÊÔÁËһϣ¬Óñ¸×¢×ֶθøÎı¾¿ò×öÊý¾ÝÔ´£¬Ã»ÓÐÌáʾÉèÖÃֵ̫³¤,14893×Ö·û
ÒýÓÃÎÒ½«Ò»¶Î4000À´×ÖµÄÎ ......
ÈçºÎÐÞ¸Ämsysobjects±íÖеÄÊý¾ÝÄØ£¿Ð»Ð»
ɶ¶¼Ã»ÓÐ,Òâ˼²»Ã÷È·,ÔÙÏêϸµã°É
²»Òª¸ÄsysobjectsÀïµÄ¶«Î÷¡£
ÓÃÆäËü·½·¨¸Ä£¬±íÃû»òÆäËû¡£
ÒªÔÚACCESS»·¾³ÏÂÅäÖÃȨÏÞ£¬²ÅÄÜ·ÃÎÊϵͳ±í...
лл´ó¼Ò¡£
ÊÇÕâÑù£¬¿´ ......
±í½á¹¹:
table1
Ö¤¼þºÅ ʱ¼ä
X31 2010-01-11
3BC 2010-02-03
3AD 2010-02-03
F23 2010-02-09
......
ÏÖÔÚҪͳ¼ÆÒ»¸öʱ¼ä¶ÎÈç 2010-01-09 µ½ 2010-02-09¼äµÄÊý¾Ý,
ÆÚ´ý½ ......