[编程申请]：求助！VBA如何对Access数据库进行操作？

zsz7707

各位高手，那位能告诉我VBA对Access数据库进行操作的有关资料，非常感谢！

lsjjm

给你个例子：
Private Sub RunButton_Click ()
Dim db As Database
Dim theDwgName As String
Dim lays As Recordset
Dim lay As AutoCAD.Acadlayer
Set db = OpenDatabase("c:\My Documents\DrawingLayers.mdb")
theDwgsName=Dir(ThisDrawing.Name)
db.Excute "DELETE FROM LAYERS WHERE DrawingName=' "& theDwgsName & " ' "
Set  lays= db.OpenRecordset ("Layers", dbOpenDynaset)
For Each lay In ThisDrawing.Layers
  lays.AddNew
  lays!DrawingName=ThisDrawing.Name
  lays!LayerName=lay.Name
  lays!Linetype=lay.Linetype
  Select Case lay.Color
     Case acByBlock
         lays!color ="BYBLOCK"
     Case acByLayer
         lays!color ="BYLAYER"
     Case acRed
         lays!color ="RED"
     Case acYellow
         lays!color ="YELLOW"
     Case acGreen
         lays!color ="GREEN"
     Case acCyan
         lays!color ="CYAN"
     Case acBlue
         lays!color ="BLUE"
     Case acMagenta
         lays!color ="MAGENTA"
     Case acWhite
         lays!color ="WHITE"
     Case Else
         lays!color =lay.Color
  End Select
  lays.Update
Next lay
lays.Close
db.Close
Set lays=Nothing
Set db = Nothing
MsgBox"Layer information added to database."
End Sub

dashan

找本用VB开发数据库的书看看就明白了.
DAO,ADO都行

zsz7707

3楼的，非常感谢你对我的支持，但不知道哪里有VB开发数据库的书，请你告诉我好吗，再次感谢！！