ÈçºÎ½«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ÖеÄtextÐ͵ÄÊý×Ö£¬Ôõô±È½Ï´óС°¡£¿
´ó¼ÒÖªµÀÂð?
ÒòΪÎÒÏë¸ù¾ÝÕâÒ»ÁÐÊý¾ÝµÄ´óС²éѯһЩ¶«Î÷
¾Ù¸öÀý×Ó£º
¾ÍÊÇ£¬ÎÒÓÐÒ»ÁÐÊý¾ÝΪ±àÂ룺
ÊÇtextÐ͵ÄÊý×Ö£ºÈç
1101
1102
1103
µÈ£¬
ÎÒÏÖÔÚҪȡ³ö±àÂë±È ......
ÎÒ×öÁËÒ»¸öС³ÌÐò£¬ÏëʵÏֵŦÄܾÍÊÇÔÚÎı¾¿òÖÐÊäÈëÐÕÃû£¬µã»÷²éѯ°´Å¥£¬¾ÍÄܲ鵽ACCESSÊý¾Ý¿âÖдËѧÉúµÄÐÅÏ¢£¨±àºÅ£¬ÐÕÃû£¬ÐÔ±ð£¬ÄêÁ䣩¿ÉÎÒ²»ÖªµÀÓï·¨¸ñʽ£¬ÎÒ×Ô¼ºÐ´µÄÓï¾äµ÷ÊÔÄÜͨ¹ý£¬¿ÉÊÇÔËÐÐʱ³ö´í£¨µã»÷²éѯ°´ ......
rt£¬ÎÒÊÔÁËÍøÉÏÖ±Á¬AccesÊý¾Ý¿âµÄ·½·¨,windowsÏÂûÓÐÎÊÌâ,µ«ÊÇÔÚlinuxϲ»ÐУ¬ËÄܸøµãÌáʾ£¿Ð»Ð»
ÄãÔõôÁ¬µÄ£¿
AccesÊý¾Ý¿â..
ÄãÔõôÁ·µÄÄØ£¿
Java code:
static String DBDRIVER = "sun.jd ......
ÎÒÊÖ¶¯Ìí¼Ó»ùÓÚCRecordSetÀàµÄÅÉÉúÀàCODBCDemoSetÀà,ÊÇÀûÓÃclass wizardÌí¼ÓµÄ¡£²¢ÇÒ¶¨ÒåÁËÒ»¸öÈ«¾Ö±äÁ¿CODBSDemoSet*m_pCommon.µ«ÊÇÎÒ³ÌÐò²»ÄÜÔËÐС£ÎÒ¸ú×ÙÁËһϣ¬µ½ÁËm_pCommon->Isopen£¨£©´¦·¢Éú´íÎ󣬣 ......