Impossible de trouver l'objet dans la collection correspondant au nom

Impossible de trouver l'objet dans la collection correspondant au nom - VB/VBA/VBS - Programmation

Marsh Posté le 18-06-2010 à 10:32:25    

Bonjour,
 
En ouvrant mon fichier Excel, j'obtiens une erreur :

Code :
  1. 3265
  2. Impossible de trouver l'objet dans la collection correspondant au nom ou à la référence ordinale demandé


 
Le code contient une requête SQL qui fonctionne très bien quand je la fais directement dans Oracle (par SQL+)
 
Voici la requête :
 

Code :
  1. strSQL = "select cote.indice, cote.cote_actuelle " & _
  2.                 "from t_detail_vin pr, type_vin vin, (select ind.id_tvin,ind.milesime millesime,c.cote cote_actuelle, ind.id_indice indice from t_indices ind,cote_annuelle c where ind.id_indice = c.id_indice and   ind.format in('Bouteille') and  c.annee='2010' and ind.id_indice not in ('1','2','3') and ind.id_indice < '100') cote" & _
  3.                 "where vin.id_tvin = pr.id_tvin and pr.milesime = cote.millesime and vin.id_tvin=cote.id_tvin and vin.proprietaire not in ('Indifferent') and vin.proprietaire is not null order by cote.indice"


       
 
A votre avis, d'où vient l'erreur ?
 
Précision : je travaille sur Excel 2003, j'appelle une base Oracle 10g avec cette fonction (qui fonctionne très bien avec des requêtes simples):

Code :
  1. Set cN = New ADODB.Connection
  2.     cN.ConnectionString = "Provider=msdaora;Data Source=OIU;User Id=XXXXX;Password=XXXX;"

Reply

Marsh Posté le 18-06-2010 à 10:32:25   

Reply

Marsh Posté le 18-06-2010 à 11:51:20    

Hello
 
Perso je ne vois pas d'espace entre cote et where, donc ta chaine doit renvoyer cotewhere
 

Citation :

strSQL = "select cote.indice, cote.cote_actuelle " & _
                "from t_detail_vin pr, type_vin vin, (select ind.id_tvin,ind.milesime millesime,c.cote cote_actuelle, ind.id_indice indice from t_indices ind,cote_annuelle c where ind.id_indice = c.id_indice and   ind.format in('Bouteille') and  c.annee='2010' and ind.id_indice not in ('1','2','3') and ind.id_indice < '100') cote" & _
                "where vin.id_tvin = pr.id_tvin and pr.milesime = cote.millesime and vin.id_tvin=cote.id_tvin and vin.proprietaire not in ('Indifferent') and vin.proprietaire is not null order by cote.indice"


Message édité par SuppotDeSaTante le 18-06-2010 à 11:51:47

---------------
Soyez malin, louez entre voisins !
Reply

Marsh Posté le 18-06-2010 à 12:01:32    

Salut !
 
Sans l'espace, on obtient l'erreur suivante à l'execution :
 
ORA-00933: SQL command not properly ended
 
Si je met l'espace on obtient l'erreur décrite plus haut (petit oubli dans mon copier coller).
Je précise qu'à l'execution, il n'y a aucune erreur.
C'est en ouvrant le fichier Excel que j'obtiens l'erreur 3265

Reply

Marsh Posté le 18-06-2010 à 12:11:22    

Et dans les references tu les as bien toutes ?


---------------
Soyez malin, louez entre voisins !
Reply

Marsh Posté le 18-06-2010 à 12:35:12    

Oui, je pense que c'est bon de ce côté puisqu'une requête simple comme celle-ci fonctionne bien
 
strSQL = "select nom, prenom " & _  
             "from individu " & _  
             "where num = '12'"
 
Il y a peut être un problème avec la présence de deux select dans ma requête. Mais comment détourner le probleme ?

Reply

Marsh Posté le 18-06-2010 à 13:39:06    

Bah je vois pas le rapport entre une chaine, peu importe a quoi elle sert par la suite, et l'ouverture d'un fichier Excel...


---------------
Soyez malin, louez entre voisins !
Reply

Marsh Posté le 18-06-2010 à 13:41:00    

Citation :

Impossible de trouver l'objet dans la collection correspondant au nom ou à la référence ordinale demandé.  
cette erreur signifie qu'il ne trouve pas un des champs que tu as précisé dans le select  
controle qu'ils sont tous écrit correctement


---------------
Soyez malin, louez entre voisins !
Reply

Marsh Posté le 18-06-2010 à 14:03:45    

Voici tout le code :
 

Code :
  1. Option Explicit
  3. Public cN As ADODB.Connection
  4. Public rs As ADODB.Recordset
  6. Public Function conNect() As Boolean
  7.    
  8.     On Error GoTo conNect_Err
  9.     Set cN = New ADODB.Connection
  10.     cN.ConnectionString = "Provider=msdaora;Data Source=OIIUI;User Id=xxxxxxx;Password=xxxxxxxxxx;"
  11.     cN.Open
  12.     conNect = True
  13.     Exit Function
  14.    
  15. conNect_Err:
  17.     MsgBox Err.Number & vbCr & Err.Description
  18.     conNect = True
  19.    
  20. End Function
  22. Public Function DeconNect() As Boolean
  24.     On Error Resume Next
  25.     cN.Close
  26.     Set cN = Nothing
  27.    
  28. End Function
  30. Private Sub Workbook_Open()
  31. Dim strSQL As String
  32. Dim i As Integer
  33. Dim j As Integer
  35.     On Error GoTo Workbook_Open_Err
  36.    
  37.     If conNect() = True Then
  38.    
  39.         Set rs = New ADODB.Recordset
  40.         rs.CursorLocation = adUseClient
  41.        
  42. strSQL = ""
  43. strSQL = strSQL & "select cote.indice, "
  44. strSQL = strSQL & "       cote.cote_actuelle "
  45. strSQL = strSQL & "  from t_detail_vin pr, "
  46. strSQL = strSQL & "       type_vin vin, "
  47. strSQL = strSQL & "      (select ind.id_tvin, "
  48. strSQL = strSQL & "              ind.milesime millesime, "
  49. strSQL = strSQL & "              c.cote cote_actuelle, "
  50. strSQL = strSQL & "              ind.id_indice indice "
  51. strSQL = strSQL & "         from t_indices ind, "
  52. strSQL = strSQL & "              cote_annuelle c "
  53. strSQL = strSQL & "        where ind.id_indice = c.id_indice"
  54. strSQL = strSQL & "          and ind.format in('Bouteille') "
  55. strSQL = strSQL & "          and c.annee='2010' "
  56. strSQL = strSQL & "          and ind.id_indice not in ('1','2','3') "
  57. strSQL = strSQL & "          and ind.id_indice < '100') cote "
  58. strSQL = strSQL & "  where vin.id_tvin = pr.id_tvin "
  59. strSQL = strSQL & "    and pr.milesime = cote.millesime "
  60. strSQL = strSQL & "    and vin.id_tvin=cote.id_tvin "
  61. strSQL = strSQL & "    and vin.proprietaire not in ('Indifferent') "
  62. strSQL = strSQL & "    and vin.proprietaire is not null "
  63. strSQL = strSQL & "  order by cote.indice"
  65.       rs.Open strSQL, cN, adOpenForwardOnly, adLockOptimistic
  66.        
  67.         If rs.RecordCount > 0 Then
  68.        
  69.             j = 1
  70.             i = 0
  71.            
  72.           Do While Not rs.EOF And Not rs.BOF
  73.                
  74.     i = i + 1
  75.     Feuil1.Cells(i, j) = rs("cote.indice" )
  76.     Feuil1.Cells(i, j + 1) = rs("cote.cote_actuelle" )
  77.     rs.MoveNext
  78.                
  79. Loop
  80.            
  81.         End If
  82.        
  83.         DeconNect
  84.        
  85.     Else
  86.    
  87.         'blablabla
  88.        
  89.     End If
  90.    
  91.     Exit Sub
  93. Workbook_Open_Err:
  94. MsgBox Err.Number & vbCr & Err.Description
  96. End Sub


 
Ecrit de cette manière, il y a effectivement un message d'erreur à la compilation à la ligne  

Code :
  1. MsgBox Err.Number & vbCr & Err.Description


 
C'est le meme message...
 
Est-ce que ça viendrait du fait que mes variables contiennent des point : "cote.indice" et "cote.cote_actuelle" ?

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed