- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 帮助中有代码创建数据表 那么代码创建数据库怎么创建呢？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=160028)
-- 发布时间：2021/1/18 13:36:00
-- 帮助中有代码创建数据表 那么代码创建数据库怎么创建呢？
创建表：
Dim Builder As New ADOXBuilder("本地sql") \'要指定数据源名称
Dim tbl As ADOXTable
Builder.Open()
tbl = Builder.NewTable("订单") \'创建表
With tbl
.AddColumn("日期" ,ADOXType.DateTime)
.AddColumn("产品" ,ADOXType.String, 12)
.AddColumn("客户" ,ADOXType.String, 20)
.AddColumn("数量" ,ADOXType.Integer)
.AddColumn("备注" ,ADOXType.Text)
End With
Builder.AddTable(tbl) \'增加表
Builder.Close()
删除表：
Dim Builder As New ADOXBuilder("本地sql") \'要指定数据源名称
Builder.Open()
With Builder
.DeleteTable("订单")
End With
Builder.Close()
怎么实现创建数据库呢？
[此贴子已经被作者于2021/1/18 13:50:30编辑过]
-- 发布时间：2021/1/18 13:43:00
--
什么数据库？
-- 发布时间：2021/1/18 13:46:00
-- 回复：（有点蓝）什么数据库？
access数据库怎么创建呢？
sql数据库怎么创建呢？sql数据库软件已经安装好，并且通过楼上代码，可以在系统默认数据库中创建对应的订单表，想实现在代码创建表之前，先创建一个用户自定义的数据库名 然后再在这个数据库名下创建订单表
-- 发布时间：2021/1/18 13:59:00
--
access：在项目里建一个空数据库，需要的时候复制使用，或者可以使用"CreateBlankAccessFile"命令创建mdb数据库。
-- 发布时间：2021/1/18 14:15:00
-- 回复：（有点蓝）access：在项目里建一个空数据库，需...
调用方法：先把这个dll文件放到foxtable安装目录.
然后在引用中引用为
命名空间
引用
以下内容只有回复后才可以浏览
老师 采用这样的方式可以实现创建数据库 ，
Dim cr As new cr.class1
cr.CreateDatabase("Data Source=DESKTOP-4HGMIGM\\SQLEXPRESS;Initial Catalog=master; user id=sa;Password=com", "文件管理","c1","d:\\文件管理.mdf","c2","d:\\文件管理.log")
但是有没有办法在不用这个dll的情况下 实现创建数据库呢？
https://www.cnblogs.com/sunny3158/p/11809948.html
中的代码 这个是创建库create database 在foxtable中该对应怎么写呢？
CreateBlankAccessFile另外这个有没有直接默认生成文件到d:\\123.mdb的写法 不想实现弹出窗体选择然后再另存为
[此贴子已经被作者于2021/1/18 14:27:29编辑过]
-- 发布时间：2021/1/18 14:19:00
--
SQL server自己使用sql建库。
access在项目里建一个空数据库，需要的时候复制使用
-- 发布时间：2021/1/18 14:25:00
-- 回复：（有点蓝）SQL server自己使用sql建库。access在...
好的
那老师 请问一下 在动态创建表结构的时候 有没有办法指定数据库名 然后再数据库名下创建对应的订单表呢？（在创建数据源时，没有选择对应的库。就是想实现在新安装的SQL中灵活创建库，假设现在已经创建了文件管理这个数据库，下列代码中怎么指定库名呢？）
创建表：
Dim Builder As New ADOXBuilder("本地sql") \'要指定数据源名称
Dim tbl As ADOXTable
Builder.Open()
tbl = Builder.NewTable("订单") \'创建表
With tbl
.AddColumn("日期" ,ADOXType.DateTime)
.AddColumn("产品" ,ADOXType.String, 12)
.AddColumn("客户" ,ADOXType.String, 20)
.AddColumn("数量" ,ADOXType.Integer)
.AddColumn("备注" ,ADOXType.Text)
End With
Builder.AddTable(tbl) \'增加表
Builder.Close()
-- 发布时间：2021/1/18 15:24:00
--
必须在数据源里指定数据库