- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]连接局域网ACCESS数据库的问题（搞定） (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=5241)
-- 发布时间：2009/12/2 21:11:00
-- [求助]连接局域网ACCESS数据库的问题（搞定）
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编辑过]
-- 发布时间：2009/12/3 8:10:00
--
加一个：
messagebox.show(e.SelectString)
看看到底是什么。
-- 发布时间：2009/12/3 9:30:00
--
以下是引用狐狸爸爸在2009-12-3 8:10:00的发言：
加一个：
messagebox.show(e.SelectString)
看看到底是什么。
加一个：
messagebox.show(e.SelectString)
看看到底是什么。
提示SelectString不能加到BeforeConnect...中
-- 发布时间：2009/12/3 9:31:00
--
他爸，你就直接给个正确答案得了
-- 发布时间：2009/12/3 9:54:00
--
给不出来的，前面是我打错了：
Messagebox.show(e.ConnectionString)
-- 发布时间：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编辑过]
-- 发布时间：2009/12/3 11:15:00
-- 设计完，不想显示功能区，请问有什么办法？
改成这样试试
在e.ConnectionString 后面加上
="Provider=Microsoft.Jet.OLEDB.4.0;
[此贴子已经被作者于2009-12-3 11:17:35编辑过]
-- 发布时间：2009/12/3 11:19:00
--
以下是引用狐狸爸爸在2009-12-3 9:54:00的发言：
给不出来的，前面是我打错了：
Messagebox.show(e.ConnectionString)
给不出来的，前面是我打错了：
Messagebox.show(e.ConnectionString)
不知为何复制时总要掉些代码，我也没注意，所以老大可能没看懂
-- 发布时间：2009/12/3 11:25:00
--
以下是引用舜风在2009-12-3 11:19:00的发言：
不知为何复制时总要掉些代码，我也没注意，所以老大可能没看懂
论坛有设置吧
-- 发布时间：2010/1/27 9:33:00
-- 全局变量
Dim ipFile As String = e.ProjectPath & "ip.txt"
为何还要e.projectpath ?
应该不用才对啊