Office中国论坛/Access中国论坛

标题: BUG 修正-链接表管理器(ONLY MDB FILE) [打印本页]

作者: zhuyiwen 时间: 2003-10-16 19:08
标题: BUG 修正-链接表管理器(ONLY MDB FILE)

LinkManager Ver 1.00
易和链接表管理器(ONLY MDB FILE) BUG 修正版
修正日期: 2003.10.16
BUG说明: 当出错信息中出现单引号时,运行出错

运行平台: ACCESS 2002

注: 此修正只支持ACCESS 2002, 因无ACCESS 2000, 所以没有转换, 对ACCESS 2000用户只有说声"抱歉!"

此版运行平台: ACCESS 2002(不支持其它ACCESS版本)

此版为免费版本. 源代码价格: 100元人民币!

使用方法:
一、引用（二种方法）
1、第一种方法：在VBA编辑器，点菜单--工具--引用--浏览，找到LinkManager.mde
2、第二种方法：将LinkManager.mde复制到你的数据库所在的文件夹中，并将下列过程粘贴到你的数据库的模块中

Public Sub AddRef()
Dim ref As Reference
On Error GoTo errhandler
Set ref = References("LinkManager")
Exit Sub
errhandler:
Set ref = References.AddFromFile(CurrentProject.path & "\LinkManager.mde")
End Sub
Public Sub RemoveRef()
Dim ref As Reference
On Error Resume Next
Set ref = References("LinkManager")
References.Remove ref
End Sub

复制代码

调用AddRef过程引用LinkManager.mde, 调用RemoveRef过程从数据库中移除对LinkManager.mde的引用

二、使用LinkManager
在你的程序中调用
LinkManager.LinkMan
执行结果如下图:

[em24]

[此贴子已经被作者于2003-10-16 11:16:26编辑过]

作者: esmile 时间: 2003-10-16 19:22
提示: 作者被禁止或删除内容自动屏蔽

作者: zhuyiwen 时间: 2003-10-16 19:59
调用方法补正:

Dim xx As Boolean
xx = LinkManager.UserMethods.LinkMan

[em24]

作者: fyq 时间: 2003-10-16 20:44
ok

作者: ynlucy 时间: 2003-10-16 22:08
请教！cmdbrowse命令按钮的事件是如何设计的？多多赐教

作者: sxhmft 时间: 2003-10-17 00:31
好东东！

作者: zhuyiwen 时间: 2003-10-17 00:59

以下是引用ynlucy在2003-10-16 14:08:09的发言：
请教！cmdbrowse命令按钮的事件是如何设计的？多多赐教

使用WINDOWS API

[em24]

作者: ynlucy 时间: 2003-10-17 01:17
标题: [原创]
[em01]谢谢！但不好意思！请赐教如何使用API，使用那一个函数??

作者: zhuyiwen 时间: 2003-10-17 01:28
使用DECLARE定义要用的API函数，如：

Declare Function ap_GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long

然后，在程序中调用，如：
lngReturn = ap_GetOpenFileName(ofnFileInfo)

作者: xgc 时间: 2003-10-17 01:51
朱老总，又是一大作

作者: msf 时间: 2003-10-17 02:44
很实用

作者: dragonszr 时间: 2003-10-22 20:09
在那里可以下载呀

作者: coco 时间: 2003-12-12 20:24
想看看

可惜是ACCESS 2002

看不了

[此贴子已经被作者于2003-12-12 12:26:05编辑过]

作者: mxboy 时间: 2003-12-12 20:59
看一下

作者: iron 时间: 2004-1-21 07:02
谢谢老大

作者: zhuyiwen 时间: 2004-1-29 02:33
LinkManager Ver 1.00

易和链接表管理器
(Only MDB Files)

适用平台: ACCESS 2002

作　　者: 朱亦文
发布日期: 2003.10

E-mail: zhuyiwen@163.com
Web Site: http://bcd.accxp.com

此为免费版本, 可以任意传播

为恭贺自己获得MVP称号, 释放源代码.

2004.01.28

源代码地址: http://www.office-cn.net/bbs/dispbbs.asp?boardid=9&id=14401

作者: eio 时间: 2004-1-31 04:07
shishi

作者: zhyaccess 时间: 2004-2-5 19:17
好东东

作者: ollice 时间: 2004-2-5 19:35
哦!

作者: E-man 时间: 2004-2-6 05:15
好！

作者: evewxs 时间: 2004-3-16 01:11
标题: reply
看看了，谢谢老大啊！

作者: hcpx_x 时间: 2004-3-28 00:08
下载看看？

作者: NeilChen 时间: 2004-3-28 00:15
a

作者: cg1 时间: 2004-3-28 00:55
？

作者: akesaisi 时间: 2004-5-9 00:31
ok

作者: ququ 时间: 2004-5-9 00:46
kk

作者: xxzxsjp 时间: 2004-5-18 02:24
我大力顶，呵呵，要不看不到了！

作者: swo 时间: 2004-6-6 18:00
支持啊，抢!

作者: zwmrp 时间: 2004-6-11 17:23
谢谢！

作者: jimjiang 时间: 2004-8-3 21:24
怎么下载的mdb文件里面都没有数据表了

作者: jimjiang 时间: 2004-8-4 00:07
哦，搞明白了，Access2003里面的系统表的名字改了

作者: wusihan 时间: 2005-2-18 23:15
看看

作者: tim2004 时间: 2005-2-19 02:13
ok

作者: oklennom 时间: 2005-6-13 19:22
标题: 是怎样做得阿？
可以教教我吗？

作者: nagee 时间: 2005-6-13 23:35
谢谢!

作者: tonywong 时间: 2005-6-14 18:52
ok

作者: wdh008 时间: 2005-6-15 01:44
萨对分散对方

作者: yedaoan 时间: 2005-6-15 16:14
无私啊，伟大啊

作者: secowu 时间: 2005-8-23 20:47
仍旧有问题只能刷新一个表需要手动一个一个的刷新

作者: secowu 时间: 2005-8-23 20:57

Private Sub cmdRefresh_Click()

Dim rst As Recordset

Dim id As Integer

If IsNull(txtName) Or txtName = "" Then

      Beep

Else

      id = Me.subForm.Form!id

      If ReLink(Me.txtName, Me.txtPath, Me.txtPWD, id) Then



         Me.subForm.Form.Requery



         Set rst = Me.subForm.Form.RecordsetClone



         rst.FindFirst "ID = " & id

         If rst.NoMatch Then

'这里是不是还少了什么？

         Else

            Me.subForm.Form.Bookmark = rst.Bookmark

         End If

         rst.Close

      End If

End If

End Sub

哪位高手将上面的代码，改成程序自动刷新所有链接？

全部MDB程序见下面：

点击浏览该文件

[此贴子已经被作者于2005-8-23 12:59:05编辑过]

作者: LucasLynn 时间: 2005-8-23 21:11
收藏一个

作者: dhwx 时间: 2005-8-28 04:31
好东东

作者: 120HYH 时间: 2005-11-26 03:25
好的,谢

作者: 阿智 时间: 2005-11-26 16:05
T

作者: zyz218 时间: 2005-11-26 21:09
[em01]

作者: tanhong 时间: 2005-12-1 00:17
我下载来看看！

作者: fengtao666 时间: 2005-12-4 20:04
顶

作者: haroldchan 时间: 2005-12-8 17:59
大哥，看看

作者: chsimon 时间: 2005-12-10 23:15
我顶一下

作者: popo559 时间: 2006-2-3 09:23
好东西啊

作者: glw 时间: 2006-2-3 22:32
DDDDDDDDDDDDDDDD

作者: xjliyuehua 时间: 2006-2-6 00:41
好

作者: avlding 时间: 2006-2-7 20:37
頂

作者: xinle 时间: 2006-2-21 03:31
kk

作者: zhy2006 时间: 2006-2-22 21:03
谢谢了。

作者: wangsanmao 时间: 2006-3-20 06:37
好东西

作者: mikelee424 时间: 2006-3-23 06:46
定定定

作者: 阿len 时间: 2006-3-23 08:34
好,参考

作者: zhangxiyou 时间: 2006-3-24 01:45
好东西，支持。

作者: ousa 时间: 2006-3-26 19:05
好啊!支持

作者: liguang 时间: 2006-4-4 02:04
顶

作者: okmijn 时间: 2006-4-4 06:34
没下载啊

作者: 5988143 时间: 2006-4-19 03:32
谢谢分享~

作者: 媒人 时间: 2006-4-20 07:34
我正需要这样一个东西啊

作者: 狼书生 时间: 2006-5-22 20:03
真是好DD，谢谢咯！

作者: t360103 时间: 2006-5-30 07:42
标题: 链接表管理器！！

以下是引用zhuyiwen在2003-10-16 11:08:00的发言：

LinkManager Ver 1.00
易和链接表管理器(ONLY MDB FILE) BUG 修正版
修正日期: 2003.10.16
BUG说明: 当出错信息中出现单引号时,运行出错

运行平台: ACCESS 2002

注: 此修正只支持ACCESS 2002, 因无ACCESS 2000, 所以没有转换, 对ACCESS 2000用户只有说声"抱歉!"

此版运行平台: ACCESS 2002(不支持其它ACCESS版本)

此版为免费版本. 源代码价格: 100元人民币!

使用方法:
一、引用（二种方法）
1、第一种方法：在VBA编辑器，点菜单--工具--引用--浏览，找到LinkManager.mde
2、第二种方法：将LinkManager.mde复制到你的数据库所在的文件夹中，并将下列过程粘贴到你的数据库的模块中

Public Sub AddRef()
Dim ref As Reference

On Error GoTo errhandler
Set ref = References("LinkManager")
Exit Sub
errhandler:
Set ref = References.AddFromFile(CurrentProject.path & "\LinkManager.mde")
End Sub

Public Sub RemoveRef()
Dim ref As Reference

On Error Resume Next
Set ref = References("LinkManager")
References.Remove ref
End Sub

复制代码
调用AddRef过程引用LinkManager.mde, 调用RemoveRef过程从数据库中移除对LinkManager.mde的引用

二、使用LinkManager
在你的程序中调用
LinkManager.LinkMan
执行结果如下图:

[em24]

作者: 9399100 时间: 2006-9-11 22:46
o

作者: enter180 时间: 2007-1-10 21:45
链接表管理器！！

****

作者: appleking 时间: 2007-1-16 05:41
好东东[em02]

作者: wang2 时间: 2007-1-18 02:46
顶一个

作者: rattler 时间: 2007-2-10 03:21
aaaa

作者: yzt2005 时间: 2007-8-7 16:34
jkljklkjljkljkljkljkl

作者: jinpy 时间: 2007-11-19 15:07
谢谢fenxiang!

作者: xuwenning 时间: 2007-11-27 10:01
学习

作者: hosam 时间: 2007-11-28 14:32
good!!学习一下！！！！

作者: XWQ2000 时间: 2007-12-1 11:03
学习学习

作者: jicheng 时间: 2007-12-13 12:03
dddddddddddddddd

作者: jynj 时间: 2008-2-14 22:16
作　　者: 朱亦文
发布日期: 2003.10

作者: fxtest 时间: 2008-6-13 00:28
[:50] [:50] [:50]

作者: freeoffice 时间: 2008-10-8 15:17
safdsd

作者: chaojianan 时间: 2009-11-2 20:41
支持，看看。

作者: goto2008 时间: 2009-11-12 21:12

作者: yanwei82123300 时间: 2010-4-27 10:05
谢谢分享

作者: LeeTien 时间: 2010-5-24 12:33
看看

作者: heqing3000 时间: 2010-6-15 14:48
喜欢，高兴。

作者: getusfree 时间: 2011-5-3 12:59
回复以学习之

作者: daxin1 时间: 2011-6-5 19:58

作者: chshb 时间: 2012-6-26 19:27
看看！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3