ÈçºÎ½«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À´×ÖµÄÎ ......
ÈçºÎÐÞ¸Ämsysobjects±íÖеÄÊý¾ÝÄØ£¿Ð»Ð»
ɶ¶¼Ã»ÓÐ,Òâ˼²»Ã÷È·,ÔÙÏêϸµã°É
²»Òª¸ÄsysobjectsÀïµÄ¶«Î÷¡£
ÓÃÆäËü·½·¨¸Ä£¬±íÃû»òÆäËû¡£
ÒªÔÚACCESS»·¾³ÏÂÅäÖÃȨÏÞ£¬²ÅÄÜ·ÃÎÊϵͳ±í...
лл´ó¼Ò¡£
ÊÇÕâÑù£¬¿´ ......
ÎÒ»ú×ÓÀïÃæÃ»ÓÐACCESS,ÇëÎÊÔÚ²»ÖØ×°ÏµÍ³µÄÇé¿öϸÃÈçºÎ°ÑËü×°ÉÏ,֮ǰÎÒÊÔ×°¹ýÆäËü°æ±¾µÄSP3 OFFICE,µ«»¹ÊÇ×°²»ÉÏ,
ÇëÎÊÓÐʲôºÃ°ì·¨Âð?
°²×°OFFICE £¬Ñ¡Ôñ°²×°ACCESS¾Í¿ÉÒÔѽ ¡£
ÒýÓÃ
°²×°OFFICE £¬Ñ¡Ôñ°²×° ......
¸÷λ¸ßÊֺã¬Âé·³°ïÎÒ¿´ÏÂÕâ¸öÊý¾Ý¿âÁ¬½ÓÎÊÌ⣺
×öÁËÒ»¸öBBSµ«ÊÇÊý¾Ý¿â¾ÍÊÇÁ¬½Ó²»ÉÏ¡£´íÎó´úÂëÈçÏÂ
HTTP Status 500 -
------------------------------------------------------------------------------- ......
ÎÒ×öÁËÒ»¸öС³ÌÐò£¬ÏëʵÏֵŦÄܾÍÊÇÔÚÎı¾¿òÖÐÊäÈëÐÕÃû£¬µã»÷²éѯ°´Å¥£¬¾ÍÄܲ鵽ACCESSÊý¾Ý¿âÖдËѧÉúµÄÐÅÏ¢£¨±àºÅ£¬ÐÕÃû£¬ÐÔ±ð£¬ÄêÁ䣩¿ÉÎÒ²»ÖªµÀÓï·¨¸ñʽ£¬ÎÒ×Ô¼ºÐ´µÄÓï¾äµ÷ÊÔÄÜͨ¹ý£¬¿ÉÊÇÔËÐÐʱ³ö´í£¨µã»÷²éѯ°´ ......