- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- access数据库，我这样创建表，总提示表不存在 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=191580)
-- 发布时间：2024/4/23 20:44:00
-- access数据库，我这样创建表，总提示表不存在
If Connections("kcgl").GetTableNames.contains("收入") Then
\' DataTables("收入").load
Else
Dim Builder As New ADOXBuilder("kcgl") \'要指定数据源名称
Dim tbl As ADOXTable
Builder.Open()
tbl = Builder.NewTable("收入") \'创建表
With tbl
.AddColumn("日期" , ADOXType.DateTime)
.AddColumn("单号" , ADOXType.String, 16)
.AddColumn("收入" , ADOXType.Double)
.AddColumn("账户序号" , ADOXType.String, 16)
.AddColumn("备注" , ADOXType.String, 255)
End With
Builder.AddTable(tbl, True, True)
Builder.Close()
End If
DataTables("收入").load
提示 DataTables("收入")不存在
[此贴子已经被作者于2024/4/23 20:43:59编辑过]
-- 发布时间：2024/4/23 22:03:00
--
首先，这种方式新建的表必须重启项目才能使用
此主题相关图片如下：1.png
其次，这种方式创建的表是不会添加到外部表管理中的，需要手动添加