Discussion :

[K2007]

Bonjour
je voudrais savoir comment extraire toutes les données d'un champs multiligne se trouvant dans une table access.(req SQL)
mon programme est en VB6.
Le problème c quand je fais un SELECT et en filtrant selon le nom de mon champ il n'en prendra que le premier.
EXP:
ch1 ch2 ch3 ch4 ch5 ch6
a v1 v2 v3 v4 v5
a v6 v7 v8 v9 v10
a v11 v12 v13 v14 v15
b x
c t
à chaque TextBox de ma forme, il faut que je lui associe le résultat de la rerquête en filtrant sur ch1.
Donc par exemple il faut faire apparaître à la fin de l'exécution TextBox1.Text=v1 , TextBox2.Text=v2..

Le probl se réside en fait dans la forme de la requête que je dois introduire.



MERCI

[Delbeke]

A ma connaissance il n'existe pas de champs multiligne dans access. A la limite, des champs memo. Est ce de cela dont tu parles ?
Essaye d'expliquer, parce que ma boule de cristal est maheuresment tombée par terre et a volé en eclats.

[Invité]

Bonjour

Peux-tu déjà nous montrer ta requête SQL ?

De plus je ne comprends pas, tu parles de filtrer sur le nom du champ on filtre sur une valeur dans un champ.

Un peu plus d'explications et de détails sont nécessaires, car comme le dit Delbeke, la boule de cristal est cassée.

Starec

[K2007]

Bonjour
voilà le problème

pour simplifier, j'ai 4 champs
CELL VOISINE BCCH TYPE
12 10 1 2
12 11 5 4
12 13 6 7
18 20 21 9

j'ai des textbox dans ma forme et je voudrais extraire dans chaque textbox les voisines
ma requête est

Code :

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

Select VOISINE from [ma table] where CELL '"&combobox1.text&"'

où combobox1.text représente le nom de ma cellule qui est par exemble 12.
la sortie ne m'affiche que le premier ligne:"12 10 "
donc je voudrais savoir comment éditer mon code de façon à ce que à chaque textbox je reçois le numéro de la voisine.

[K2007]

Je voudrais si c possible poser une question,
qu'est ce que memo

[Delbeke]

Un champ de type memo peut contenir un texte d'(une longeur supérieure à 255 caractères.
Voici ce qu'indique l'aide vb sur les type de données d'un champs de base de données

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
Field, types de données
 
Le tableau suivant fournit la liste des types de données Field.
 
Type de données DAO Field Constante 
 
Big Integer               dbBigInt 
Binary                     dbBinary 
Boolean                   dbBoolean 
Byte                       dbByte 
Char                       dbChar 
Currency                 dbCurrency 
Date/Time               dbDate 
Decimal                   dbDecimal 
Double                    dbDouble 
Float                      dbFloat 
GUID                      dbGUID 
Integer                   dbInteger 
Long                      dbLong 
Long Binary (OLE Object) dbLongBinary 
Memo                    dbMemo 
Numeric                 dbNumeric 
Single                    dbSingle 
Text                      dbText 
Time                      dbTime 
TimeStamp              dbTimeStamp 
VarBinary                dbVarBinary

Par ailleurs ce que tu essaye de faire n'est pas très coherent. La requete que exécute va renvoyer un recordset contenant plusieurs reponse. Dans l'exemple que tu donnes, il y en aura trois, mais en fait au départ, tu ne sais pas combien il y en aura. Donc , je ne vois pas comment tu peux placer ces résultats dans un nombre pré-déterminé de textboxes.

Ce qu'il est possible de faire par contre, c'est d'utiliser un seul textbox multilignes . Quelque chose du genre

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
Private Sub Command1_Click()
  Dim Sql As String
  Text1.Text = ""
  Sql = "Select VOISINE from [ma table] where CELL = '" & combobox1.Text & "' "
  Data1.RecordSource = Sql
  Data1.Refresh
  If Data1.Recordset.RecordCount = 0 Then
    MsgBox "Pas de réponse"
    Exit Sub
  End If
  Do While Not Data1.Recordset.EOF
    Text1.Text = Text1.Text & Data1.Recordset("VOISINE") & vbCrLf
    Data1.Recorset.MoveNext 'lit la réponse suivante
  Loop
End Sub