Discussion :

[Cablan]

Voila mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
im bd As New ADODB.Connection
bd.Provider = "Microsoft.Jet.OLEDB.4.0"
bd.ConnectionString = "C:\BD\mabd.mdb"
bd.Open
Dim recset_ent As New ADODB.Recordset
recset_ent.Open "Entrant", bd, adUseServer, adLockOptimistic
recset_ent.MoveFirst
recset_ent.Find "N°_de_mouvement = '" & N°_de_mouvement & "'"
If recset_ent.EOF Then
MsgBox ("Ce numero_de_mouvement est inexistant")
Else
N°_de_lot = N°_de_lot_entrant
End If

Donc

Bd.connectionstring je donne un emplacement ou se trouve la BD.

Je voudrais, une astuce, pour qu'access recherche la BD sur un ordinateur voir sur plusieurs ordinateur en réseau.
donc mettre autre chose qu'un emplacement prédéfinie ?

Merci

[fdraven]

le connectionstring concerne la base que tu ouvres ?

Si c'est le cas pourquoi ne pas faire un :

Code :

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

bd.ConnectionString = CurrentDb.name

[Cablan]

oui cela concerne la base qui est en cours d'utilisation.

Question de gros boulet... currentdb.name je ne remplace pas le "name" par le nom de ma base ? ce code permet de chercher le nom de ma base ?

merci pour ta réponse rapide.

[fdraven]

Currentdb = access recherche la base que tu as ouverte
Name = access prend le nom de la base.

CurrentDb.Name = le nom de la base actuellement ouverte.

Tu n'as rien à remplacer ça se fait automatiquement.

[Cablan]

Parfait et ca marche et pour des ordi en réseau c'est complexe ?

Admettons je souhaite avoir trois PC qui utilise la meme base de donnée, comment faire ?

[fdraven]

Le mieux c'est de séparer ta base en 2 morceaux :
- un applicatif (qui contient formulaire + états + requête ) sur chaque poste client.
- une base de données (tables seules) qui sera sur le serveur

l'applicatif contiendra des tables liées de la base de données.

L'avantage de cette solution c'est que tu ne distribues la partie applicative qu'aux personnes concernées. Et pour ton problème de connectionstring, il sera connectionstring = currentdb.name