ÈçºÎ½«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À´×ÖµÄÎ ......
×î½üѧϰasp£¬µ±Á·Ï°µ½Á¬½ÓÊý¾Ý¿âµÄʱºò£¬ÆµÆµ³ö´í£¬¿É¾ÍÊDz»ÖªµÀ´íÔÚÔõôµØ·½£¬Çë¸ßÊÖ°ïæ¿´¿´£¡£¡Ð»Ð»£¡
°üº¬Îļþxx.asp¡¢xxsave.asp¡¢conn.aspÒÔ¼°student1.mdbºÍ±íxxgl¡¡
xx.aspΪ£º
<html>
<hea ......
ÓÐÒ»¸öÊý¾Ý¿âÀïÖ»ÓÐ2WÌõÊý¾Ý²»µ½£¬È´ÓÐ500MÄÇô´ó,Ôõô»ØÊ°¡£¿ÊÇACCESSµÄÊý¾Ý¿â¡£ºóÀ´ÎÒ°ÑACCESSµ¼Èëµ½MSSQLÖУ¬Ò²Õ¼ÓÃÁË500M×óÓҵĿռ䣬Èç¹ûѹËõÊý¾Ý¿âÄØ£¿Çë¸ßÊÖÖ¸µã
ѹËõÊý¾Ý¿â£¿ÄÜ×öµ½Ã´...
ÆÚ´ý¸ßÈËÖ¸µã ÎÒ ......
¸÷λ¸ßÊֺã¬Âé·³°ïÎÒ¿´ÏÂÕâ¸öÊý¾Ý¿âÁ¬½ÓÎÊÌ⣺
×öÁËÒ»¸öBBSµ«ÊÇÊý¾Ý¿â¾ÍÊÇÁ¬½Ó²»ÉÏ¡£´íÎó´úÂëÈçÏÂ
HTTP Status 500 -
------------------------------------------------------------------------------- ......
ÎÒ×öÁËÒ»¸öС³ÌÐò£¬ÏëʵÏֵŦÄܾÍÊÇÔÚÎı¾¿òÖÐÊäÈëÐÕÃû£¬µã»÷²éѯ°´Å¥£¬¾ÍÄܲ鵽ACCESSÊý¾Ý¿âÖдËѧÉúµÄÐÅÏ¢£¨±àºÅ£¬ÐÕÃû£¬ÐÔ±ð£¬ÄêÁ䣩¿ÉÎÒ²»ÖªµÀÓï·¨¸ñʽ£¬ÎÒ×Ô¼ºÐ´µÄÓï¾äµ÷ÊÔÄÜͨ¹ý£¬¿ÉÊÇÔËÐÐʱ³ö´í£¨µã»÷²éѯ°´ ......