如何用vb调用Acess的数据

pnutz 2002-10-21 06:15:34
RT
...全文
52 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
jutcalf 2002-10-23
  • 打赏
  • 举报
回复
vb通过dde打开MS Access数据库.
举个例子:
在vb中,创建一个项目,新建一个窗体,添加文本框,命名AppItems DBItems 。再添加命令按钮命名RunAccessDDE,添加代码:
Private Sub RunAccessDDE_Click()
Const LINK_MANUAL = 2, LINK_NONE = 0
Dim Cmd
Cmd = "[OPENDATABASE ""F:\Program Files\Microsoft Office\Templates\1028\NWIND.MDB""]"

If AppItems.LinkMode = LINK_NONE Then

AppItems.LinkTopic = "MSACCESS|SYSTEM"

AppItems.LinkItem = "SysItems"

AppItems.LinkMode = LINK_MANUAL

AppItems.LinkExecute Cmd

If DBItems.LinkMode = LINK_NONE Then

DBItems.LinkItem = "TableList"
DBItems.LinkMode = LINK_MANUAL

DBItems.LinkRequest
DBItems.LinkMode = LINK_NONE
End If

AppItems.LinkExecute "[CloseDatabase]"
AppItems.LinkMode = LINK_NONE
End If

End Sub

6,210

社区成员

发帖
与我相关
我的任务
社区描述
Microsoft Office应用
社区管理员
  • Microsoft Office应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧