本框里输入新的数据库路径,然后更新链接。
Private Sub Command0_ClickDim cat As ADOX.CatalogDim tdf As ADOX.TableMe.txtDBnewNAME.SetFocusSet cat New ADOX.CatalogSet cat.ActiveConnection CurrentProject.ConnectionSet tdf cat.Tablesquotmytablequottdf.Propertiesquotjet oledb:link datasourcequotMe.txtDBnewNAME.TextEnd Sub查看当前库的路径方法 1. CurrentProject.Path方法 2.Dim DBLongname DBName DBDir As StringDBLongname CodeDb.NameDBName DirDBLongnameDBDir LeftDBLongname LenDBLongname - LenDBNameMsgBox quot数据库所在目录:quot amp DBDir用 ADO 打开链接表 , ,这是我以前十分头痛的问题 不知道那一堆一串的是什么意思现在知道了 这个是打开 ACCESS的,打开别的表不在此讨论之内。
Dim appAccess As ADODB.Connection Dim strCn temp As String Dim cat As ADOX.Catalog Dim rstEmployees As ADODB.Recordset Dim intloop As Integer Dim tbl1 tblEmp As ADOX.Table Dim idx As ADOX.Index strCn quotprovidermicrosoft.jet.oledb.4.0passworduser data sourcequot _ amp quotC:Program Fileszhanyexing123.mdbJet OLEDB:Database Password;quotSet appAccess New ADODB.Connection appAccess.Open strCn Set cat New ADOX.Catalog cat.ActiveConnection appAccess路径改成自己的,如果有密码则在红色的 Password后面写上正确的密码,别的照抄就行了如何更该链接表的设置来源:ALEX例 如 , 数 据 库 当 前 的 路 径 可 以 用 application.CurrentProject.Path 得 到 , 然 后 用application.CurrentProject.Path quotlinkabc.mdbquot就可 以指向 数据库安 装目 录 下 面link 子目录下的 ABC.MDB。
如何在 ADP 启动时判断数据库连接是否有效并重新连接这是微软 MSDN 中,在 ADP 项目中创建 ADP 的数据库的默认连接的代码Public Function sCreateConnectionsSvrName As String sUID As String sPWD As StringsDatabase As String As String该函数在 ADP 中检查连接,如果没有,它将通过输入参数创建一个连接输入: sSvrName 数据库服务器名 sUID 用户名 sPWD 口令 sDatabase MSDE 数据库名输出: 连接状态On Error GoTo sCreateConnectionTrap:If Application.CurrentProject.BaseConnectionString quotquot Then表示 ADP 处于无连接状态sConnectionString quotPROVIDERSQLOLEDB.1PASSWORDquot amp sPWD _amp quotPERSIST SECURITY INFOTRUEUSER amp sUID amp quot _INITIAL CATALOGquot amp sDatabase amp quotDATA SOURCEquot amp sSvrNameApplication.CurrentProject.OpenConnection sConnectionStringsCreateConnection quot创建了到 quot amp sDatabase amp quot 数据库的连接quotElse 连接已存在sCreateConnection quot已经存在到 quot amp sDatabase amp quot 数据库的连接quotEnd IfsCreateConnectionExit:Exit FunctionsCreateConnectionTrap:sCreateConnection Err.DescriptionResume sCreateConnectionExitEnd Function-------------------------------------此例程将从 ADP 删除连接使其处于无连接状态。
Sub MakeADPConnectionlessApplication.CurrentProject.CloseConnection 关闭连接Application.CurrentProject.OpenConnection 将连接设置为无End Sub重新定位链接表二步走来源:爱赛思应用俱乐部 kevindeng尽管 Accxp 网上有很多关于定位链接表的贴子,但还是有很多的朋友询问这方面的问题。
应letter 网友的提议,结合 Alex 总版主的重新定位链接表文件
源码,现将这方面的具体操作介绍如下:假设前台数据库文件名为 frontBase.mdb后台数据库文件名为 backData.mdbfrontBase 当中有链接表 tbl1 tbl2 tbl3 …,链接到 backData.mdb 中首先我们要在前台数据库文件的启动窗体加载事件中判断链接是否正确,方法是打开任意一个链接表,假设为 tbl1,代码如下:Public Function CheckLinks As Boolean 检查到后台数据库的链接;如果链接存在且正确的话,返回 True 。
Dim dbs As Database rst As DAO.Recordset Set dbs CurrentDb 打开链接表查看表链接信息是否正确。
On Error Resume Next Set rst dbs.OpenRecordset“tbl1” rst.Close 如果没有错误,返回 True 。
If Err 0 Then CheckLinks True Else CheckLinks False End IfEnd Function启.
上一篇:
波大红鹰学院精品课程申报表
下一篇:
2018年汽车自驾运动营地攻防箭大赛总决赛圆满落幕