共10 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：[求助]连接局域网ACCESS数据库的问题（搞定）
1楼
舜风 发表于：2009/12/2 21:11:00Dim 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
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楼
狐狸爸爸 发表于：2009/12/3 8:10:00加一个：
messagebox.show(e.SelectString)
看看到底是什么。
messagebox.show(e.SelectString)
看看到底是什么。
3楼
舜风 发表于：2009/12/3 9:30:00以下是引用狐狸爸爸在2009-12-3 8:10:00的发言：
加一个：
messagebox.show(e.SelectString)
看看到底是什么。
加一个：
messagebox.show(e.SelectString)
看看到底是什么。
提示SelectString不能加到BeforeConnect...中
4楼
舜风 发表于：2009/12/3 9:31:00他爸，你就直接给个正确答案得了
5楼
狐狸爸爸 发表于：2009/12/3 9:54:00给不出来的，前面是我打错了：
Messagebox.show(e.ConnectionString)
Messagebox.show(e.ConnectionString)
6楼
舜风 发表于：2009/12/3 11:13:00Dim 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
搞定
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编辑过]
7楼
yangming 发表于：2009/12/3 11:15:00改成这样试试
在e.ConnectionString 后面加上
="Provider=Microsoft.Jet.OLEDB.4.0;
在e.ConnectionString 后面加上
="Provider=Microsoft.Jet.OLEDB.4.0;
[此贴子已经被作者于2009-12-3 11:17:35编辑过]
8楼
舜风 发表于：2009/12/3 11:19:00以下是引用狐狸爸爸在2009-12-3 9:54:00的发言：
给不出来的，前面是我打错了：
Messagebox.show(e.ConnectionString)
给不出来的，前面是我打错了：
Messagebox.show(e.ConnectionString)
不知为何复制时总要掉些代码，我也没注意，所以老大可能没看懂
9楼
yangming 发表于：2009/12/3 11:25:00以下是引用舜风在2009-12-3 11:19:00的发言：
不知为何复制时总要掉些代码，我也没注意，所以老大可能没看懂
论坛有设置吧
10楼
floor2 发表于：2010/1/27 9:33:00 Dim ipFile As String = e.ProjectPath & "ip.txt"
为何还要e.projectpath ?
应该不用才对啊
为何还要e.projectpath ?
应该不用才对啊
共10 条记录, 每页显示 10 条, 页签:
[1]