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