VB6 + ADO 2.7 Une chaîne SQL retourne .EOF alors qu'il y a des lignes.

Question

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.

cs_vpoyo · Answer

salut, tu peux essayer avec ce code car je viens juste d'avoir le m&#234;me pb mais en passant par les proc stock, et en ouvrant le recordset ainsi ca marche.

dim oCmd as ADODB.Command

set oCmd = new Command
oCmd.ActiveConnection =  CnADODBConnection
oCmd.CommandText = strSQL 
oCmd.CommantType = adCmdText

set RsADODBRecordset = new Recordset
RsADODBRecordset.Open cmd, , adOpenStatic, adLockReadOnly 

Vincent

laurent_diep · Answer

Merci mille fois ! : &#231;&#224; a l'air de marcher : tu m'as fait gagner un temps pr&#233;cieux !

Laurent.

VB6 + ADO 2.7 Une chaîne SQL retourne .EOF alors qu'il y a des lignes.

2 réponses

Discussions similaires