ÈçºÎ½«notesÊý¾Ýµ¼Èëms accessÊý¾Ý¿â£¿
ÈçºÎ½«notesÊý¾Ýµ¼Èëms accessÊý¾Ý¿â£¿
¿´ÏÂÖ÷Òª´úÂ룬ÀÏÊÇÌí¼Ó²»½øÈ¥¡£
Dim msName As String
msName = ws.Prompt( PROMPT_OKCANCELEDIT, "ÊäÈë","ÇëÊäÈëÒªµ¼ÈëMS AccessµÄÃû³Æ£º" )
Set qry.Connection = con
Set result.Query = qry
con.ConnectTo("MS Access Database")
qry.SQL = "SELECT * from " & msName
result.Execute
key = Ubound(vSelect)
Dim count As Integer
count = 0
xLastNum = 2
For j = 0 To key
Set dc = view.getalldocumentsByKey(vSelect(j),True)
For i = 1 To dc.count
Set tmpdoc = dc.GetNthDocument(i)
result.AddRow()
Call result.SetValue("Ä£¿éºÅ", tmpdoc.ModuleNo(0))
Call result.SetValue("Ä£¿éÃû³Æ", tmpdoc.Module(0))
Call result.SetValue("¼þºÅ", tmpdoc.ItemNumber(0))
Call result.SetValue("ÃèÊö", tmpdoc.Description(0))
Call result.SetValue("ÊýÁ¿", tmpdoc.Qty(0))
Call result.SetValue("¼Û¸ñ", tmpdoc.Price1(0))
Call result.SetValue("µ¥Î»", tmpdoc.Unit(0))
Call result.SetValue("ºÏͬºÅ", tmpdoc.HTH(0))
Call result.SetValue("Åú´Î",tmpdoc.PC(0))
Call result.SetValue("ÈÕÆÚ", tmpdoc.Date(0))
Call result.SetValue("Level",tmp
Ïà¹ØÎÊ´ð£º
ÎÒ½«Ò»¶Î4000À´×ÖµÄÎı¾¸³Öµ¸øËüÔõô¾Í³ö´íÁË,ÌáʾÔËÐÐʱ´íÎó2176 Õâ¸öÊôÐÔµÄÉèÖÃֵ̫³¤?
ÄãÊÇÔõÑù¸³ÖµµÄ£¿
²âÊÔÁËһϣ¬Óñ¸×¢×ֶθøÎı¾¿ò×öÊý¾ÝÔ´£¬Ã»ÓÐÌáʾÉèÖÃֵ̫³¤,14893×Ö·û
ÒýÓÃÎÒ½«Ò»¶Î4000À´×ÖµÄÎ ......
ÎÊÌâÊÇÕâÑùµÄ,ÏÖÔÚÓÐÒ»¸ö¹¤×ʱí,ÊÇEXCELµÄ,ÎÒÒª°ÑËüµ¼ÈëACCESS,ÒòΪ Òª²éѯÿ¸öÈ˵Ť×Ê,¸ù¾Ý²»Í¬µÄ±àºÅ¿ÉÒÔ²éѯµ½Ïà¶ÔµÄÈË,
ÓÃASP Ôõô½«EXCELµ¼Èëµ½ACCESS,¶øÇÒÿÔ¶¼Óв»Í¬µÄ±í,
ÒýÓÃ
Æäʵ¾ÍÊǰÑEXCELµ±³ÉÊý ......
´ó¼Ò°ïÏÂæÁË
Çë½ÌÒ»¸öSQL²éѯµÄÎÊÌâ
±ÈÈçÎÒÏÖÔÚ²éѯ
SELECT * from XS WHERE רҵÃû='¼ÆËã»ú'
²éѯÍê³ÉÖ®ºóÎҿɲ»¿ÉÒÔÔÚÉϴβéѯµÄ»ù´¡Ö®ÉÏÔÚ½øÐÐÏà¹Ø²éÑ¯ÄØ£¿
±ÈÈçÎÒÔÚ²éÍê¼ÆËã»úרҵµÄËùÓÐѧÉúÖ®ºó£¬Ïë²é³ö¼ ......
vcÖÐÓÃodbcµÄ·½·¨·ÃÎÊaccessÊý¾Ý¿â£¬Óõ½ÁËcdatabaseÀàºÍcrecordsetÀà¡£Êý¾ÝÔ´ÔÚ´°¿Ú³õʼ»¯µÄʱºò±»´ò¿ªg_datasource.Open("data",FALSE,FALSE); µã»÷Ò»¸ö°´Å¥Æô¶¯Ò»¸ö¶¨Ê±Æ÷£¬ÔÚ¶¨Ê±Æ÷ÄÚÍê³ÉÒÔϲÙ×÷£¬¶¨ ......