Foxtable(狐表)用户栏目专家坐堂 → [求助]access数据源链接


  共有2337人关注过本帖树形打印复制链接

主题:[求助]access数据源链接

帅哥哟,离线,有人找我吗?
大红袍
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/3 9:41:00 [显示全部帖子]

测试了一下,代码没问题

 



Dim conn As New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\test.mdb;Persist Security Info=False"
conn.Open

[此贴子已经被作者于2015/7/3 9:40:44编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/3 10:09:00 [显示全部帖子]

  看这里,用ip.txt存储字符串

 

 http://www.foxtable.com/help/topics/0682.htm

 


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/3 17:07:00 [显示全部帖子]

1、你保存到ip.txt的字符串是什么;

 

2、你代码怎么写


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/3 17:24:00 [显示全部帖子]

 代码

 

Dim ipFile As String = e.ProjectPath & "Attachments\ip.txt"

If e.Name = "User" Then
    If Filesys.FileExists(ipFile) Then
        Dim ip As  String = FileSys.ReadAllText(ipFile)
        e.ConnectionString =ip      '已配置好的数据源连接字符串
    End  If  
End If


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/3 18:00:00 [显示全部帖子]

 不要参考人家的项目。

 

 你单独做一个窗口,最后合成一个字符串,保存到ip.txt就行了,只要你的字符串正确,就行了。


 回到顶部