[VB6] Comment se connecter a SQL Server

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:

---

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

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 ! :cry:

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

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/

fais un test avec :

Code:

---

db.CursorLocation = adUseClient

---