Discussion :

[BGC_Laurent]

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 :

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

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

[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.

[BGC_Laurent]

Merci AlainTech pour la réponse . J'ai essayé :

Code :

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

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

Cela me redonne :

Invalid procedure call or argument

A+

[AlainTech]

Enlève le myClass.

[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

[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 !!

[BGC_Laurent]

Sorry ,

voici :

Partie VB6 :

Code :

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

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 :

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

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

[ThierryAIM]

j'y crois pas

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

[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