Discussion :

[oami89]

Bonjour,
J'ai une table SQL (CLIENT) qui contient 2 colonnes de type string "NOMSOC" et "CATCLI".et j'ai insérer 2 textbox (nom,cat).
je veux affecter la CATCLI à cat.text du NOMSOC taper dans nom.text.
j'ai essayé avec le code si dessous que je pense qu'il est juste mais il m affiche l'erreur suivant: Aucune ligne à la position 0.
aider moi s'il vous plais je suis bloqué.

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
Private Sub nom_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles nom.KeyDown
 
        If e.KeyCode = Keys.Enter Then
 
 
            '**********************importer catégorie client
 
 
            Dim dst As New DataSet
            ' table=inserer la table que vous vouller 
            Dim adpt As New SqlDataAdapter("select A.CATCLI from [Base-Ets-Mtiri].[dbo].[CLIENT] A  where A.NOMSOC='" & Me.nom.Text & "'", con)
            'MsgBox(Me.nom.Text)
            adpt.Fill(dst, "t")
            ''table(1)=table("nom table") 
            '' item(0)=item(indice ou ce trouve la colone) 
            Dim i As Integer
            For i = 0 To dst.Tables("t").Rows.Count - 1
                Me.cat.Text = dst.Tables("t").Rows(0).Item(0) & vbCrLf
 
            Next
end if
end sub

[zebrette]

Salut,

vérifie déjà que l'espace dans le nom ne gène pas:

Code :

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

1
2
... Me.nom.Text & " ' ", con)...

Ensuite pour de petite requete peut etre devrais tu utiliser un DataReader plutot qu'un DataAdapter; les dataadapter son plus adaptés au remplissage de datagridview que de textboxes isolées.

ca donnerait

Code :

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

1
2
3
4
5
6
7
8
 
        Dim Cmd As New SqlCommand("TaRequeteSelect", Con)
        Con.Open()
        Dim SqlReader As SqlDataReader = Cmd.ExecuteReader
        SqlReader.Read 'lit la première ligne du reader
        textBox.text = oSqlReader.Item(i) 'ou i est la position du champ  dans le resultat de la requete a priori, 0.
        SqlReader.Close()
        Con.Close()

est ce que tu obtiens un message d'erreur sinon? quel est il?

Zebrette

[oami89]

J'ai aucun message erreur

[hunteshiva]

vérifie déjà que l'espace dans le nom ne gène pas:

Code :

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

1
2
... Me.nom.Text & " ' ", con)...

Zebrette

alors c'est que zebrette avait touché la ou il fallait
à la fin de ta requette il te faut "'" et non " ' "

Code :

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

Dim adpt As New SqlDataAdapter("select A.CATCLI from [Base-Ets-Mtiri].[dbo].[CLIENT] A  where A.NOMSOC='" & Me.nom.Text & "'", con)

[oami89]

J' ai supprimer les espace mais la meme chose il m'affiche l'erreur suivant:

Aucune ligne à la position 0.

[oami89]

il M'affiche ce message d'erreur

Aucune ligne à la position 0.

[oami89]

Même erreur après le changement des apostrophes pour la proposition de hunteshiva

[hunteshiva]

Code :

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

1
2
3
4
            For i = 0 To dst.Tables("t").Rows.Count - 1
                Me.cat.Text = dst.Tables("t").Rows(0).Item(0) & vbCrLf
 
            Next

Pourquoi faire un For si tu ne t'en sert pas...

normalement tu a le premier élément de ta colonne 0 avec ce code, nn?

[oami89]

Code :

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

1
2
3
4
            For i = 0 To dst.Tables("t").Rows.Count - 1
                Me.cat.Text = dst.Tables("t").Rows(0).Item(0) & vbCrLf
 
            Next

Pourquoi faire un For si tu ne t'en sert pas...

normalement tu a le premier élément de ta colonne 0 avec ce code, nn?

J'ai supprimé le for l'ajouter j'ai tous essayé

[hunteshiva]

okay...

juste pour voir si ton code fonctionne,
essaye de remplacer ta boucle For par ça

Code :

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

Me.cat.Text = dst.Tables("t").Rows(0).Item(0).ToString

[oami89]

J'ai tous essayé mais ca ne marche pas.
si je remplace le nom.text dans la requête avec un nom de la base ca fonctionne mais si je met le nom.text ca ne marche pas.