1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
| Public Sub con()
'declaration des objet ado
Dim cnx As ADODB.Connection
Dim rst As ADODB.Recordset
Dim olayer As AcadLayer
'Dim olayer As AcadLayer
'instanciation des objets
Set cnx = New ADODB.Connection
'connection à la base de données
cnx.Provider = "Microsoft.ACE.OLEDB.12.0"
cnx.ConnectionString = "D:\cours\projet\bd1.mdb"
cnx.Open
If cnx.State = adStateOpen Then
MsgBox ("connextion resussie")
Else
MsgBox ("connection failed")
End If
Set rst = New ADODB.Recordset
'ecrire des enregistrement sur une table dans la base de données
rst.Open "select*from Agence", cnx, adOpenKeyset, adLockOptimistic
For Each olayer In ThisDrawing.Layers
rst.Fields("nomagence").Value = olayer.Name
rst.Fields("adresse").Value = olayer.color
rst.Update
Next olayer
...... |