Bonjour,
Je commence à étre un habitué de ce forum tant je rencontre de difficulté, heureusement que vous êtes là.
Alors là je me retrouve avec un problème et je ne comprends vraiment pas pourquoi. J'ai le code suivant dans un formulaire Access, la table est sur le serveur:
or ce code ne fonctionne pas car la valeur retournée par le recordcount est égale à -1, ce que je ne comprends pas car il y a bien des valeurs et quand je lance la requête seule dans l'analyseur de requêtes SQL j'ai bioen des enregistrements. Le problème semble venir de la table car le même code sur une autre table fonctionne très bien.
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 Private Sub Form_Open(Cancel As Integer) Dim rs As New ADODB.Recordset Dim cnn As New ADODB.Connection Dim conn As String Dim val As Variant conn = "Provider=sqloledb; Data Source=SQLserv; Initial Catalog=PyraSQL; User ID=Moi " cnn.Open conn rs.Source = "SELECT a.tt_libelle, a.St_Atraiter FROM Tbl3CalMetierAtraiter as a WHERE a.st_clas =1 ORDER BY a.tt_libelle" rs.LockType = adLockOptimistic rs.CursorType = adOpenKeyset rs.Open , cnn rs.MoveFirst rs.MoveLast val = rs.RecordCount Set Me.Recordset = rs Set rs = Nothing Set cnn = Nothing End Sub
Quelqu'un aurait une idée??ou une piste??
Partager