Foxtable(狐表)用户栏目专家坐堂 → 多用户操作时如何避免输入重复值


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

主题:多用户操作时如何避免输入重复值

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


加好友 发短信
等级:七尾狐 帖子:1510 积分:9791 威望:0 精华:0 注册:2014/12/18 16:12:00
  发帖心情 Post By:2022/3/17 14:50:00 [只看该作者]

SystemReady = False
    Try
    Dim mg As New Merger
    mg.SourcePath = "\\Pc-20150115kkfz\电脑系统\Foxtable\数据库文件\Prodtest.mdb"
    mg.SourceTableName = "出入库2"
    mg.DataTableName = "出入库2"
    mg.Merge() 
    Catch ex As Exception
        MessageBox.Show("追加数据失败")
    End Try
SystemReady = True

我用上面的代码可以导入数据了。但是,像 "出入库2" 这样的数据表有大约90个,要一个一个数据表去改名,然后再导入,也是停麻烦的。请帮我改一下代码,按一次按钮就可以将所有数据表导入行吗?谢谢。



 回到顶部
帅哥,在线噢!
有点蓝
  92楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107672 积分:547681 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/3/17 15:01:00 [只看该作者]

SystemReady = False
    Try
dim ss() as string = {"出入库2","表2","表3",.........}
for each s as string in ss
    Dim mg As New Merger
    mg.SourcePath = "\\Pc-20150115kkfz\电脑系统\Foxtable\数据库文件\Prodtest.mdb"
    mg.SourceTableName = s
    mg.DataTableName = s
    mg.Merge() 
next
    Catch ex As Exception
        MessageBox.Show("追加数据失败")
    End Try
SystemReady = True

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


加好友 发短信
等级:七尾狐 帖子:1510 积分:9791 威望:0 精华:0 注册:2014/12/18 16:12:00
  发帖心情 Post By:2022/4/14 13:42:00 [只看该作者]

SQL语句中的表名必须用大括号括起来,这是Foxtable的一个非常特殊的要求。
上面那句话的意思是,我的数据库转换成SQL数据库后,所有涉及表名的中括号都要换成大括号吗?

 回到顶部
帅哥,在线噢!
有点蓝
  94楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107672 积分:547681 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/4/14 13:45:00 [只看该作者]

如果是外部表,不用管这个。这个用法是针对内部表的

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


加好友 发短信
等级:七尾狐 帖子:1510 积分:9791 威望:0 精华:0 注册:2014/12/18 16:12:00
  发帖心情 Post By:2022/4/19 17:14:00 [只看该作者]

我已经完成从access数据库到 SQL数据库的转换了,但是我们没有使用下面这个链接里面说到的“合并表”功能,因为这个功能也有很多问题。

http://www.foxtable.com/webhelp/index.htm?page=2297.htm

我是先登陆SQL server,然后从access数据库直接导入所有数据,这样速度很快,这里我将操作步骤分享以下:
右击数据库名称 -> 任务 -> 导入数据 -> 下一步 -> 数据源选择 Microsoft Access -> 文件名 里面选择 源数据库名称 -> 下一步 -> 使用 SQL server 身份验证,输入用户名和密码 -> 下一步 -> 下 一步 -> 选择源数据表名称 -> 点击 编辑映射 -> 勾选 启用标识插入 -> 确定  -> 下一步 -> 下一步 -> 完成。
从这两天使用的情况看,使用SQL数据库在登陆系统和保存操作方面都快了很多。非常感谢老师们的耐心指导。以后我有问题,还要继续请教。

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


加好友 发短信
等级:七尾狐 帖子:1510 积分:9791 威望:0 精华:0 注册:2014/12/18 16:12:00
  发帖心情 Post By:2022/4/22 8:25:00 [只看该作者]

我希望用户在登陆foxtable时顺便能够自动登陆OPenQQ客户端,请问要怎样设置?在哪里、要写什么代码?谢谢。

 回到顶部
帅哥,在线噢!
有点蓝
  97楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107672 积分:547681 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/4/22 8:45:00 [只看该作者]

把登录代码放到AfterOpenProject

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


加好友 发短信
等级:七尾狐 帖子:1510 积分:9791 威望:0 精华:0 注册:2014/12/18 16:12:00
  发帖心情 Post By:2022/4/22 11:23:00 [只看该作者]

If QQClient.Ready Then
    MessageBox.show("QQClient已经启动,请先关闭","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
QQClient.ServerIP = "192.168.1.164"  '指定服务器IP地址
QQClient.ServerPort = "52178"  '指定服务器端口
QQClient.UserName = user.name  '指定登录用户名, 取消了部门代码
QQClient.Password = "888"
If QQClient.Start() = True '如果登录成功
    e.Form.Controls("btnChat").Enabled = True
    Dim msg As String =  "恭喜,OpenQQ登录成功!"
    If QQClient.ServerMessage > "" Then '如果服务器返回了欢迎信息
        msg = msg & QQClient.ServerMessage
    End If
    popMessage(msg,"提示",PopiconEnum.Infomation,5)
Else '如果登录失败,显示服务器返回错误信息
    e.Form.Controls("btnChat").Enabled = False
    PopMessage("QQClient登录失败,原因:" & vbcrlf & QQClient.ServerMessage,"提示",PopiconEnum.Error,5)
End If

我将上述代码放进 afteropenproject 时,上面红色部分代码要怎样修改?我把部门代码取消了,还能登陆吗?

 回到顶部
帅哥,在线噢!
有点蓝
  99楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107672 积分:547681 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/4/22 11:29:00 [只看该作者]

红色代码去掉。

服务端也去掉部门的判断即可

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


加好友 发短信
等级:七尾狐 帖子:1510 积分:9791 威望:0 精华:0 注册:2014/12/18 16:12:00
  发帖心情 Post By:2022/4/22 14:19:00 [只看该作者]

好友的结构(部门.姓名)要修改吗?

 回到顶部
总数 109 1.. 上一页 2 3 4 5 6 7 8 9 10 11 下一页