Dzwebs.Net

撰写电脑技术杂文十余年

ppt vba对ACCESS进行写入

Admin | 2012-1-28 11:21:16 | 被阅次数 | 5722

温馨提示!

如果未能解决您的问题,请点击搜索;登陆可复制文章,点击登陆

  以下代码的功能是,通过PPT,使用VBA,将内容写入到ACCESS里面。

  Private Sub CommandButton1_Click()

  If DbCnct.State = adStateOpen And Not IsEmpty(adStateOpen) Then dbconnect.Close

  DbCnct.Provider = "microsoft.jet.oledb.4.0"

  DbCnct.ConnectionString = "test.mdb"

  DbCnct.Open

  If ReSet.State = adStateOpen And Not IsEmpty(adStateOpen) Then ReSet.Close

   ReSet.Open "test", DbCnct, adOpenDynamic, adLockOptimistic

  With ReSet

  .Update '更新该记录,追加新纪录为AddNew,删除为Delete

  .Fields("mingzi").Value = TextBox1.Text

  .Fields("xingbie").Value = TextBox2.Text

  .Fields("dizhi").Value = TextBox3.Text

   ReSet.Update

  End With

  ReSet.Close

  Set ReSet = Nothing

  Set DbCnct = Nothing

  End Sub

  在真正应用中,还要考虑到记录数,记录移动等,但作为了解原理和入门,这些已经够了。


网站备案号:

网站备案号:滇ICP备11001339号-7

版权属性:

Copyright 2007-2021-forever Inc. all Rights Reserved.

联系方式:

Email:dzwebs@126.com QQ:83539231