[求助]连接局域网ACCESS数据库的问题（搞定） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]连接局域网ACCESS数据库的问题（搞定）

共有15607人关注过本帖树形打印复制链接主题：[求助]连接局域网ACCESS数据库的问题（搞定）

舜风

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

小学文化
等级：小狐帖子：374 积分：2318 威望：0 精华：0 注册：2008/12/6 20:34:00

[求助]连接局域网ACCESS数据库的问题（搞定） 发帖心情

Post By：2009/12/2 21:11:00 [显示全部帖子]

Dim ipFile As String = e.ProjectPath & "ip.txt"
If e.Name = "ZJGL" Then
    If Filesys.FileExists(ipFile) Then
        Dim ip As String = FileSys.ReadAllText(ipFile)
        e.C";Data Source = "& ip &" ; Persist Security Info=True;Jet OLEDB:Database Password=admin888 "
    End If
End If

以上代码错在哪里？

IP.TXT内容如下\\Kuhome\ZJGL\ZJGL.md

[此贴子已经被作者于2009-12-3 11:13:36编辑过]

舜风

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

小学文化
等级：小狐帖子：374 积分：2318 威望：0 精华：0 注册：2008/12/6 20:34:00

Post By：2009/12/3 9:30:00 [显示全部帖子]

以下是引用狐狸爸爸在2009-12-3 8:10:00的发言：
加一个：

messagebox.show(e.SelectString)

看看到底是什么。

提示SelectString不能加到BeforeConnect...中

舜风

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

小学文化
等级：小狐帖子：374 积分：2318 威望：0 精华：0 注册：2008/12/6 20:34:00

Post By：2009/12/3 9:31:00 [显示全部帖子]

他爸，你就直接给个正确答案得了图片点击可在新窗口打开查看

舜风

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

小学文化
等级：小狐帖子：374 积分：2318 威望：0 精华：0 注册：2008/12/6 20:34:00

Post By：2009/12/3 11:13:00 [显示全部帖子]

Dim ipFile As String = e.ProjectPath & "ip.txt"
If e.Name = "ZJGL" Then
    If Filesys.FileExists(ipFile) Then
        Dim ip As String = FileSys.ReadAllText(ipFile)
        e.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& ip &";Persist Security Info=False;Jet OLEDB:Database Password=admin888"
    End if
End if

图片点击可在新窗口打开查看

搞定

[此贴子已经被作者于2009-12-3 11:16:57编辑过]

舜风

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

小学文化
等级：小狐帖子：374 积分：2318 威望：0 精华：0 注册：2008/12/6 20:34:00

Post By：2009/12/3 11:19:00 [显示全部帖子]

以下是引用狐狸爸爸在2009-12-3 9:54:00的发言：
给不出来的，前面是我打错了：

Messagebox.show(e.ConnectionString)

不知为何复制时总要掉些代码，我也没注意，所以老大可能没看懂图片点击可在新窗口打开查看

下一主题 >> << 上一主题

主题：[求助]连接局域网ACCESS数据库的问题（搞定）