Comment en VB6 récupérer un ArrayList d'une DLL écrite en VB.Net

Version imprimable

14/03/2007, 14h57
BGC_Laurent

Comment en VB6 récupérer un ArrayList d'une DLL écrite en VB.Net

Bonjour à tous ,

tout est dans le titre .

Dans un projet VB6 , on me demande de faire référence à une DLL afin de récupérer une fonction , cela OK . Or cette DLL que je référencie est écrite en VB.Net et la fonction que je tente de récupérer me retourne un ArrayList :

Code:

Public Function GetListAgent_ByTime(ByVal myValue As String) As ArrayList

.

Je recherche donc un composant VB6 capable de récépurer et traduire cet ArrayList . J'ai essayé dans VB6 :
Dim aa as string = "id099125"
Dim cc as new array() , listbox , string() , .... ???
cc = myClass.GetListagent_ByTime(aa)

Il me rend : " Invalid procedure call or argument"

D'avance grand merci pour votre aide .

Laurent
14/03/2007, 15h19
AlainTech

Ce serait moi, je commencerais par le déclarer en Variant.

Puis, à l'aide de la fenêtre des variables locales (en mode pas-à-pas), j'essayerais de voir comment cet objet est vu par VB.
14/03/2007, 15h27
BGC_Laurent
Merci AlainTech pour la réponse . J'ai essayé :
Code:

1 2 3 aa = "20060324144643" Dim cc As Variant cc = myClass.GetListagent_ByTime(aa)
Cela me redonne :

Citation:

Invalid procedure call or argument

A+
14/03/2007, 15h32
AlainTech

Enlève le myClass.
14/03/2007, 15h45
BGC_Laurent

En fait , le myClasse est ma classe de référence que je déclare au début :

Dim myClass As New Login_IRO .

Login_IRO étant le nom de la classe référencée .

Thx

Laurent
14/03/2007, 16h05
ThierryAIM

serait-ce trop demander que d'avoir le code VB6 complet en une seule fois, et entre balise de code !!!!!!!!!!!!!!
On n'est pas là pour jouer aux devinettes, ni au jeu de piste !!

Sorry ,

voici :

Partie VB6 :

Code:

1
2
3
4
5
6
7
Private Sub cmdListeTime_Click()
  Dim myClass As New Login_IRO
  Dim aa As String
  aa = "20060324144643" 
  Dim cc As Variant
  cc = GetListagent_ByTime(aa)    '----c'est là qu'il bloque...
End Sub

Classe sous VB.Net :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
Public Function GetListAgent_ByTime(ByVal myValue As String) As ArrayList
 
Private _List As New ArrayList
Dim QuerySearchByTime As String
Dim DBCon As New MySqlConnection(_DatabaseConnectionString)
 
        Try
            DBCon.Open()
        Catch
            If DBCon IsNot Nothing Then
                DBCon.Dispose()
            End If
            Return _List
        End Try
 
        ' construit la query
        QuerySearchByTime = "SELECT DISTINCT imr_per_id , imr_gsm "
        QuerySearchByTime += "FROM planning "
        QuerySearchByTime += " WHERE (time =  " & myValue.ToString & ") "
        QuerySearchByTime += " ORDER BY imr_per_id"
 
        'Crée un Objet Command + Objet Reader
        Dim DBCommand As New MySqlCommand(QuerySearchByTime, DBCon)
        Dim DBReader As MySqlDataReader
 
        ' exécute le reader et place le résultat dans la liste préalablement vidée ...
        Try
            DBReader = DBCommand.ExecuteReader()
            _List.Clear()
            Do While DBReader.Read
                _List.Add((DBReader.GetValue(0).ToString) & " - " & (DBReader.GetValue(1).ToString))
            Loop
            DBReader.Close()
        Catch Ex As Exception
 
        End Try
 
        DBCommand.Dispose()
 
        'ferme la connection si elle existe ...
        If DBCon IsNot Nothing Then
            DBCon.Dispose()
        End If
 
        'termine
        Return _List
    End Function

Merci

Laurent

14/03/2007, 16h22
ThierryAIM

j'y crois pas :?

Citation:

Dernière modification par ThierryAIM Aujourd'hui à 17h21. Motif: Balises de code : c'est le bouton # au dessus de la zone d'édition !

:mouarf:
04/04/2007, 11h08
BGC_Laurent

Voici une solution qui pourrait aider d'autres personnes :

http://msdn2.microsoft.com/en-us/lib...10(VS.71).aspx

J'espère format du message est correct cette fois-ci :P :P