EXCEL与ACCESS交互求助！

ahh0511 · 发表于 2017-4-19 19:25

如何实现将EXCEL表中的内容全部导入数据库的“物流计划”中，求各位大大们赐教！在线等，谢谢！

duquancai · 发表于 2017-4-19 19:29

sql语句。。。。。。。。

ahh0511 · 发表于 2017-4-19 19:32

Sub AddOrChangeValues2() '物流计划导入数据库
Dim mydata As String, mytable As String, SQL As String
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim rsx As ADODB.Recordset
Dim i As Long, n As Long, j As Long
On Error Resume Next
mydata = ThisWorkbook.Path & "\数据中心\物控中心.accdb"
mytable = "物流计划"
n = Worksheets("数据透视").Cells(Rows.Count, 1).End(xlUp).Row
Set cnn = New ADODB.Connection
With cnn
.Provider = "Microsoft.ACE.OLEDB.12.0"
.Open mydata
End With
mysql = "select * from " & mytable
Set rs = New ADODB.Recordset
rs.Open mysql, cnn, adOpenKeyset, adLockOptimistic
For i = 2 To n
SQL = "select * from " & mytable & " where 供应商='" & Cells(i, 2).Value & "'and 到货日期=#" & Cells(i, 1).Value & "#"
Set rsx = New ADODB.Recordset
rsx.Open SQL, cnn, adOpenKeyset, adLockOptimistic
If rsx.RecordCount = 0 Then
rsx.AddNew
For j = 1 To rsx.Fields.Count - 1
rsx.Fields(Cells(1, j).Value) = Cells(i, j).Value
Next j
rsx.Update
Else
For j = 2 To rsx.Fields.Count
rsx.Fields(j - 1) = Cells(i, j - 1).Value
Next j
rsx.Update
End If
Next i
rs.Close
cnn.Close
Set rs = Nothing
Set rsx = Nothing
Set cnn = Nothing
End Sub

复制代码

ahh0511 · 发表于 2017-4-19 19:32

帮忙指点下，我的代码问题出在哪里，请大侠指点指点！

ahh0511 · 发表于 2017-4-19 19:36

duquancai 发表于 2017-4-19 19:29
sql语句。。。。。。。。

请大侠帮忙指点指点，谢谢！

duquancai · 发表于 2017-4-19 19:37

ahh0511 发表于 2017-4-19 19:36
请大侠帮忙指点指点，谢谢！

不用谢，应该的。

ahh0511 · 发表于 2017-4-19 19:41

duquancai 发表于 2017-4-19 19:37
不用谢，应该的。

呵呵，帮忙看看代码问题出在哪里？

ahh0511 · 发表于 2017-4-19 19:46

谁能助我，必送鲜花！！！

ahh0511 · 发表于 2017-4-19 20:10

没有人帮助小弟吗，在线等。。。

liuxuwentiger · 发表于 2017-4-19 20:53

直接在accdb的工具栏上单击：外部数据->EXCEL按提示下一步就可以直接导入了

		自动登录	找回密码
密码			免费注册

[求助] EXCEL与ACCESS交互求助！