Discussion :

[nogood1]

bjr

voila je vierns de faire une connection a ma base en ado
celle ci s'ouvre avec un compte utilisateur
est il possible de l'ouvrir en ado??
ca coince sur la derniere ligne
doit on lui ouvrir avec le compte et comment le mettre ds le code

merci

voila le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim NumFic As Integer
Dim buff As String
Dim t() As String
 
  NumFic = FreeFile 'récupération d'un n° de fichier libre
 
  'connexion à la base
  cnn.Open "Provider=" & "Microsoft.Jet.OLEDB.4.0;" & _
                 "Data Source=" & "u:\hercule\xxx_princip.mdb;"
 
  'ouverture d'un recordset sur ta table
  rst.Open "select * from tblClients", cnn, adOpenKeyset, adLockOptimistic

[argyronet]

Bonjour,

Ca coince de quelle façon ?
Es-tu obligé d'utiliser ADO et pourquoi vu que c'est un MDB que tu souhaites attaquer ?

Argy

[nogood1]

en fait le code est ds outlook ,je veux recuperer le body de mails avec un sujet bien precis
donc j'ai mis un code ds outlook qui verifie le sujet du mail et qui copie le corps du message ds un fichier pour pouvoir apres copier les infos ds une base access 2003

bon c'est peut etre pas la bonne solution
s'il ya mieux je suis preneur

j'ai oublie de dire que la base access s'ouvre avec un fichier .mdw

[argyronet]

Humm, je pense que tu t'apprêtes à te compliquer la vie :
Tu prends un objet Workspace
Puis un objet Database
Puis une variable de type String

Tu ouvres ton espace de travail Jet puis ta base de données avec le MDW correctement spécifié.
Tu lit les mails concernés dans une boucle et tu construit une chaîne qui défini un INSERT dans la table visée...

Tu appelles alors la méthode Execute de l'objet Database pour tes insertions.

Voilà en gros l'idée mais tu n'a pas besoin de passer par Outlook pour faire cela. Tu peux faire l'inverse et interroger Outlook depuis Access grâce à un objet MailItem... C'est autrement plus simple.

Il y a un tutoriel sur DAO très bien pour ce que tu veux faire (auteur C.Warin alias Tofalu)

Argy

[LedZeppII]

Bonjour

Ouverture d'une connexion ADO en spécifiant le fichier groupe de travail (mdw), le nom de l'utilisateur et son mot de passe.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
  'connexion à la base
  cnn.Open "Provider=" & "Microsoft.Jet.OLEDB.4.0;" & _
           "Data Source=" & "u:\hercule\xxx_princip.mdb;" & _
           "Jet OLEDB:System database=Chemin\LeFichier.mdw;" & _
           "User Id=NomUtilisateur;Password=MotDePasse;"

Cela ne contrarie en rien ce qu'a dit Argyronet.

A+