problème lors de l'appel d'une méthode

Version imprimable

bonjour,

j'ai un problème dans l'exécution de mon programme lors de l'initialisation d'un composant ocx , en faite cette intialisation fait appel a une méthode d'une autre classe:
Code:

1 2 3 4 5 6 7 Dim rs As New ADODB.Recordset SSDBCombo1.RemoveAll() rs.Open("select * from employer order by matricule", cn, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockReadOnly) While Not rs.EOF SSDBCombo1.AddItem(rs.Fields("matricule").Value & ";" & rs.Fields("nom").Value & ";" & rs.Fields("prenom").Value & ";" & rs.Fields("sexe").Value & ";" & rs.Fields("etat_civil").Value & ";" & rs.Fields("Position").Value & ";" & rs.Fields("Date_Embauche").Value & ";" & Per.Nomsociete(rs.Fields("Societe").Value) & ";" & IIf(rs.Fields("resiliation").Value = 0, "non", "oui")) rs.MoveNext() End While
l'appel de la methode s'effectue dans l'instruction :

Code:

Per.Nomsociete(rs.Fields("Societe").Value)

le programme ne continu pas l'exécution de la boucle while ???? lorsqu'il appel cette méthode

merci de m'aider

09/07/2009, 17h59
Hinault Romaric

Encore du VB6 dans du VB.net :mouarf:
Je ne crois pas pouvoir t'aider si tu ne décrit pas ce que la méthode appeler dans la boucle fait ou a défaut tu poste le code de celui-ci. Mais déjà le plus souvent je voie ce problème lorsque l'on imbrique un recorset dans la boucle de lecture d'un autre.

le code de la méthode appelée

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Public Function Nomsociete(ByRef mat As Integer) As String
		Dim textrs As String
		On Error GoTo erreur
		Dim rs As ADODB.Recordset
		rs = New ADODB.Recordset
		rs.Open("select  * from societe where code = " & mat, cn, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockReadOnly)
		rs.MoveFirst()
		Nomsociete = rs.Fields("Societe").Value
        Exit Function
erreur: 
		MsgBox("code société inexistante ")
	End Function

09/07/2009, 22h11
Pol63

déjà au lieu d'utiliser des recordset de vb6 dans vb.net, utilise les méthodes d'accès aux données de vb.net, après on verra
09/07/2009, 22h27
sfaxian

ya pas une solution sans modifier beacoup dans le code

Citation:

Envoyé par sperot51

déjà au lieu d'utiliser des recordset de vb6 dans vb.net, utilise les méthodes d'accès aux données de vb.net, après on verra

SVP y a pas d'autre solution car si je vais changer dans le code c'est la merde pour mois

ce morceaux de code n'est qu'une méthode parmis centaines

je peux pas m'en sortir autrement?
10/07/2009, 08h59
Pol63
au lieu de faire une requete qui te retourne (surement) un numéro de société et que pour chaque ligne retournée tu fasses une nouvelle requete pour avoir le nom de cette société

il est possible de faire une requete avec une jointure pour avoir les 2 infos en meme temps, ce qui augmentera significativement les performances de ton programmes en plus

exemple :
Code:

1 2 3 4 SELECT employes.idemp, employes.nomemp, societes.nomsociete FROM employes INNER JOIN societes ON employes.idsociete = societes.idsociete
j'espère que ton logiciel n'est pas destinée à une clientèle, sinon je les plainds ...
10/07/2009, 10h42
Hinault Romaric

Comme je l'ai dit plus haut je voie évidement que la fonction appelé utilise un autre Recorset c'est sa la cause de ton problème on ne peut imbriquer un recorset dans la boucle de lecture d'un autre et c'est pareil avec le DataReader faudra procéder comme Sperot51 a dit.
10/07/2009, 13h22
sfaxian

Citation:

Envoyé par lilroma

Comme je l'ai dit plus haut je voie évidement que la fonction appelé utilise un autre Recorset c'est sa la cause de ton problème on ne peut imbriquer un recorset dans la boucle de lecture d'un autre et c'est pareil avec le DataReader faudra procéder comme Sperot51 a dit.

lorsque j'ai mis le code en question dans un bloc try catch j'ai eu cette execption :

Citation:

Le jeu d'enregistrements suivant ne prend pas en charge la mise à jour. Il s'agit peut-être d'une limitation du fournisseur ou du type de verrou sélectionné.

ADODB.Field
at ADODB.Field.set_Value(Object pvar)
at ADODB.InternalField.set_Value(Object value)

lorsque j'ai remplacer la méthode appelé par une méthode dans la classe actuel sa fonctionne !!!!

je comprend pas la différence

@sperot51 : si j'aurais la décision je changerais tous le code mais ......
10/07/2009, 13h56
sfaxian

ça fonctionner je sais pas comment!!!!

bon apparement ça fonctionner j'ai juste changer la signature de la méthode appelé ( j'ai juste changer le passage de parametre de ByRef à ByVal )

c'est vraiment bizard si c'est celle ci l'erreur

merci pour l'aide
10/07/2009, 14h39
Pol63

de byref à byval, ce n'est pas ca qui a pu corriger l'erreur

sinon à ta place je chercherais du boulot ailleurs, faire de la merde c'est pas top, et en plus ca ne permet pas d'apprendre grand chose et d'évoluer