Discussion :

[Vesta]

Voila j'ai quelques notions mais pas assez pour bien comprendre...

Je dois faire un formulaire qui se connecte a sql server 2000 qui doit pouvoir rendre compte de toute les manipulations d'autres utilisateurs. Enregistrement unique par page.
On ne pourrait modifier un enregistrement qu'en cliquant sur un bouton, modifier et a ce moment je veux que ce soit un seul utilisateur qui puisse modifier cet enregistrement. Les autres auraient un message les avertissant que ce record est read only.

Je devrais donc utiliser un curseur coté serveur (adUseServer), un type de curseur dynamique (adopendynamic), et un verrouillage pessimiste (adLockPessimistic).

Mais ca ne marche pas.

voici le code de connection:

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
 
Dim adoPrimaryRS As Recordset
 
Private Sub Form_Load()
  Dim db As Connection
  Set db = New Connection
 
  db.Open "PROVIDER=MSDASQL;dsn=DATASERV;uid=admin;pwd=*******;database=db1;"
  db.CursorLocation = adUseServer
 
  Set adoPrimaryRS = New Recordset
  adoPrimaryRS.Open "select [Ref Client],[Firme Fact],[Nom Fact],[Adresse Fact 1],[Adresse Fact 2],[Code postal Fact],[Ville Fact],[Firme Liv],[Nom Liv],[Adresse Liv 1],[Adresse Liv 2],[Code postal Liv],[Ville Liv],[No TVA],[Tel 1],[Tel 2],GSM,Fax,Banque,Email,[Code Langue],Devise,[Remarque 1],[Remarque 2] from Tbl_Clients Order by [Ref Client]", db, _
  adOpenKeyset, adLockPessimistic
 
  For Each oText In Me.txtFields
    Set oText.DataSource = adoPrimaryRS
  Next
End Sub

Problemes:

1. la numérotation des records ne suit pas (AbsolutePos, recordcount = -1)
2. Les mises a jours ne vont pas.

Enfin je suis perdu un coup de main de pros SVP lol
Un exemple me conviendra aussi...

Serais-ce le ORDER By qui est ennuyant?
Merci beaucoup

[jmfmarques]

Ta question à propos du ORDER BY (sans order by dans ta requête) serait de toutes façons indépendante du problème que tu poses à propos de la disponibilité partagée de la base !
Je suis troublé !
Première question, donc :
Quid du résultat avec un seul utilisateur ? (sans encore parler de disponibilités à la demande) ?
Si celà coince déjà là : ta question devra être posée sans même parler, à ce niveau, du reste (plusieurs utilisateurs), il me semble !

[Vesta]

Pour parler du order by, si je ne le fait pas et que je prend la table telle quelle pas de soucis majeur, mais si je lui donne cette instruction, ca foire... je ne comprend pas pourquoi... en gros ca dis ' les mise a jours ne sont pas supportée par ce type de recordset ' et quan dj'essaie de voir quels sont les parametres a ce niveau plus rien a voir avec ce que je demandais... Comprend pas pourquoi lol

[Xo]

Une fois ton recordset rempli avec les données, il te faut le parcourir.
La propriété RecordCount n'est pas "mise à jour" tant que tu n'as pas appelé la méthode MoveNext ou MoveLast.

cf http://drq.developpez.com/vb/tutoriels/ADO/Chapitre3/

[ThierryAIM]

fais un test avec :

Code :

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

db.CursorLocation = adUseClient