导入EXCEL数据更新access数据库里的信息

最新推荐文章于 2021-03-12 13:48:30 发布

火焰山亮剑

最新推荐文章于 2021-03-12 13:48:30 发布

阅读量1.2k

点赞数

分类专栏： vb excel

本文链接：https://blog.csdn.net/weixin_43183490/article/details/104712855

版权

这篇博客介绍了如何通过VBA编程，将Excel数据导入并更新Access数据库中的信息。用户可以选择Excel文件，指定工作表，然后程序会遍历Excel记录，逐条更新或插入到Access数据库的相应表中，实现数据同步。

摘要由CSDN通过智能技术生成

在这里插入图片描述
'Public fn As String '保存Access文件名
'Public fn1 As String '保存Excel文件名
'Public fncount As Integer '保存Access数据库表的字段教
'Public fn1count As Integer '保存ExceI数据库表的字段数
Dim excel_aq As New ADODB.Recordset
Dim sandan_aq As New ADODB.Recordset

’ 声明一个EXCEL数据库的连接
Dim sql, m

Private Sub Check1_Click(Index As Integer)
X = Index
If Check1(X).Value = 1 Then List2.AddItem Check1(X).Caption
If Check1(X).Value = 0 Then
For i = 0 To List2.ListCount
If List2.List(i) = Check1(X).Caption Then List2.RemoveItem (i)
Next i

For i = 0 To List1.ListCount
If List2.List(i) = Check1(X).Caption Then Check1(X).Value = 1

Next i

End If
End Sub

Private Sub Check3_Click()
For i = 0 To 18
If Check3.Value = 1 Then
Check1(i).Value = 1
Else
End If
Next i

End Sub

Private Sub Cmdout_Click()
Dim a11 As String
'For K = 0 To DataGrid1.ApproxCount - 1

Do While Not excel_aq.EOF
a11 = excel_aq(“身份证号”)

sql = “select * from 学户册 where 身份证号= '” & a11 & “’”
sql = “select * from 学户册”
If sandan_aq.State = adStateOpen Then rds_book.Close
sandan_aq.Open sql, myconn, adOpenDynamic, adLockOptimistic

On Error GoTo Err_Handler:
If Not excel_aq.EOF Then
For i = 0 To List2.ListCount - 1
sandan_aq(List2