Discussion :

[sfaxian]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Hinault Romaric]

Encore du VB6 dans du VB.net
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.

[sfaxian]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[sfaxian]

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?