|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
根据Evans的调查报告,“MySQL的使用在未来将继续呈成长趋势。”代码很复杂的,我这里的例子是从文本框里输出新的数据库路径,然后更新链接。你参考一下,再改。
PrivateSubCommand0_Click()
OnErrorGoToErr_Command0_Click
DimcatAsADOX.Catalog
DimtdfAsADOX.Table
Me.txtDBnewNAME.SetFocus
Setcat=NewADOX.Catalog
Setcat.ActiveConnection=CurrentProject.Connection
Settdf=cat.Tables("mytable")
tdf.Properties("jetoledb:linkdatasource")=Me.txtDBnewNAME.Text
Exit_Command0_Click:
ExitSub
Err_Command0_Click:
MsgBoxErr.Description
ResumeExit_Command0_Click
EndSub
MySQL数据库归MySQLAB公司所有,但是这个软件是开源的,有一个MySQL学习教程可以免费下载。稍俱常识的新入门者都可以轻松实现在一个常见硬件上安装和配置MySQL。 |
|