如何在excel中删除并修改ACCESS中的记录？？？！！！

wx-x · 发表于 2011-3-30 13:39

请问：如何在excel中删除并修改ACCESS中的记录？？谢谢

zhao__feng · 发表于 2011-3-30 16:06

ADO或DAO都可以

styhs · 发表于 2011-3-30 17:08

原帖由 wx-x 于 2011-3-30 13:39 发表
请问：如何在excel中删除并修改ACCESS中的记录？？谢谢

呵呵，又见面了，下为使用ADO的示例，请按需求自行修改。

Sub rstDelete(StartDate As Date, EndDate As Date) '按日期删除记录，需要引用Microsoft Activex Data Objects
Dim cnn As New ADODB.Connection, accStr As String
accStr = "DELETE * FROM 裁剪明细 WHERE 日期 Between #" & StartDate & "# And #" & EndDate & "#"
With cnn
.Provider = "Microsoft.Jet.OLEDB.4.0;" '如果是Access2007或以上，则为Microsoft.ACE.OLEDB.12.0
.ConnectionString = "Data Source =" & ThisWorkbook.Path & "\裁剪报表.mdb"
.Open
.Execute accStr
End With
Set cnn = Nothing
End Sub

复制代码

wx-x · 发表于 2011-3-30 22:05

原帖由 styhs 于 2011-3-30 17:08 发表

呵呵，又见面了，下为使用ADO的示例，请按需求自行修改。Sub rstDelete(StartDate As Date, EndDate As Date) '按日期删除记录，需要引用Microsoft Activex Data Objects
Dim cnn As New ADODB.Connection, accSt ...

呵呵，方便留一个联系方式吗？谢谢

wx-x · 发表于 2011-3-30 22:11

原帖由 styhs 于 2011-3-30 17:08 发表

呵呵，又见面了，下为使用ADO的示例，请按需求自行修改。Sub rstDelete(StartDate As Date, EndDate As Date) '按日期删除记录，需要引用Microsoft Activex Data Objects
Dim cnn As New ADODB.Connection, accSt ...

不好意思，可以帮忙做一个示范吗？这段代码些在什么地方？谢谢，谢谢。

styhs · 发表于 2011-3-31 08:50

原帖由 wx-x 于 2011-3-30 22:11 发表
不好意思，可以帮忙做一个示范吗？这段代码些在什么地方？谢谢，谢谢。

QQ:347414070，上班时公司禁止上QQ，在家里也很少上，呵呵。

wx-x · 发表于 2011-3-31 09:02

谢谢，谢谢。

wx-x · 发表于 2011-3-31 11:00

经过styhs的帮助，已经达到在excel里灵活修改、删除、保存access里的记录。发出来供大家共享。

[ 本帖最后由 wx-x 于 2011-3-31 11:02 编辑 ]

styhs · 发表于 2011-4-8 15:02

看看是否符合，代码详见附件。

wx-x · 发表于 2011-4-8 09:51

原帖由 styhs 于 2011-3-31 08:50 发表

QQ:347414070，上班时公司禁止上QQ，在家里也很少上，呵呵。

不好意思，可以帮忙看看这个吗？谢谢

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