Ôõô¶ÁÈëaccess²éѯ¼Ç¼µÄÆäÖÐÒ»¸ö°¡£¿
Èç±êÌ⣬±ÈÈç Ò»¸ö±íÓÐ ID×Ö¶Î ÐÕÃû×Ö¶Î ÎÒÓÃÓï¾äselect id from ±íÃû À´²éѯID×ֶεļǼ¡£ÎÒÏë°Ñ²éѯ½á¹ûÖð¸öÊä³öÓ¦¸ÃÔõôд´úÂë°¡£¿ ±ÈÈç ²éѯ½á¹û ÓÐ 1 £¬ 2£¬ 3£¬ 4 ÎÒÏë°ÑÖð¸ö»ñÈ¡Õâ¸ö½á¹û ¡£µÚÒ»´ÎÊä³ö 1 µÚ¶þ´ÎÊä³ö2 Ó¦¸ÃÔõôд´úÂë°¡£¿Çë¸ßÊÖÖ¸µã~
for i=0 to rs.RecordCount -1
debug.print rs!ID
rs.MoveNext
next
·¹ý~~
Public rstTmp As Recordset
Dim strDB As String
Dim StrSQL As String
'-------------------ACCESS---------------------------------------
Set cnDbSr = New Connection
strDB = "Provider=MSDataShape.1;Data Provider=MSDASQL.1" & _
";Driver={Microsoft Access Driver (*.mdb)}" & _
";DBQ=" & App.Path & "\AAAA.mdb;" & _
";uid=" & _
";pwd="
With cnDbSr
.Provider = "MSDataShape"
.ConnectionString = strDB
.CursorLocation = adUseClient
.Mode = adModeReadWrite
.Open
End With
StrSQL = "Select di
Ïà¹ØÎÊ´ð£º
ÎÊÌâÈçÏ£º
ÓòéѯÓï¾ä
select * from tab where fil like 'CK090902'ÄܲéÕÒ³öÒ»Ìõ¼Ç¼²¢ÏÔʾ³öÀ´
¸ÄΪ
select * from tab where fil = 'CK090902'
¾Í²»ÄܲéÕÒµ½£¬Ò²ÏÔʾ²»³öÀ´ ......
ÎÒÓÃAccessÊý¾Ý¿â×öÁËÒ»¸öͼÊéÊý¾Ý¿â£¬ÀïÃæÓÐÒ»¸ö×Ö¶ÎÊÇISBN£¬¾ÍÊÇISBNºÅ£¬µ«ÊÇÖ»µÄÒ»×Ü·ÖͼÊéдµÄISBNºÅ£¬ÓеÄûд£¬Ð´µÄÄÇÒ»²¿·ÖÓеÄISBNÊÇÖØ¸´µÄ£¬ÄÜ·ñÓÃSQLÓïÑÔ°ÑÖØ¸´µÄ¹ýÂ˵ô£¬µ«Ã»Ð´ISBNºÅµÄͼÊé²»ÄܹýÂ˵ô£¬È ......
ÄÄλ´ó¸çÓÐACCESSÊý¾Ý¿â °¡£¿
¸øÐ¡µÜÒ»¸ö£¡
°²×°OFFICEʱѡÔñ°²×°ACCESS
°²×°OFFICEʱѡÔñ°²×°ACCESS
°²×°°ì¹«Èí¼þ£¬Ñ¡Ôñ×Ô¶¨Òå°²×°£¬È»ºóÑ¡ÉÏACCESS¾Í¿ÉÒÔÁË
officeÍêÕ ......
ÎÒĿǰ±íµÄÅÅÁÐÊÇÉÏÃæÕâÕÅͼÕâÇé¿ö£º
ÎÒÏ£Íûµ÷Õû³É£º
ÈçºÎ×öÄØ£¿
¸Õ²ÅÊÔÁËÏ£¬µã¡°¿ªÊ¼¡±--¡°ÊÓͼ¡±--¡°Éè¼ÆÊÓͼ¡±²»ÐÐ
PS£ºÎÒÓõÄÊÇaccess 2007£¬ÉÏÃæÕâ¸ö±íÊÇmdb¸ñʽµÄ
Ö÷²Ëµ¥£¬ ÊÓͼ ......
ÎÒµÄÒ»¸öaccessÊý¾Ý¿âÖеÄphoto×Ö¶ÎÖеÄÄÚÈÝÊÇÕâÑùµÄ£º
|/UpFiles/Picture/admin/200910162300187612.jpg|/UpFiles/Picture/admin/200910162300187612.jpg||||/UpFiles/Picture/admin/200910162300187612.jp ......