Discussion :

[philippe carel]

Bonjour,

Je souhaite developper un programme en VB.net 2008 me permettant de me connecter à une base access sur serveur. Dans la mesure ou se programme s'instalerait sur ordi portable et que la connection serveur ne sera pas constante, j'ai choisi la liaison BDD en mode dataset/deconnecté :
Le modèle est un programme médical d'acces aux dossiers des patients. Le médecin réalisant les modifications des données sur son portable au domicile de ses patients.
Il charge les données , part en visite, modifie les données en local (dataset), revient au cabinet et fait alors sa synchronisation avec le serveur......
Comment conserver les données "hors connection" pendant ses visites et sans obliger à garder le programme ouvert avec conservation des données sur dataset en mémoire vive???
Faut il faire une copie de la base access en local, travailler sur cette copie pendant les périodes "hors connection serveur" puis la resynchroniser par la suite?.....et si oui de quelle manière?
y-a t-il d'autres solutions??
Rien de bien révolutionnaire dans ce projet, mais je n'ai pratiquement pas d'experience en la matière.
Merci beaucoup de m'aider par vos suggestions.

[tomlev]

Tu peux essayer d'enregistrer ton DataSet sur disque en XML, mais je ne suis pas sûr que les RowState soient sérialisés... s'ils le sont, il suffit de recharger le DataSet à partir du fichier et d'appeler Update quand tu es connecté à la base.

Sinon il y a d'autres solutions... je travaille sur le même type d'applications (utilisateurs nomades qui se synchronisent avec un serveur central), et on utilise Oracle Lite : une base de données "légère" côté client, et côté serveur un mécanisme de synchronisation avec une base centrale Oracle 10. La base du client peut ne contenir qu'une partie des données de la base centrale. Le système est assez flexible, mais pas très simple à mettre en oeuvre. Evidemment c'est un peu l'artillerie lourde, on est bien loin d'Access...

Sinon j'ai vu récemment que Microsoft a créé un framework de synchronisation pour ADO.NET. J'ai pas encore eu l'occasion de tester... plus d'infos ici :
http://msdn.microsoft.com/en-us/sync/bb887608.aspx
http://msdn.microsoft.com/fr-fr/library/bb902818.aspx

[philippe carel]

Merci pour cette première réponse.
D'une façon plus générale est-il possible de recharger le dataset à partir d'une base de donnée access N1, de travailler sur ce dataset et au final de faire un update non pas sur la base N1 mais une base access N2 (situé sur serveur en reseau par ex), et ayant bien entendu la mème structure que la base N1??
merci pour vos réponses

[tomlev]

est-il possible de recharger le dataset à partir d'une base de donnée access N1, de travailler sur ce dataset et au final de faire un update non pas sur la base N1 mais une base access N2 (situé sur serveur en reseau par ex), et ayant bien entendu la mème structure que la base N1??

Oui, il suffit de changer la connection utilisée par les commandes du DataAdapter

[philippe carel]

j'ai essayé en changeant la connection du dataadapter mais la mise à jour ne se fait pas sur la seconde base.................

[tomlev]

j'ai essayé en changeant la connection du dataadapter mais la mise à jour ne se fait pas sur la seconde base.................

fais voir le code

[philippe carel]

je remplace my.setting.source par sourcetempo (designant l'emplacement de la nouvelle base access):

Code :

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

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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & My.Settings.sourcetempo
 
        cnt = New OleDbConnection()
        cnt.ConnectionString = strConn
        cnt.Open()
        cmdadmin = New OleDbCommand("SELECT* FROM admin")
        daadmin = New OleDbDataAdapter(cmdadmin)
        cmdadmin.Connection() = cnt
        daadmin.Fill(ds, "admin")
        dtadmin = ds.Tables("admin")
        dvadmin = dtadmin.DefaultView
 
        cmdobserv = New OleDbCommand("SELECT* FROM observ")
        daobserv = New OleDbDataAdapter(cmdobserv)
        cmdobserv.Connection() = cnt
        daobserv.Fill(ds, "observ")
        dtobserv = ds.Tables("observ")
        dvobserv = dtobserv.DefaultView
        cnt.Close()
        Try
 
            Me.Validate()
 
            adminbinding.AddNew()
            'observbinding.AddNew()
            Dim cba As New OleDbCommandBuilder(daadmin)
            Dim cbo As New OleDbCommandBuilder(daobserv)
            daadmin.Update(ds, "admin")
            daobserv.Update(ds, "observ")
 
            ds.Clear()
            Call recharge()
 
            'Call majview()
            adminbinding.Position = adminbinding.Find("cle", cle)
            valide = True
            MessageBox.Show("base de donnée mise à jour avec succés", "info", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        Catch
 
 
            MessageBox.Show(Err.Description)
 
 
 
        End Try

mais la nouvelle base n'enregistre rien.....et sans message d'erreur.

[tomlev]

Ben là je vois pas trop... mais en fait c'est même pas lié au fait que tu utilises 2 bases, vu qu'ici tu utilises toujours la même connection.
Tu es sûr que le AddNew fonctionne bien ? Abonne toi à l'évènement RowUpdated du DataAdapter pour voir s'il se passe bien quelque chose.