- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]二个不同的数据库如何做到多表查询 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=147179)
-- 发布时间：2020/3/11 15:34:00
-- [求助]二个不同的数据库如何做到多表查询
Dim cmd As new SQLCommand
cmd.数据源 = "kis" ‘这个是SQL的数据库
cmd.数据源 = "qs" ‘这个是Access的数据库
cmd.CommandText = "sele ct a.*,b.* from {BOM对照表} As a "
cmd.CommandText &= " left join [" & Vars("Kis") & "].dbo.物料表 As b on a.itid = b.ItID "
If e.Form.Controls("Textfi").text > "" Then cmd.CommandText &= " where " & e.Form.Controls("Textfi").text
Dim sdt As DataTable = cmd.ExecuteReader
Dim tb As Table = Tables(e.Form.Name & "_Table1")
tb.DataSource = cmd.ExecuteReader
-- 发布时间：2020/3/11 15:36:00
--
无法使用sql处理，只能这种用法：http://www.foxtable.com/webhelp/topics/2320.htm
-- 发布时间：2020/3/12 17:24:00
--
那换个方法，但以下两个请教一下老师，应该怎么做？
1、先判断数据库是否存在，如果不存在，则新增数据库（BOM）
2、先判断数据表《BOM对照表》是否存在，如果不存在，根据Access增加数据表，
-- 发布时间：2020/3/12 17:37:00
--
新增什么数据库？access？SqlServer？
-- 发布时间：2020/3/12 20:00:00
--
SqlServer
-- 发布时间：2020/3/13 9:40:00
--
参考：
-- 发布时间：2020/3/13 10:42:00
--
If exists (Se lect * from sys.databases where name = \'OA2017\') then
drop database [OA2017]
MessageBox.Show("数据表存在")
Else
MessageBox.Show("数据表不存在")
CREATE DATABASE "OA2017"
End If
用Foxtable应该怎么写这个代码，这个昨天我自己也百度过，但不知用Foxtable来写。
此主题相关图片如下：无标题.png
-- 发布时间：2020/3/13 10:47:00
--
这些是sql，不是代码：http://www.foxtable.com/webhelp/topics/0696.htm
-- 发布时间：2020/3/13 16:29:00
--
老师，就是不会转换为Foxtable来写，可以帮忙改一下吗？
数据源怎么指定？
Dim cmd As New SQLCommand
cmd.CommandText = "iif(exists (Se lect * from sys.databases where name = \'OA2017\'),drop database [OA2017],CREATE DATABASE \'OA2017\')"
cmd.ExecuteScalar
-- 发布时间：2020/3/13 16:54:00
--
数据源：http://www.foxtable.com/webhelp/topics/2344.htm