Dim sPath As String
sPath = Text1.Text
Dim db As New ADODB.Connection
db.Open "Provider=Microsoft.ace.OLEDB.12.0;Data Source=" & App.Path & "\storage.accdb" & ";Persist Security Info=False"
Call db.Execute("INSERT into 终检档案 SELECT * From [Sheet1$] In '" & sPath & "' 'excel 8.0;'")
MsgBox "导入成功", vbOKOnly, "提示"
db.Close
Set db = Nothing
以上代码这是将excel数据全部导入access中,怎样改当excel中的管号数据与access管号数据相同时提示禁止导入Excel
sPath = Text1.Text
Dim db As New ADODB.Connection
db.Open "Provider=Microsoft.ace.OLEDB.12.0;Data Source=" & App.Path & "\storage.accdb" & ";Persist Security Info=False"
Call db.Execute("INSERT into 终检档案 SELECT * From [Sheet1$] In '" & sPath & "' 'excel 8.0;'")
MsgBox "导入成功", vbOKOnly, "提示"
db.Close
Set db = Nothing
以上代码这是将excel数据全部导入access中,怎样改当excel中的管号数据与access管号数据相同时提示禁止导入Excel
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货