Salut,
je me bats sur une betise a n'en pas douter, mais j'ai mon code suivant qui me retourne toujours RS.EOF=True
je ne comprends pas pourquoi je ne retrouve pas mes donnees...
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
27
28
29
30 Public Sub DynamicCRDS(ctl As IRibbonControl, ByRef content) Dim RS As ADODB.Recordset Dim cn As ADODB.Connection Dim strCRDSCode As String Dim strSQL As String content = "<menu xmlns=""http://schemas.microsoft.com/office/2007/09/customui"">" strSQL = "SELECT [CRDS code] FROM (SELECT DISTINCT [CRDS code] FROM Main" strCRDSCode = GetParam("CRDS") If strCRDSCode <> "" Then strSQL = strSQL & " WHERE [CRDS code] LIKE '*" & strCRDSCode & "*'" Else content = content & "</menu>" Exit Sub End If strSQL = strSQL & ")" 'le strSQL est correct et retourne une serie d'enregistrements dans Access... Set RS = New ADODB.Recordset Set cn = New ADODB.Connection cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & STR_DB_ACCESS_PATH & ";" 'pointe sur ma bdd contenant des donnees cn.Open RS.Open strSQL, cn, adOpenDynamic, adLockOptimistic If Not RS.EOF Then ' et ici je ne rentre jamais dans le code '... End if RS.Close content = content & "</menu>" cn.Close End Sub
Dois-je passer par DAO pour etre sur de mon coup ??
Merci =]
JP
Partager