Hello everybody,

Je suis sur VB6 avec ADO 2.7 qui pointe sur une base Oracle.

J'ai une erreur étrange :

Je créé une chaîne SQL dans le code et elle retourne EOF et quand je mets cette chaîne directement dans Oracle (via Toad) elle retourne des lignes.

J'ai essayé une requête plus simple dans VB et cela a marché : J'ai remarqué qu'au delà de 3 tables dans la clause from le code plante: il ne retourne pas d'erreurs mais la requête retourne EOF.

Ce code marche avec une base Access.

Voici mon code :

'***********************************************************************************************

Public Sub CreateProfileByChemistrySignificantLigandFamilyArray()

'*****************************************************************************************
'*  Remplit le tableau varProfileByChemistryLigandFamilyArray
'*  avec les familles de ligands selectionnes (via les targets selectionnees)
'*****************************************************************************************

Dim RsADODBRecordset As ADODB.Recordset
Dim strSQL As String
 
 On Error GoTo Err_CreateProfileByChemistrySignificantLigandFamilyArray
 
 varProfileByChemistryLigandFamilyArray = Empty
 Set RsADODBRecordset = New ADODB.Recordset
 Set RsADODBRecordset.ActiveConnection = CnADODBConnection

 Screen.MousePointer = vbHourglass

'Create ProfileByChemistry significant ligand family Array
  strSQL = "SELECT E.Fa_Code"
  strSQL = strSQL & " FROM " & strBioDataTable & " A, " & strLigandDictionnaryTable & " B, Tmp_Ch_Target C, "
  strSQL = strSQL & strLigandFamilyRelation & " D, " & strLigandFamily & " E"
  strSQL = strSQL & " Where A.Li_ID = B.Li_ID And A.Ta_ID = C.Target And B.Li_ID = D.Li_ID And D.Fa_ID = E.Fa_ID"
  strSQL = strSQL & " And C.Jeto_ID =" & gBytCurrentCounter
  strSQL = strSQL & " GROUP BY E.Fa_Code HAVING count(*)>=5"
 
  RsADODBRecordset.Open strSQL
 
  If RsADODBRecordset.BOF = False Or RsADODBRecordset.EOF = False Then
    varProfileByChemistryLigandFamilyArray = RsADODBRecordset.GetRows(400000)
  End If

   Screen.MousePointer = vbNormal

Exit Sub

Err_CreateProfileByChemistrySignificantLigandFamilyArray:

Select Case Err.Number

    Case Else
       
        MsgBox "Err_CreateProfileByChemistrySignificantLigandFamilyArray : " & Err.Number & " " & Err.Description
        Resume Next

End Select

End Sub

'***********************************************************************************************

Merci beaucoup pour vos réponses.

laurent_diep.