ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 两个Table之间Copy的做法 (ACCESS)

两个Table之间Copy的做法 (ACCESS)

原创 Linux操作系统 作者:Kenniu 时间:2019-04-04 11:36:05 0 删除 编辑

建立好两个相同栏位的Table A 和 B ,在Access中;

然后建立一个宏,代码如下:

Sub main()
  On Error GoTo CreateProcedureError

    Dim cnn As New ADODB.Connection
   
    ' Open the Connection
    cnn.Open _
        "Provider='Microsoft.Jet.OLEDB.4.0';" & _
        "Data Source='c:\db1.mdb';"
   
    cnn.Execute "insert into a select * from b"
   
  
    'Clean
    cnn.Close
    Set cnn = Nothing
    Exit Sub
   
CreateProcedureError:

    If Not cnn Is Nothing Then
        If cnn.State = adStateOpen Then cnn.Close
    End If
    Set cnn = Nothing
   
    If Err <> 0 Then
        MsgBox Err.Source & "-->" & Err.Description, , "Error"
    End If
End Sub

 

但还是废了一番老人家的脑力,把它弄出来...

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/30193/viewspace-661602/,如需转载,请注明出处,否则将追究法律责任。

上一篇: 2010年读的书
请登录后发表评论 登录
全部评论

注册时间:2002-11-29

  • 博文量
    146
  • 访问量
    116357