Tout d'abord, il y a certaines references à cocher... dans le menu Projets - Références, Microsoft AtiveX Data Objects 2.x Library. Ensuite, il faut établir une connexion avec la base. Pour cela, on utilise l'objet 'connection' :
Dim con as ADODB.Connection
Set con = New ADODB.Connection
Ensuite, il faut définir le pilote ainsi que la chaine de connexion :
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" Chemin de la base "
Puis, ouvrir la connexion :
con.open
Si vous devez traiter une base de données assez grande et que vous ouvrez souvent votre connexion, je conseille de mettre tout ce que nous avons vu dans un module, et d'appeler à chaque fois le module. Par exemple si le module s'appele SeConnecter :
Call module1.SeConnecter(con)
Voilà pour ce qui est de la connexion, passons désormais à la phase de manipulation des données. Pour cela, il faut utiliser des requêtes, de la même maniére que sous Access, avec insert into, update, delete, select ... .
Partager