关于上传数据时,自动编号列怎么处理

然然

把EXCEL中的数据上传到ACCESS数据库中,其中:
EXCEL中没有序号这一列(不需要)
ACCESS数据库中有ID列(自动编号)
将EXCEL中的数据用SQL(INSERT INTO )语句上传到ACCESS数据库中时,希望ACCESS可以自动进行编号,如何实现?

然然

上传附件,目标是,在EXCEL中选定几行将数据上传到ACCESS数据库中,请大家帮忙看看,如何能把自动编号给添加上去

jack5d

你access表欄位都是簡體字, 我不好寫代碼, 只能在這說明
方法是, 先用查出access[數據]表中的[學生編號]最大值, 之後加1
現之後pass給變數mxVal, 關閉rs, 接下來mxVal就是表中最大值

1. Option Base 1
   
2. Sub 蠶講奻換()
   
3. Dim cn As New ADODB.Connection
   
4. Dim rs As ADODB.Recordset
   
5. Dim MxKey As Long '最大鍵值
   
6. Dim mp As String
   
7. Dim sql As String
   
8. Dim 杅擂, SJ As String
   
9. Dim M, N, I, J As Double
   
10. mp = ThisWorkbook.Path & "\aa.accdb"
    
11. cn.Open "provider=Microsoft.Ace.OLEDB.12.0;Data Source=" & mp
    
12. Set rs = New ADODB.Recordset
    
13. rs.Open "SELECT MAX([學生編號]) AS mxVal FROM [數據]", cn, adOpenKeyset, adLockOptimistic
    
14. 
    
15. MxKey = rs.Fields("mxVal")
    
16. '至此已抓到最大鍵值, 如有新值INSERT 其ID就是 MxKey + 1
    
17. 
    
18. Set rs = Nothing
    
19. 
    
20. 
    
21. 
    
22. AB = Selection.Resize(, 10)
    
23. M = UBound(AB)
    
24. N = UBound(AB, 2)
    
25. 
    
26. For I = 1 To M
    
27.     SJ = "'" & AB(I, 1) & "'"
    
28.         For J = 2 To N
    
29.             sjn = TypeName(AB(I, J))
    
30.             Select Case sjn
    
31.                 Case Is = "String"
    
32.                     SJ = SJ & ",'" & AB(I, J) & "'"
    
33.                 Case Is = "Date"
    
34.                     SJ = SJ & ",#" & AB(I, J) & "#"
    
35.                 Case Is = "Double"
    
36.                     SJ = SJ & "," & AB(I, J)
    
37.                 Case Is = "Empty"
    
38.                     SJ = SJ & "," & "null"
    
39.             End Select
    
40.         Next
    
41.     杅擂 = SJ & ",#" & Time & "#"
    
42.     sql = "insert into 杅擂 VALUES(" & 杅擂 & ")"
    
43.     cn.Execute (sql)
    
44. Next
    
45. cn.Close
    
46. Set cn = Nothing
    
47. MsgBox "OK"
    
48. End Sub
    

复制代码

然然

jack5d 发表于 2016-10-17 17:14
你access表欄位都是簡體字, 我不好寫代碼, 只能在這說明
方法是, 先用查出access[數據]表中的[學生編號]最 ...

我是想自动编号栏的号码顺序由ACCESS自己生成,其余部分由工作表数据导入,目前能用的方法只能通过指定列字段来实现了.
谢谢你.