*******************************QQ********************************

                     http://www.QQtn.com ţ     
                      
                       ţQQȺ77959123

                  
              ţ                        ٶһ©   
                  

***************************QQtn.Com ţ***************************

ȫQQ ǽṩȫĸ,רҵQQվ,ÿŮվΪѼµQQ鱨, QQ,2014QQ,2013QQ,IPQQ,QQ,QQͷ,QQϷһQQصĶ,֤޲ľҷʹá



ʹ˵

Access 2003΢Ĺʽݿϵͳ Microsoft Jet Database Engine ͼûص㣬 Microsoft Office ϵͳʽ֮һ
Access 2003ϵͳ飺

Access 2003΢ݿͼû߽һһݿϵͳAccess 2003΢OFFICEһԱ, ڰרҵ͸߰汾office汾汻ۡ
MS ACCESSԼĸʽݴ洢ڻAccess Jetݿֱܹӵ(Щݴ洢Ӧóݿ)
ԱݼܹʦܹʹAccess 2003Ӧ,߼ûܹʹӦó򡣺칫ӦóһACCESS֧Visual Basic,һı,ܹøֶ󣬰DAO(ݷʶ),ActiveXݶ,ԼActiveXӶʾͱǵķVBA̻£VBAģܹ͵Windowsϵͳ
Access 2003ܣ
Access 2003ںܶطõ㷺ʹãСҵ˾Ĳš  
Access 2003Ĺ棺
һڽݷ 
accessǿݴͳƷaccessĲѯܣܹؽиܡƽͳơͳƵͳƷ¼ʮ¼ϵʱٶȿҲ㣬һExcel޷֮ȵġ һڣaccess˹Чʺ͹
ڿ 
accessڿ۹ȸҵŵǣѧǼרҵԱҲѧᡣͳɱЩҵԱĹҪͨ淶ͬ¡Ϊ˼롣VB.net CԵȿ߶ڷǼרҵԱ˵̫ˣaccessף һڣʵ˹ԱǼרҵҵġ롱ӶתΪ+̡ĸ˲š
⣬ڿһЩСվWEBӦóʱڴ洢ݡASP+AccessЩӦóASPInternetInformation ServicesУȽϸӵWEBӦóʹPHP/MySQLASP/Microsoft SQL Server
Access 2003ƣ

Access 2003 BasicṩһḻĿ㹻ԺͶMicrosoft WindowsӦóӿڵĿƣͬʱʹø߼ͼԿʱĸ鷳ŻЧݺģ黯ֻӦó߲ʹáӦڽʹ㷨һĳƸһЩرĴ洢ռĹȷʹЩܹӦóִٶȣӦóĵĴ洢Դ 
ٶȺͼٴ
ܹüּıٶȣȴҲЧ㷨ߡ⼸㽨ܹıٶͬʱּӦóĵĴ洢ռ䡣 
ѧ
ʹAccess 2003 ʹһϴҲҪһЩļ㲻СʹͻͶǱ˫͡ͳͬҲҪȸҪ졣ʹһЩЧʱᾯ棺ûκζܹ滻Ч㷨 
ʹù̵
ѭʹӳáÿһεöĹʱ˸ÿһεöҪѺľֲͲѹջջĴСǹ̶ģӴ󣬲ͬʱҪAccess 2003 
ʹò
ṩ˸ԣ˵ȷֵԶͱȴͳҪĸĴ洢ռ䡣ǰ滹ᵽ͵ıѧбȽ 
ñ
ԱвҺöȶԽЩҪ졣ҪõһֵΣôԷһԣôĴ뽫Ҫпöࡣ磬һѭУĳеһƵԣôѭԷһȻѭòѯһһԵķҪȽϿ졣 
Ԥر
ӦóҰǵĿɼλfalseʱ㰲װеıôӦóܻоͦ졣ҪʾһʱֻҪѸñĿɼΪtrueҪȰװһҪöࡣҪסǣΪ㰲װÿ㶼ҪӦóȫֶĴ洢ռ䡣
Access 2003ʹ÷

ͨʹAccess BasicܹӦóִٶȣٱͬʱҲΪMicrosoft WindowsӦóӿڱʱڿӦóļʹñռõĴ洢ռЧؼһӦóĵԴͬʱҲȫܡ ȷصWindowsӦóӿҲһЩ벻ĸãԼǱڵضһӦóĴ뼰ݶεƻȷʹһյ32λָAccess 2003 ʮֱҪġ 
ԱͱвʱAccess 2003һʽıԡӴsheet windowнй̵ãõķʱͬʱshiftF2
ʹΨһı
Access BasicУ֪ڵ㣨̬ӿк֣ܹö̬ӿеⲿʹһֻⲿһΡ㰲װ˵ģõͬWindowsӦóӿڣ㲻õһΪ֪Ĵͼͬĺ尲װģ顣 
㳢԰װģҪôǰͬĺҪôǰѴڵģеĹɾЩ̣EDIT˵ʹFINDҵظĹҪһ⣬ҪʹһֽʹáļּĹһһ޶֡ǣѡıҲҲǶһ޶ģҪʹȡΨһܹóʼֵ»дӶ̬ӿеõḶ́磬getActiveWindowΪ 
Declare bcb_GetActiveWindow Lib "Kernel" Alias "GetActiveWindow" () As Integer.
ݿָ̬
һյ32λָЧĻΪһЩ̬ӿҪвҪָһֵʹ0&ĺһ̲һʽ0&&ָһ32λĿָ룬ںУһAS ANYָʾAccess BasicǸͼ飬ͬʱֵݵõĺ 
ıʾһȷķһ̬ӿеĹ̴һָAccess BasicWriteProfileStringӦóӿںⲿWindows̬ӿ⡰kernel 
Declare Function WriteProfileString Lib "Kernel" 
(ByVal lpApplicationName As Any, ByVal lpKeyName As Any, ByVal lpString As Any)
ĺһⲿ̣Ϊÿָһֵ⽫ʹWriteProfileStringڲٻWIN.INIκα仯дϡ 
ҪĶȷʹûһԵıϻ޸WIN.INIļ 
Function nFlushIniCache() 
nFlushIniCache = WriteProfileString (0&, 0&, 0&) 
End Function
̬޷
һҪⲿ̬ӿõĹзһֽڳ޷ȻAccess Basic֧͡ȷؼҪһ޷תAccess Basic͡ 
Access BasicķΧʹ-3276832767һ޷ķΧǴ065535Access BasicԵһλֵķλԵֵ3276716λóɸšҪһ޷˹16λ 
޷תAccess BasicAccess Basicĳת޷ַһַõѧ㣨65535޷ֵӻڶַʹBitwiseʵϣBitwiseЧһֻҲɶԸǿһЩBitwiseִʱҲһЩ

lArithUintToInt (nUint)lArithIntToUnint(lBytes)ʾʹת޷һһ޷ͬʱһѾתλ͵ֵڶһֵȻ󷵻һת޷͵ֵ 
Function lArithUintToInt (nUint As Integer) 
If nUint < 0 Then 
lArithUintToInt = nUint + 65536 
Else 
lArithUintToInt = nUint 
End If 
End Function 
Function nArithIntToUnint (lBytes As Long) 
If lBytes > 32767 Then 
nArithIntToUnint = lBytes - 65536 
Else 
nArithIntToUnint = lBytes 
End If 
End Function
λ
nBWUintToInt(lBytes)  lBWIntToUint(nUint)ʾʹBitwiseת޷һһ޷Ȼ󷵻һѾתɳ͵ֵڶһֵȻ󷵻һѾת޷ֵڶʹʾΪ˷ݵֵ64KBʱϢ
1 0 1 0 0 0 1 1 11 10 00 00 (41952) 
The functions follow: 
Function lBWIntToUint(nUint As Integer) 
lBWIntToUint = nUint And &HFFFF& 
End Function 
Function nBWUintToInt(lBytes As Long) 
Dim nTemp As Integer 
If lBytes > 65535 Then 
MsgBox "You passed a value larger than 65535" 
Exit Function 
End If 
nTemp = lBytes And &H7FFF 
nBWUintToInt = nTemp Or -(lBytes And &H8000) 
End Function
ע⣺&HFFFF&Ҫ&16ĩβܱ֤32λ16ͨ16λֵʾ
Access Basicеļ
Access 2003 һЩǰʽıԣָ̣ǴһfromreportԹеõġҪСڣֻҪͬʱSHIFTF2
BUILDER FORM
һģһĶԡBuilderr FormʼͬʱһOncloseԻ¼ʶSHIFTF2̡ܹ磬һformƴУǰĹԴеOnclose¼ı༭ϣSHIFTF2ܵBuilderFormOncloseʹformreportsĴ󲿷Ժ¼Ĵ뽫˵ĸʽ 
Function BuilderFormOnClose (szFormName As String,
szControlName As String, szCurrentValue As String, szReserved As String) 
If szCurrentValue = "" Then 
DoCmd SelectObject A_MACRO, "", True 
SendKeys "%n%fs" & "New Macro" & "{Enter}" 
Forms(szFormName).OnClose = "New Macro" 
Else 
DoCmd SelectObject A_MACRO, szCurrentValue, True 
SendKeys "%d" 
End If End Function
szFormName, szControlName, szCurrentValue,  szReservedʹӲʹǡĺʱЩҪݵġûбôAccess 2003ĺһ䵽Onclose¼ϣôǰĹ̽һ꣬༭ǿգôһΪNew Macroº꣬ͬʱѱ༭ֵΪNew MacroȻǰӲǷǳȷ˵ҪһЧĳ
ASPַӦ

"Driver={Access 2003 driver(*.mdb)};dbq=*.mdb;uid=admin;pwd=pass;" 
dim conn
set conn = server.createobject("adodb.connection")
conn.open "provider=Microsoft.ACE.OLEDB.12.0;" & "data source = " & server.mappath("bbs.mdb")
