MYSQL网页编程之程序: 创立、紧缩Access数据库并修正密...
用户时常会发现其实自己并不是第一个选用MySQL数据库的先驱者。”access|程序|创立|数据|数据库|紧缩*--------------------------------------------
*程序:创立、紧缩Access数据库并修正暗码演示
*计划:红雨
*--------------------------------------------
LocallcMdbFile,lcRetuStr
lcMdbFile=
lcPswd1=
lcPswd2=
lcPswd3=
lcRetuStr=[创立、紧缩Access数据库并修正暗码演示：]+Chr(13)
IfCreateMDB(lcMdbFile,lcPswd1)
lcRetuStr=lcRetuStr+Chr(13)++lcPswd1
IfCompactMDB(lcMdbFile,lcPswd1,lcPswd2)
lcRetuStr=lcRetuStr+Chr(13)++lcPswd2
IfChangeMdbPassword(lcMdbFile,lcPswd2,lcPswd3)
lcRetuStr=lcRetuStr+Chr(13)++lcPswd3
Else
lcRetuStr=lcRetuStr+Chr(13)+
Endif
Else
lcRetuStr=lcRetuStr+Chr(13)+
Endif
Else
lcRetuStr=lcRetuStr+Chr(13)+
Endif
=MessageBox(lcRetuStr,0+64+0,[红雨提醒])
Return
*--------------------------------------------
FunctionCreateMDB(tcMdbFile,tcPswdStr)
*创立Access数据库文件(.mdb)
LocalIsOK
IsOK=.F.
tcMdbFile=iif(Type()=,tcMdbFile,[])
tcPswdStr=iif(Type()=,tcPswdStr,[])
IfFile(tcMdbFile)
Erase(tcMdbFile)
Endif
If!File(tcMdbFile)
IsOK=.T.
LocalloEngine,lcOldError,lcCmdStrs
lcOldError=On()
OnErrorIsOK=.F.
loCatalog=CreateObject()
lcCmdStrs=;
+[;DataSource=]+tcMdbFile;
+[;JetOLEDB:DatabasePassword=]+tcPswdStr
loCatalog.Create(lcCmdStrs)
ReleaseloCatalog
loCatalog=Null
OnError&lcOldError.
Endif
ReturnIsOKandFile(tcMdbFile)
Endfunc
*--------------------------------------------
FunctionCompactMDB(tcMdbFile,tcOldPswd,tcNewPswd)
*紧缩Access数据库并设置暗码
LocalIsOK
IsOK=.F.
tcMdbFile=iif(Type()=,tcMdbFile,[])
tcOldPswd=iif(Type()=,tcOldPswd,[])
tcNewPswd=iif(Type()=,tcNewPswd,tcOldPswd)
IfFile(tcMdbFile)
IsOK=.T.
LocalloEngine,lcTmpFile,lcOldError,lcCompOldStr,lcCompNewStr
lcOldError=On()
OnErrorIsOK=.F.
lcTmpFile=Addb(JustPath(tcMdbFile))+subs(Sys(2015),3)+[.mdb]
Rename(tcMdbFile)To(lcTmpFile)
If!File(tcMdbFile)andFile(lcTmpFile)
lcCompOldStr=;
+[;DataSource=]+lcTmpFile;
+[;JetOLEDB:DatabasePassword=]+tcOldPswd
lcCompNewStr=;
+[;DataSource=]+tcMdbFile;
+[;JetOLEDB:DatabasePassword=]+tcNewPswd
loEngine=CreateObject()
loEngine.CompactDatabase(lcCompOldStr,lcCompNewStr)
ReleaseloEngine
loEngine=Null
IfFile(tcMdbFile)
Erase(lcTmpFile)
Else
Rename(lcTmpFile)To(tcMdbFile)
Endif
Else
IsOK=.F.
Endif
OnError&lcOldError.
Endif
ReturnIsOKandFile(tcMdbFile)
Endfunc
*--------------------------------------------
FunctionChangeMdbPassword(tcMdbFile,tcOldPswd,tcNewPswd)
*修正Access数据库的暗码,必需独有翻开数据库,利用前请确保没有其他程序利用数据库
LocalIsOK
IsOK=.F.
lcRetuStr=[]
tcMdbFile=iif(Type()=,tcMdbFile,[])
tcOldPswd=iif(Type()=,tcOldPswd,[])
tcNewPswd=iif(Type()=,tcNewPswd,[])
IfFile(tcMdbFile)
IsOK=.T.
LocalloADODB,lcOldError
lcOldError=On()
OnErrorIsOK=.F.
loADODB=CreateObject()
loADODB.Mode=12
loADODB.Provider=
loADODB.Properties()=tcOldPswd
loADODB.Open(+tcMdbFile)
loADODB.Execute(ALTERDATABASEPASSWORD[+tcNewPswd+][+tcOldPswd+])
loADODB.Close
ReleaseloADODB
loADODB=Null
OnError&lcOldError.
Endif
ReturnIsOK
Endfunc
*--------------------------------------------
由于MySQL数据库已经如此普及，对企业来说它无疑是一个更好的选择。 相信各位对数据库和怎么样学习数据库都有一些经验和看法，也会有人走了一些弯路总结出自己的经验来，希望大家能把各自的看法和经验拿出来分享，给别人一份帮助，给自己一份快乐 一个是把SQL语句写到客户端,可以使用DataSet进行加工; 多走走一此相关论坛，多看一些实例开发，多交流0经验，没什么的，我也是刚学没多久!加油 对递归类的树遍历很有帮助。个人感觉这个真是太棒了！阅读清晰，非常有时代感。 连做梦都在想页面结构是怎么样的，绝非虚言 大侠们有推荐的书籍和学习方法写下吧。 习惯敲命令行的朋友可能会爽一些。但是功能有限。适合机器跑不动SQLServerManagementStudio的朋友使用。
页:
[1]