Foxtable(狐表)用户栏目专家坐堂 → 小声的问下内部数据源如何变为access的外部数据源呢


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

主题:小声的问下内部数据源如何变为access的外部数据源呢

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/17 9:09:00 [显示全部帖子]

以下是引用yangjing在2017/7/16 23:42:00的发言:
小声的问下内部数据源如何变为access的外部数据源呢
内部表里已经有有数据了,请问怎么办呢?

 

先备份好数据。

 

再重定向。

 

最后合并数据。

 

http://www.foxtable.com/webhelp/scr/2297.htm

 


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/18 10:20:00 [显示全部帖子]

以下是引用yangjing在2017/7/18 10:18:00的发言:
谢谢您,已经弄好了,但是发布后需要安装到别的机器上总是要重新定位数据库,请问这怎么解决,谢谢

 

用相对路径

 

http://www.foxtable.com/webhelp/scr/0682.htm

 


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/7/30 15:57:00 [显示全部帖子]

以下是引用yangjing在2017/7/30 13:02:00的发言:
老师您好,我已经购买了阿里云服务器,也安装好sql2008了,请问如何连接到阿里云上呢?
谢谢

 

参考 http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=104284&skin=0

 

 


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/8/3 23:18:00 [显示全部帖子]

参考代码

 

Dim UserName As String = e.Form.Controls("textbox1").Value
Dim dr As DataRow
If UserName = "" Then
    Messagebox.show("请选择用户!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
dr = DataTables("基本信息").SQLFind("[姓名] = '" & UserName & "'")
If dr Is Nothing Then
    Messagebox.show("此用户不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
If e.Form.Controls("手机号").Value = dr("手机号") Then
    _UserName = UserName
    e.Form.Close
Else
    Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/8/6 11:50:00 [显示全部帖子]

只要执行了下面的代码,肯定能筛选

 

Tables("测试数据").Filter = "[编号] = '" & vars("yhm") & "'"

 

或者改成

 

Forms("窗口1").Controls("Table1").Table.Filter = "[编号] = '" & vars("yhm") & "'"



 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/8/6 21:26:00 [显示全部帖子]

以下是引用yangjing在2017/8/6 21:23:00的发言:
谢谢,只有第二段代码能运行,第一段不行

 

那说明你的表格是窗口表、副本表,http://www.foxtable.com/webhelp/scr/1906.htm

 


 回到顶部