主题：动态增加外部数据源的列

各位老师好：动态修改表结构中，我想给外部数据源增加两列，但是在增加之前，想先判断一下外部数据源的表里面包不包含这两列，这个如何判断呢？外部数据源的表不需要加载到内部表中。

1、

 

Dim Builder As New ADOXBuilder("实验表")
Builder.Open() '打开ADOXBuilder
With Builder.Tables("产品类型")
If DataTables("产品类型").DataCols.Contains("日期") Then
    .DeleteColumn("日期")
End If
If DataTables("产品类型").DataCols.Contains("产品") Then
    .DeleteColumn("产品")
End If
End With
Builder.Close() '关闭ADOXBuilder
DataTables.Unload("产品类型")
DataTables.Load("产品类型")

 

2、

 

Dim Builder As New ADOXBuilder("实验表")
Builder.Open() '打开ADOXBuilder
try
    With Builder.Tables("产品类型")
        .DeleteColumn("日期")
        .DeleteColumn("产品")
    End With
catch ex As exception
    msgbox(123)
    msgbox(ex.message)
End try
Builder.Close() '关闭ADOXBuilder
DataTables.Unload("产品类型")
DataTables.Load("产品类型")

因为产品类型表都还在外部数据源中，并没有加载到内部表里面，所以上面的代码一直报错，找不到  “产品类型表”

 

Dim Builder As New ADOXBuilder("实验表")
Builder.Open() '打开ADOXBuilder
try
    With Builder.Tables("产品类型")
        .DeleteColumn("日期")
        .DeleteColumn("产品")
    End With
catch ex As exception
    msgbox(123)
    msgbox(ex.message)
End try
Builder.Close() '关闭ADOXBuilder

我想修改一下Access数据库里面的列的类型，由字符串修改为整数型，这个怎么写代码呢？

 

方法一：删除列，再新增列；

 

方法二：写sql语句处理

 

https://jingyan.baidu.com/article/1e5468f950755e484961b71c.html

 

https://www.cnblogs.com/h2zZhou/p/5666711.html

 

怎样写一个SQL  ，把Access  数据库中  的日期时间型   改为   日期型 呢？

参考

 

http://www.foxtable.com/webhelp/scr/0696.htm

 

https://www.cnblogs.com/h2zZhou/p/5666711.html