Charge une table access

5/5 (3 avis)

Snippet vu 9 055 fois - Téléchargée 29 fois

Contenu du snippet

Private Sub Access()
dim Nomtable as recordset
dim dbb as database
dim chain as string
'COPIE DANS ACCESS

Chain = ("emplacement du fichier")
If Right$(Chain, 1) <> "\" Then Chain = Chain & "\"
Set dbb = DBEngine.Workspaces(0).OpenDatabase(Chain & "Nomfichieraccess.mdb")
Set NomTable = dbb.OpenRecordset("NomTableAccess", dbOpenTable)
NomTable.Index = "index à choisir"
NomTable.Edit


NomTable("Champ de la table access") = valeur souhaitée ( exmple valeurtext de la form VB...






NomTable.Update
NomTable.Close
Set NomTable = Nothing
set dbb = nothing


End Sub

A voir également

Ajouter un commentaire Commentaires
Messages postés
2
Date d'inscription
mardi 10 avril 2007
Statut
Membre
Dernière intervention
10 avril 2007

c est vrai, honnetement ca se vois que le code est bien realisé, neanmoins, il n y a aucune explication...
Messages postés
16
Date d'inscription
lundi 29 mars 2004
Statut
Membre
Dernière intervention
1 juillet 2004

merci boco
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
133
Ah ben on peut dire que c'est le strict minimum : pas un seul commentaire ! Mais à qui veux tu que ca serve : aux débutants ? Il leur faut des commentaire pour qu'ils comprennent ce qu'est un recordset ou un index. Pour les initiés ? Ils savent sûrement déjà tout cà !

Pour un tutorial plus complet : http://www.progotop.com/dks/cours/Cours.html

DarK Sidious

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.