以ADOX.Catalog对象方式获取ACCESS表名及字段名

微凉

* 12
* “表名：考生库”
* 4
* “ID” | “整数型(Integer)”
* “班级” | “变长宽文本(VarWChar)”
* “考号” | “变长宽文本(VarWChar)”
* “姓名” | “变长宽文本(VarWChar)”
* “表名：数学”
* 5
* “ID” | “整数型(Integer)”
* “成绩A” | “变长宽文本(VarWChar)”
* “成绩B” | “变长宽文本(VarWChar)”
* “合计” | “变长宽文本(VarWChar)”
* “考号” | “变长宽文本(VarWChar)”
* “表名：语文”
* 3
* “ID” | “整数型(Integer)”
* “成绩” | “变长宽文本(VarWChar)”
* “考号” | “变长宽文本(VarWChar)”

以com对象方式获取access表名及字段名.zip (24.29 KB, 下载次数: 106)

2012-11-25 18:39 上传

点击文件名下载附件

一直在沉默

6666666666666666666666666666666666666

st孤帆听海

学习一下

vodvod

赞一个

opq123

赞一个。

hj0810

下载学习了，谢谢楼主分享

d调的鱼

好流弊的对象，超级流弊的对象，一对象！！！

2002nxy

学习了。赞一个。

sevenr

以ADOX.Catalog对象方式获取ACCESS表名及字段名

航母上看风景

Private Sub 创建_Click()
    Dim cnn As String
    Dim dbs As Object    'Database
    Dim tdf As Object    'DAO.TableDef
    Set dbs = CurrentDb
    '下面是ODBC连接SQL字符串
    strConnect = "ODBC;DRIVER=SQL Server" & _
                 ";SERVER=192.168.6.128" & _
                 ";DATABASE=BSX" & _
                 ";UID=sa" & _
                 ";PWD=123"

    Set tdf = dbs.CreateTableDef("tblcode_kh_b")  '创建链接表,命名为tblcode_kh_b
    tdf.Connect = strConnect
    tdf.SourceTableName = "tblcode_kh"    'SQL源表
    dbs.TableDefs.Append tdf
    Set dbs = Nothing
    Set tdf = Nothing
    Application.RefreshDatabaseWindow  '刷新
    MsgBox "创建成功，请查看表"
End Sub

Private Sub 删除_Click()
    DoCmd.DeleteObject acTable, "tblcode_kh_b"
    Application.RefreshDatabaseWindow  '刷新
    MsgBox "删除成功"

End Sub

请楼主老师，将我这个access的 VBA代码   做成一个易的示例，谢谢{:soso_e100:}