Access | ExcelOffice

Sub QQ1722187970()
    Const adOpenForwardOnly = 0
    Const adOpenKeyset = 1
    Const adOpenDynamic = 2
    Const adOpenStatic = 3
    Const adOpenUnspecified = -1
    Const adLockReadOnly = 1
    Const adLockPessimistic = 2
    Const adLockOptimistic = 3
    Const adLockBatchOptimistic = 4
    Const adLockUnspecified = -1
    Dim oRecordSet As Object
    Set oRecordSet = CreateObject("ADODB.Recordset")
    Dim sConstr As String
    Dim sPath As String
    Dim sTableName As String
    Dim sDataBase As String
    Dim sSql As String
    Dim oWK As Worksheet
    Set oWK = Excel.ActiveSheet
    '要导入的Access数据库中的表名
    sTableName = oWK.Name
    '要导入的Access文件名称
    sDataBase = "数据库"
    sPath = Excel.ThisWorkbook.Path & "\"
    sSql = "DELETE * FROM " & sTableName
     sVersion = Excel.Application.Version
    '创建连接字符串
    If sVersion <= 12 Then
        sConstr = "Provider='Microsoft.Jet.OLEDB.4.0';Data Source=" & sPath & sDataBase & ".accdb"
    Else
        sConstr = "Provider='Microsoft.ACE.OLEDB.12.0';Data Source=" & sPath & sDataBase & ".accdb"
    End If
    With oRecordSet
        .Open sSql, sConstr
        MsgBox "删除完毕!"
    End With
    Set oRecordSet = Nothing
    Set oWK = Nothing
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

Sub QQ1722187970()

Const adOpenForwardOnly = 0

Const adOpenKeyset = 1

Const adOpenDynamic = 2

Const adOpenStatic = 3

Const adOpenUnspecified = -1

Const adLockReadOnly = 1

Const adLockPessimistic = 2

Const adLockOptimistic = 3

Const adLockBatchOptimistic = 4

Const adLockUnspecified = -1

Dim oRecordSet As Object

Set oRecordSet = CreateObject("ADODB.Recordset")

Dim sConstr As String

Dim sPath As String

Dim sTableName As String

Dim sDataBase As String

Dim sSql As String

Dim oWK As Worksheet

Set oWK = Excel.ActiveSheet

'要导入的Access数据库中的表名

sTableName = oWK.Name

'要导入的Access文件名称

sDataBase = "数据库"

sPath = Excel.ThisWorkbook.Path & "\"

sSql = "DELETE * FROM " & sTableName

sVersion = Excel.Application.Version

'创建连接字符串

If sVersion <= 12 Then

sConstr = "Provider='Microsoft.Jet.OLEDB.4.0';Data Source=" & sPath & sDataBase & ".accdb"

Else

sConstr = "Provider='Microsoft.ACE.OLEDB.12.0';Data Source=" & sPath & sDataBase & ".accdb"

End If

With oRecordSet

.Open sSql, sConstr

MsgBox "删除完毕!"

End With

Set oRecordSet = Nothing

Set oWK = Nothing

End Sub

如何用vba将excel单元格的数据导入access数据库表中？

2019年4月7日作者：exceloffice

暂无评论

要用vba将excel单元格的数据导入access数据库表中，可以有如下步骤：

用ADODB.Recordset数据集对象连接打开access数据库；
用ADODB.Recordset数据集对象的AddNew方法添加记录；
用ADODB.Recordset数据集对象的Updat[……]

阅读全文

如何用vba创建空白的access数据库文件？

2017年1月24日作者：exceloffice

暂无评论

用vba创建access数据库文件，需要用到ADOX.Catalog对象。

ADOX.Catalog是专门用来遍历数据库中的表、索引、键值、列、视图、以及属性的对象。

对于一个已经存在的数据库文件可以使用ADOX.Catalog对象获取它的表、索引、键值、列、视图、以及属性等。

如[……]

阅读全文

如何用vba在access数据库文件中创建表？

如何用vba修改access数据库中表的字段名称？

如何用vba删除access数据库中表的记录？

如何用vba将excel单元格的数据导入access数据库表中？

如何用vba创建空白的access数据库文件？

加站长微信

功能

如何用vba在access数据库文件中创建表？

如何用vba修改access数据库中表的字段名称？

如何用vba删除access数据库中表的记录？

如何用vba将excel单元格的数据导入access数据库表中？

如何用vba创建空白的access数据库文件？

加站长微信

关键字

功能