Ò׽ؽØÍ¼Èí¼þ¡¢µ¥Îļþ¡¢Ãâ°²×°¡¢´¿ÂÌÉ«¡¢½ö160KB

ÈçºÎ½«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


Ïà¹ØÎÊ´ð£º

ACCESSÎı¾¿ò³¤¶ÈÊǶàÉÙ? - ÆäËûÊý¾Ý¿â¿ª·¢ / Access

ÎÒ½«Ò»¶Î4000À´×ÖµÄÎı¾¸³Öµ¸øËüÔõô¾Í³ö´íÁË,ÌáʾÔËÐÐʱ´íÎó2176 Õâ¸öÊôÐÔµÄÉèÖÃֵ̫³¤?
ÄãÊÇÔõÑù¸³ÖµµÄ£¿

²âÊÔÁËһϣ¬Óñ¸×¢×ֶθøÎı¾¿ò×öÊý¾ÝÔ´£¬Ã»ÓÐÌáʾÉèÖÃֵ̫³¤,14893×Ö·û

ÒýÓÃÎÒ½«Ò»¶Î4000À´×ÖµÄÎ ......

ÓÃASP Ôõô½«EXCELµ¼Èëµ½ACCESS - Web ¿ª·¢ / ASP

ÎÊÌâÊÇÕâÑùµÄ,ÏÖÔÚÓÐÒ»¸ö¹¤×ʱí,ÊÇEXCELµÄ,ÎÒÒª°ÑËüµ¼ÈëACCESS,ÒòΪ Òª²éѯÿ¸öÈ˵Ť×Ê,¸ù¾Ý²»Í¬µÄ±àºÅ¿ÉÒÔ²éѯµ½Ïà¶ÔµÄÈË,
ÓÃASP Ôõô½«EXCELµ¼Èëµ½ACCESS,¶øÇÒÿÔ¶¼Óв»Í¬µÄ±í,

ÒýÓÃ
Æäʵ¾ÍÊǰÑEXCELµ±³ÉÊý ......

VC ADO ACCESS sql ²éѯ - VC/MFC / Êý¾Ý¿â

´ó¼Ò°ïÏÂæÁË
Çë½ÌÒ»¸öSQL²éѯµÄÎÊÌâ
±ÈÈçÎÒÏÖÔÚ²éѯ
SELECT * from XS WHERE רҵÃû='¼ÆËã»ú'
²éѯÍê³ÉÖ®ºóÎҿɲ»¿ÉÒÔÔÚÉϴβéѯµÄ»ù´¡Ö®ÉÏÔÚ½øÐÐÏà¹Ø²éÑ¯ÄØ£¿
±ÈÈçÎÒÔÚ²éÍê¼ÆËã»úרҵµÄËùÓÐѧÉúÖ®ºó£¬Ïë²é³ö¼ ......

VCÖÐ odbc·ÃÎÊaccessÄÚ´æÔö³¤

vcÖÐÓÃodbcµÄ·½·¨·ÃÎÊaccessÊý¾Ý¿â£¬Óõ½ÁËcdatabaseÀàºÍcrecordsetÀà¡£Êý¾ÝÔ´ÔÚ´°¿Ú³õʼ»¯µÄʱºò±»´ò¿ªg_datasource.Open("data",FALSE,FALSE); µã»÷Ò»¸ö°´Å¥Æô¶¯Ò»¸ö¶¨Ê±Æ÷£¬ÔÚ¶¨Ê±Æ÷ÄÚÍê³ÉÒÔϲÙ×÷£¬¶¨ ......
© 2009 ej38.com All Rights Reserved. ¹ØÓÚE½¡ÍøÁªÏµÎÒÃÇ | Õ¾µãµØÍ¼ | ¸ÓICP±¸09004571ºÅ