Comment retourner la valeur de la fonction
code Comment renvoyer la valeur du code ci-dessus. besoin d'aide du code VB6
3 Réponses :
Vous devez spécifier votre type de retour.
Private Function LeaveCheck(empid As String) As MyClass
Dim myClass As New MyClass
Dim rdoRs1 As rdoResultset
Dim sSQL As String
sSQL = "Select name, dept, country from table1 wher empcode = '" & empid & "'"
Set rdoRs1 = Rdoconn.OpenResultset(sSQL, rdOpenStatic)
If rdoRs1.RowCount > 0 Then
myClass.name = rdors1!name
myClass.dept = rdors1!dept
myClass.country = rdors1!country
End If
rdoRs1.Close
LeaveCheck = myClass
End Function
Si je veux envoyer plusieurs valeurs signifie, comment modifier mon code, par exemple le nom, le département, le pays que je veux revenir, car ce que je dois modifier mon code ....
@Gopal: Si vous souhaitez renvoyer le fichier d'enregistrement , modifiez le type de retour vers rdoresultset . Toutefois, vous fermez le dossier avant de quitter la fonction et cela peut entraîner des problèmes plus tard.
Vous devez définir la valeur sur le nom de la fonction et le type de retour: voir ce document pour plus d'informations.
Si je veux envoyer plusieurs valeurs signifie, par exemple Nom, Pays, pays que je veux retourner, pour ce que je dois modifier mon code ....
@Gopal - Pourquoi ne pas retourner l'ensemble du résultat? Ou créer un objet pour contenir ces valeurs et renvoyer cela.
OK, je retournerai le jeu de résultats, à partir de l'autre extrémité, comment puis-je utiliser cet enregistrement. Par exemple, je renvoie le ResultSet RDO puis dans la formule de charge Comment utiliser ce résultat RDO, pouvez-vous s'il vous plaît aidez-moi ....
RDO n'est pas ADO, mais un supplément à DAO c'était un arrêt STOPGAP pour VB5 avant que VB6 ne vienne le bon soutien de l'ADO.
Function returnArray() As Variant RTA[ab]=0 if a=b then RTA[ab]=1 RTA[xy]=0 if a=b then RTA[xy]=1 returnArray=RTA end function