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
Ïà¹ØÎÊ´ð£º
µÚÒ»´Î½Ó´¥CrystalReport
¼±Ñ°ÕÒVb.net Access ͨ¹ý²éѯ³öµÄÊý¾ÝÊä³öµ½CrystalReportµÄÀý×Ó.
ÓеÄÅóÓÑÂé·³·¢À´Ñ§Ï°.¶àл!
¸úÄãµÄÒªÇó²î²»¶à£¬²Î¿¼Ò»Ï£º
http://topic.csdn.net/u/20090823/21/87af02d3-f4ca-480 ......
ÎÊÌ⣱
ÎÒÓÃADOÁ¬½ÓÉèÁËÓû§ÃûÃÜÂëµÄÊý¾Ý¿â
µ«ÊÇÎÒ·¢ÏÖÎÒ²»ÊäÈë Óû§ÃûºÍÃÜÂë ¶¼¿ÉÒÔÁ¬½Ó³É¹¦ ¶øÇÒ»¹ÄܰÑÊý¾Ý¶Á³öÀ´
¼ôÁËÒ»¸öÃûΪtestÊý¾Ý¿â ½¨ÁËÒ»¸öÃûΪpeopleµÄ±í
¼ûÁËÒ»¸ö Óû§Ãû1234 ÃÜÂë1234 µÄ ......
ÎÒ»ú×ÓÀïÃæÃ»ÓÐACCESS,ÇëÎÊÔÚ²»ÖØ×°ÏµÍ³µÄÇé¿öϸÃÈçºÎ°ÑËü×°ÉÏ,֮ǰÎÒÊÔ×°¹ýÆäËü°æ±¾µÄSP3 OFFICE,µ«»¹ÊÇ×°²»ÉÏ,
ÇëÎÊÓÐʲôºÃ°ì·¨Âð?
°²×°OFFICE £¬Ñ¡Ôñ°²×°ACCESS¾Í¿ÉÒÔѽ ¡£
ÒýÓÃ
°²×°OFFICE £¬Ñ¡Ôñ°²×° ......
´ó¼Ò°ïÏÂæÁË
Çë½ÌÒ»¸öSQL²éѯµÄÎÊÌâ
±ÈÈçÎÒÏÖÔÚ²éѯ
SELECT * from XS WHERE רҵÃû='¼ÆËã»ú'
²éѯÍê³ÉÖ®ºóÎҿɲ»¿ÉÒÔÔÚÉϴβéѯµÄ»ù´¡Ö®ÉÏÔÚ½øÐÐÏà¹Ø²éÑ¯ÄØ£¿
±ÈÈçÎÒÔÚ²éÍê¼ÆËã»úרҵµÄËùÓÐѧÉúÖ®ºó£¬Ïë²é³ö¼ ......