rs.recordcount= -1 =>où est le problème?
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:
Code:
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 |
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.
Quelqu'un aurait une idée??ou une piste??
