Discussion :

[splouf]

bonjour,

Alors je suis entrain de développer dans une architecture client-réseau. Je dois obligatoirement utiliser une base de données. J'utilise aussi les winsock pour créer une connexion entre deux pc, puis pour envoyer des données.

Je dois donc créer une liste de données ayant les données de la bdd, puis l'envoyer sur le client, mais je n'arrive pas à faire cela, pusique je ne sais pas comment faire en sorte que le serveur chaque données de la bdd au client ...

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Set nomfich = New Recordset
    req = "select Nom_fichier from fichier order by Nom_fichier desc"
    nomfich.Open req, conn, adOpenDynamic, adLockOptimistic
 
    Do Until nomfich.EOF
        nom = nomfich!Nom_fichier
        Winsock1.SendData nom
    Loop
nomfich.Close

Je sais que ce code ne renvoie pas tout, mais seulement la première donnée

Auriez une idée ?

merci

[splouf]

bon en fait ça me renvoie bien toutes les données, mais tout en ligne ... alors que je voudrais un nom par ligne dans ma liste

[Megaxel]

Dans ta boucle, tu dois passer à la ligne suivante de ton RecordSet, je crois.
Si tu ajoutes

Code :

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

nomfich.MoveNext

juste avant le Loop, ça change quoi?

[splouf]

j'ai rajouté cela, mais bon c'est tout sur la même ligne.

j'ai pensé passer par un tableau, mais bon ça ne fonctionne pas, voila ce que j'avais mis :

du côté du serveur :

l'envoi des noms :

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
 
Sub envoi_nom()
i = 0
Set nomfich = New Recordset
        req = "select Nom_fichier from fichier order by Nom_fichier desc"
        nomfich.Open req, conn, adOpenDynamic, adLockOptimistic
 
        Do Until nomfich.EOF
            n(i) = nomfich!Nom_fichier
            Winsock1.SendData n(i) & vbCrLf
            i = i + 1
            nomfich.MoveNext
        Loop
 
nomfich.Close
End Sub

Et du côté du client , j'ai essayé de travailler avec un tableau :

réception des noms :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData nbr
 
For i = (0) To (nbr)
 
Winsock1.GetData n(i)
 
List1.AddItem n(i)
Next
End Sub

il y a une erreur "indice en dehors de la plage"

[Megaxel]

Je suis d'accord avec toi, c'est au niveau de la réception que winsock doit concaténer les lignes que tu envoies.
Je te propose d'ajouter un séparateur à chaque morceau envoyé, et côté utilisateur, tu fais un Split( ) sur ton résultat.
Non?

[splouf]

je vais essayer de voir ça, mais seulement cette après-midi, puisque je suis à l'école

[Megaxel]

Quelle école?
Celle de la vie?

[splouf]

bon j'ai mis une virgule à chaque fin d'envoi, puis lors de la réception j'ai mis cela :

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
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData nbr
 
For i = (0) To (nbr)
 
Winsock1.GetData n(i)
 
montab = Split(n(i), , ",")
 
For o = (0) To (nbr)
List1.AddItem montab(o)
Next
 
Next
End Sub

Je ne sais pas si faire deux "for" est judicieux ... Sinon "montab" est un tableau (cela vient d'un exemple) mais lorsque je lance mon application, on me dit que c'est impossible d'affecter au tableau "montab" ... Je ne sais pas remédier à ce problème. Si il faut d'autres bouts de code, dites le moi