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
Ïà¹ØÎÊ´ð£º
ÔÚMSSQLÖУ¬ÎÒÃÇ¿ÉÒÔÒ»´Î²éѯ¶à¸öÊý¾Ý±í²¢¼ÓÈëµ½Êý¾Ý¼¯ÖУ¬ÖмäÖ»ÐèÓ÷ֺŸô¿ª£®È磺
£¢select * from A;select * from B;select * from C£¢,Ìî³äÊý¾Ý¼¯ºóÔÚDSÖоÍÓÐÁËÈýÕÅ±í£®
µ«ÔÚÓÃͬÑùµÄÓï¾ä·ÃÎÊACCESSÊý¾ ......
accessÖеÄtextÐ͵ÄÊý×Ö£¬Ôõô±È½Ï´óС°¡£¿
´ó¼ÒÖªµÀÂð?
ÒòΪÎÒÏë¸ù¾ÝÕâÒ»ÁÐÊý¾ÝµÄ´óС²éѯһЩ¶«Î÷
¾Ù¸öÀý×Ó£º
¾ÍÊÇ£¬ÎÒÓÐÒ»ÁÐÊý¾ÝΪ±àÂ룺
ÊÇtextÐ͵ÄÊý×Ö£ºÈç
1101
1102
1103
µÈ£¬
ÎÒÏÖÔÚҪȡ³ö±àÂë±È ......
vcÖÐÓÃodbcµÄ·½·¨·ÃÎÊaccessÊý¾Ý¿â£¬Óõ½ÁËcdatabaseÀàºÍcrecordsetÀà¡£Êý¾ÝÔ´ÔÚ´°¿Ú³õʼ»¯µÄʱºò±»´ò¿ªg_datasource.Open("data",FALSE,FALSE); µã»÷Ò»¸ö°´Å¥Æô¶¯Ò»¸ö¶¨Ê±Æ÷£¬ÔÚ¶¨Ê±Æ÷ÄÚÍê³ÉÒÔϲÙ×÷£¬¶¨ ......
±í½á¹¹:
table1
Ö¤¼þºÅ ʱ¼ä
X31 2010-01-11
3BC 2010-02-03
3AD 2010-02-03
F23 2010-02-09
......
ÏÖÔÚҪͳ¼ÆÒ»¸öʱ¼ä¶ÎÈç 2010-01-09 µ½ 2010-02-09¼äµÄÊý¾Ý,
ÆÚ´ý½ ......