Une requete SQL

Version imprimable

Une requete SQL

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:

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

Salut,

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

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:

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

Code:

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?

23/03/2011, 12h30
oami89

J'ai aucun message erreur
23/03/2011, 12h31
oami89
Citation:
Envoyé par hunteshiva

Code:

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é
23/03/2011, 12h33
hunteshiva

okay...

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

Code:

Me.cat.Text = dst.Tables("t").Rows(0).Item(0).ToString
23/03/2011, 12h40
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.
23/03/2011, 12h45
hunteshiva
Citation:
Envoyé par zebrette

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

Code:

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

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

Code:

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

il M'affiche ce message d'erreur

Citation:

Aucune ligne à la position 0.
23/03/2011, 12h52
oami89

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

Citation:

Aucune ligne à la position 0.
24/03/2011, 03h02
oami89

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