Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于数据转换


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

主题：关于数据转换
帅哥哟，离线，有人找我吗？
affixed
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：597 积分：4974 威望：0 精华：0 注册：2012/12/27 12:34:00 		关于数据转换  发帖心情 Post By：2015/7/23 16:02:00 [只看该作者]

请问，我在开发时是使用ACCESS作为数据库。开发完毕后转为SQL，但数据库的SQLFind等语句都无法正常使用了。

这是怎么回事啊？
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/7/23 16:03:00 [只看该作者]

 无法正常使用具体报什么错？

 

 sqlserver，日期列用单引号代替#，逻辑列，用1、0代替true、false
 回到顶部
帅哥哟，离线，有人找我吗？
affixed
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：597 积分：4974 威望：0 精华：0 注册：2012/12/27 12:34:00 		  发帖心情 Post By：2015/7/23 16:11:00 [只看该作者]

我的项目是登陆成功后就会立刻进行权限判断。
权限判断是通过Datatables的SQLFind来查询是否有符合条件的记录。如果有则返回逻辑型值1，否则返回0.

但用ACCESS数据库是完全可以执行的。但改用SQL后返回的值始终是0。

郁闷啊。
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/7/23 16:12:00 [只看该作者]

 去sqlserver数据库，看是否有数据。

 回到顶部
帅哥哟，离线，有人找我吗？
affixed
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：597 积分：4974 威望：0 精华：0 注册：2012/12/27 12:34:00 		  发帖心情 Post By：2015/7/23 16:15:00 [只看该作者]

已经通过合并数据把所有数据都合并到SQL里了。
也进SQL查看过，数据没问题。都有的。
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/7/23 16:17:00 [只看该作者]

看2楼。

 

贴出代码
 回到顶部
帅哥哟，离线，有人找我吗？
affixed
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：597 积分：4974 威望：0 精华：0 注册：2012/12/27 12:34:00 		  发帖心情 Post By：2015/7/23 16:18:00 [只看该作者]

权限判断函数：
Dim 菜单名 As String = Args(0)
Dim 结果 As Boolean
If Vars("userid") IsNot Nothing Then
    Dim dr As DataRow = DataTables("菜单表").SQLFind("菜单名称 = '" & 菜单名 & "' And 工号 Like '%" & Vars("userid") & "%'")
MessageBox.Show(菜单名 & Vars("userid") & Vars("username"))
    If dr IsNot Nothing Then
        结果 = 1
        Vars("动作") = 菜单名
    Else
        结果 = 0
    End If
End If
Return 结果

菜单按钮代码：
If Functions.Execute("权限判断",e.SplitButton.Name) = 0 Then
    MainTable = Tables("主页")
    MessageBox.Show("权限未开放","错误",MessageBoxButtons.OK,MessageBoxIcon.Error)
Else
    BaseMainForm.Text = "KTS物料管理系统 - 【预算浏览】"
    Functions.Execute("浏览数据表","预算表")    
End If

我的设置是这样的。用ACCESS数据库，代码正常运行及返回数据都正确。用SQL数据库的话权限判断函数无论如何，返回的都是0
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/7/23 16:21:00 [只看该作者]

 执行函数，弹出什么内容？请认真核对内容是否正确。

 回到顶部
帅哥哟，离线，有人找我吗？
affixed
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：二尾狐 帖子：597 积分：4974 威望：0 精华：0 注册：2012/12/27 12:34:00 		  发帖心情 Post By：2015/7/23 16:25:00 [只看该作者]

程序是全部执行完毕的。没有报错。但是正确的查询结果应该是返回1的。
用ACCESS是返回1，但用SQL就返回0了。
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/7/23 16:26:00 [只看该作者]

弹出什么？

 

MessageBox.Show(菜单名 & Vars("userid") & Vars("username"))
 回到顶部
总数 16 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询