- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 如何将数据源中的表名和视图写入表中 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=123394)
-- 发布时间：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
-- 发布时间：2018/8/13 20:41:00
--
你这个表结构的设计就是错的，数据库的表和视图并不是1对1的关系。
这样的结构参考：
类型，名称，描述
值如：
表，表A，表A的描述
表，表B，表B的描述视图，视图1，视图1的描述
-- 发布时间：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
-- 发布时间：2018/8/13 21:01:00
--
为什么没有反映，应怎么修改上述代码
-- 发布时间：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
-- 发布时间：2018/8/13 21:39:00
--
老师：请问如何根据表使用代码生成视图
我用creat view s1 as select * f rom sapprd.t001
提示creat 未申明
怎么解决
-- 发布时间：2018/8/13 21:46:00
--
create
-- 发布时间：2018/8/13 21:50:00
--
此主题相关图片如下：视图错误.png
-- 发布时间：2018/8/13 21:57:00
--
命令窗口是执行代码的，不是执行sql的
-- 发布时间：2018/8/13 22:32:00
--
老师：请帮写下那个代码，我看看是怎么写的