大师们，哪出问题了

冷酷的云

4-1.rar (15.55 KB, 下载次数: 6)

2024-1-30 21:52 上传

点击文件名下载附件

Sub 案例41()
Dim cnn As New ADODB.Connection
Dim rs As ADODB.Recordset
Dim ws As Worksheet
Dim Sql As String

'建立与工作簿的连接
With cnn
.Provider = "microsoft.ace.oledb.12.0"
.ConnectionString = "Extended Properties=Excel 12.0;" _
& "Data Source=" & ThisWorkbook.FullName
.Open
End With
Sql = "insert into [合同信息$] values('GO-20190301','城市污水处理','西海水处理新材料有限公司','300000',#3/16/2019#,#7/20/2019#)"
rs.Open Sql, cnn, adOpenKeyset, adLockOptimistic
'复制汇总结果

MsgBox "数据添加成功！"
rs.Close
cnn.Close
Set rs = Nothing
Set cnn = Nothing
End Sub

ykcbf1100

心大，表中只有一个标题行，源数据都没有的。

冷酷的云

哪出问题了

szdcp

ykcbf1100 发表于 2024-1-31 08:13
心大，表中只有一个标题行，源数据都没有的。

向大神学习

冷酷的云

哪位高手帮忙看下，谢谢！

冷酷的云

已经自行解决，并分享解决方法
Sub 案例41()
Dim cnn As New ADODB.Connection
Dim rs As ADODB.Recordset
Dim ws As Worksheet
Dim Sql As String

'建立与工作簿的连接
With cnn
.Provider = "microsoft.ace.oledb.12.0"
.ConnectionString = "Extended Properties=Excel 12.0;" _
& "Data Source=" & ThisWorkbook.FullName
.Open
End With

Sql = "insert into [合同信息$] values('GO-20190301','城市污水处理','西海水处理新材料有限公司',300000,#3/16/2019#,#7/20/2019#)"
Set rs = New ADODB.Recordset
rs.Open Sql, cnn, adOpenKeyset, adLockOptimistic
'复制汇总结果

MsgBox "数据添加成功！"

cnn.Close
Set rs = Nothing
Set cnn = Nothing
End Sub

冷酷的云

已经自行解决