Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何将数据源中的表名和视图写入表中


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

主题：如何将数据源中的表名和视图写入表中
帅哥哟，离线，有人找我吗？
wtfwsk05
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		如何将数据源中的表名和视图写入表中  发帖心情 Post By：2018/8/13 20:15:00 [只看该作者]

如何将数据源中的表名称和视图名称分别写如表名称列和视图名称列
Dim lst1 As List(of String)
lst1 = Connections("dev").GetTableNames
Dim lst2 As List(of String)
lst2 = Connections("dev").GetViewNames
For Each dr As DataRow In DataTables("sap表和视图").DataRows
    dr = DataTables("sap表和视图").AddNew
    For Each nm As String In lst1
        dr("表名称") = nm
    Next
    For Each nm As String In lst2
        dr("视图名称") = nm
    Next
Next

图片点击可在新窗口打开查看此主题相关图片如下：视图.png
图片点击可在新窗口打开查看
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106107 积分：539646 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/8/13 20:41:00 [只看该作者]

你这个表结构的设计就是错的，数据库的表和视图并不是1对1的关系。

这样的结构参考：
类型，名称，描述

值如：
表，表A，表A的描述
表，表B，表B的描述
视图，视图1，视图1的描述
 回到顶部
帅哥哟，离线，有人找我吗？
wtfwsk05
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：2018/8/13 21:01:00 [只看该作者]

Dim lst1 As List(of String)
lst1 = Connections("dev").GetTableNames
Dim lst2 As List(of String)
lst2 = Connections("dev").GetViewNames
For Each dr As DataRow In DataTables("sap表和视图").DataRows
    dr = DataTables("sap表和视图").AddNew
    For Each nm As String In lst1
        dr("类型") = "名称"
        dr("表名称") = nm
    Next
    For Each nm As String In lst2
        dr("类型") = "视图"
        dr("视图名称") = nm
    Next
Next

图片点击可在新窗口打开查看此主题相关图片如下：视图1.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
wtfwsk05
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：2018/8/13 21:01:00 [只看该作者]

为什么没有反映，应怎么修改上述代码

 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106107 积分：539646 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/8/13 21:21:00 [只看该作者]


For Each name As String In Connections("dev").GetTableNames
    dr = DataTables("sap表和视图").AddNew
    dr("类型") = "表"
    dr("名称") = name
Next
For Each name As String In Connections("dev").GetViewNames
    dr = DataTables("sap表和视图").AddNew
    dr("类型") = 视图"
    dr("名称") = name
Next
 回到顶部
帅哥哟，离线，有人找我吗？
wtfwsk05
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：2018/8/13 21:39:00 [只看该作者]

老师：请问如何根据表使用代码生成视图 
我用creat view s1 as select * f rom sapprd.t001
 提示creat 未申明
怎么解决
 回到顶部
帅哥，在线噢！
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106107 积分：539646 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/8/13 21:46:00 [只看该作者]

create 

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


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：2018/8/13 21:50:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：视图错误.png
图片点击可在新窗口打开查看
 回到顶部
帅哥，在线噢！
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106107 积分：539646 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/8/13 21:57:00 [只看该作者]

命令窗口是执行代码的，不是执行sql的
 回到顶部
帅哥哟，离线，有人找我吗？
wtfwsk05
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：398 积分：2369 威望：0 精华：0 注册：2017/3/19 15:30:00 		  发帖心情 Post By：2018/8/13 22:32:00 [只看该作者]

老师：请帮写下那个代码，我看看是怎么写的

 回到顶部
总数 18 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.03906 秒, 4 次数据查询