Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

[5分]如何从外部数据库中将表导入

莫内花园  发表于:2009-06-08 14:42:07  
复制

我在B数据库用ADO编了一个连接另外一个ACCESS(A数据库)的小程序,用生成表查询本来想在编程的ACCESS(B数据库)中生成表的,运行结果却在A中生成了新表

 

Top
竹笛 发表于:2009-06-08 14:42:48

DoCmd.TransferDatabase acImport, "Microsoft Access", "C:\B.mdb", acTable, "tblTest", "tblTest", False


要检测你导入的表是否已存在,如果存在,则要先删除tblTest,再用这段代码.



cad 发表于:2009-07-01 00:04:33

这是一个我使用过的程序,请注意SQL语句的用法,便通处理一下就行!

 

 Dim fbfh As String    '外部文件地址 " & fbfh & "
    Dim QHUKQKTQ As String    '外部文件名称 " & QHUKQKTQ & "
    Dim SGYLYYWRQK As String    '本库文件名称 " & SGYLYYWRQK & "

    fbfh = "[;database=" & Me.txtPath & ";pwd=0]"
    QHUKQKTQ = Me.Combo26
    SGYLYYWRQK = Me.Text54
    Dim SQL As String
    If Not IsNull(Me.Combo26) Or Me.Combo26 <> "" Then
        SQL = "SELECT * INTO " & fbfh & "." & QHUKQKTQ & " " & _
              "FROM " & SGYLYYWRQK & "; "
        DoCmd.RunSQL SQL
        MsgBox "生成外部表 " & QHUKQKTQ & " 操作已完成!", 16, "提示"
    Else
        MsgBox "不能生成表,因为当前表不正确!", 16, "提示"
    End If



PANZJ 发表于:2009-07-08 15:35:39
DOCMD.RUNSQL "select * into " & B库表名 & " from " & A库表名 & " in '" & A库路径 & "'"

总记录:3篇  页次:1/1 9 1 :