Discussion :

[kritopal]

Bonjour à tous !

Après quelques recherches sur le forum (que je trouve très riche) je n'ai malgré tout pas trouvé de réponse à mon problème :

Je partage une base access qui se trouve sur un serveur NAS. Mon appli VB6 (je sais, cela commence à faire vieillot... ) accède aux tables par des requêtes SQL. Tout marche bien sur 5 postes en simultané (accès au programme pas permanent).
Mais parfois (3 fois en un mois tout de même), l'ajout de lignes se passe mal et la table se retrouve corrompue. (tous les champs de la ligne affiche #ERREUR et j'ai <signet non valide> en accès).

Je ne vais vous demander de déboguer mes requêtes, j'aimerais surtout savoir si le fait de partager cette base (ou je n'utilise pas de formulaires, états ou requêtes enregistrées), malgré un fichier sécurisé.mdw bien configuré et en dehors d'un serveur type SQLserveur peut à priori créer ce type de problème ?

D'avance merci pour vos réponses...

[motrin]

mmmmm. ouais ouais. Ça sent peut-être un bogue copyright Microsoft. Faut dire que Access n'est pas conçu pour les réseaux mais bien pour une bd locale seulement. J'te conseille d'utiliser un SGBD réseau comme MySQL qui est tout à fait offert gratuitement sur le web oubien si tu es un vrai informaticien qui boit du café 24 hres sur 24 (on se comprend) j'te conseille d'utiliser le monstre des non-informaticien nommé Oracle.

Bonne champ!

[Tofalu]

Comment accède tu aux données ? ADO , DAO ?

[kritopal]

Bonjour et merci pour vos réponses.
J'utilise ADO ( référence msado25.tlb) et la fonction suivante pour mes requêtes insert et update :

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
Public Function rqSQL(requete As String) As Boolean
 
Dim strCnn As String
Set cnn1 = New ADODB.Connection
Set rst = New ADODB.Recordset
 
 
On Error GoTo err_execute
'ouverture d'une table ou requete SQL
cnn1.CursorLocation = adUseServer
cnn1.Open chaine_connection 'Pour info "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & chemin_bd & ";User ID=" & utilisateur & ";SystemDB=" & chemin_mdw & ";"
 
Dim rst_affected As Long
cnn1.Execute requete, rst_affected, adCmdText
 
If rst_affected = 0 Then
rqSQL = False
Else
rqSQL = True
End If
cnn1.Close
 
Exit Function
 
err_execute:
 
Call progerror(Err.Description & vbCrLf & requete) 
rqSQL = False
 
End Function

Lorsque l'erreur se produit je n'ai pas de retour False de cette fonction.
j'ai réfléchis depuis mon premier post et la 1ère réponse , je pense diviser en 3 bases en fonction des usages et limiter ainsi les accès simultanés.
J'aurais effectivement préféré utiliser mySQL, mais le serveur utilise déjà la combinaison apache-mysql-php pour une autre appli.

Bonne journée à tous.

[Tofalu]

Personnellement j'utiliserais DAO

[motrin]

ouais vaut-il mieux utiliser DAO ou ADO?

Voilà la question, mais moi personnellement j'utiliserais ni un ni l'autre voilà pourquoi?

Depuis très longtemps, un magnifique langage (si vous me le permettez) est arrivé pour communiquer avec une bd. Et oui, je parle du DAO. Maintenant, il y a le ADO et par la suite il est venu le puissant ADO.NET. Si j'aurais le choix je choisirais sans aucune doute le ADO.NET pour la performance avec la communication avec la bd.

Pour ce qui est de ton problème, peut-être que c'est la façon que tu ajoutes dans une table ou update qui n'est pas correct (dans ta méthode il y a peut-être un bogue copyrithé Microsoft) . Je vais te donner une autre manière.

cré toi un recorset comme ceci

Code :

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

1
2
3
4
5
6
7
 Dim rst as Recordset
Set rst = tonobjetConnexion.openrecordset (NomTable)
with rst
 'mode ajout
 rst.addnew
 rst.update
end with

sinon tu veux faire un update meme principe sauf que le nom de ta table devient ta requete SQL quand tu ouvres le recordset

Code :

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

1
2
3
4
5
6
 
Set rst = tonobjetConnexion.openrecordset (SQL)
with rst
 'mode update modifie ce que tu veux faire
 rst.update
end with

j'espère que tu comprends le principe

[Tofalu]

DAO a été spécialement conçu pour travailler avec des bases de données Access. Quant à ADO.Net, il n'est utilisable que sous la plateforme .Net. Pas VB 6, ce qui ne correspond pas du tout au problème

[kritopal]

Bonsoir,
Merci beaucoup pour vos réponses et suggestions. J'avais commencé le dévelloppement de ce programme il y a quelques temps en utilisant DAO, mais je trouvais ADO plus simple et plus souple.

Je vais donc pour une partie du programme revenir à DAO : je vais vers les tests et je donnerais les résultats sur la fiabilité des résultats pour marquer la discussion comme résolue.

Un dernier élément : les erreurs rencontrées semblent venir après répétition de requêtes insertion sur la même table.

Encore merci !

[cafeine]

Hello,

j'ignore pourquoi un grand nombre d'articles et de développeurs VB sont les prescripteurs de ADO même lorsqu'ils ne traitent que des données Access.
Effectivement DAO est spécialisé et me paraît plus puissant pour gérer des bases Access.