Discussion :

[ciara]

bonjour
je veux afficher le resultat d'une requête select dans un textbox
sachant qu'e cette requete me donne un chiffre c'est le max des ID (colonne dans ma table) ..et je veux l'incrementer avant de l'afficher dans ce textbox

[Danyel]

Code :

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

textbox.text = (resultatrequete + 1).tostring

[ciara]

mais c'est quoi resultatrequete??
est ce la requete elle meme ?!
sinon comment l'obtenir

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
Dim connectString As String = My.Settings.ONEConnectionString
        Dim connection As New System.Data.SqlClient.SqlConnection(connectString)
        Dim command As New System.Data.SqlClient.SqlCommand("SELECT max(DI) FROM programme ", connection)
        Dim dt As New DataTable
        Dim adpt As New Data.SqlClient.SqlDataAdapter(command)
        Try
 
 
            connection.Open()
                       adpt.Fill(dt)
 
        Finally
            connection.Close()
        End Try
 
 
    End Sub

J'ai fait les memes etapes comme si j'ai un datagrid view mais je sais pas comment remplacer le remplissage de datagridview par celui du textebox

[Pol63]

il faut utiliser un sqldatareader (pas de datatable, pas de dataview, pas de dataadapter)

Code :

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

1
2
3
 
dim r as sqldatareader
r = cmd.executereader

si le but d'afficher ce nombre c'est pour faire l'insert ensuite, il existe des champs auto incrément dans les bases de données ...

[ciara]

j'ai fait une combinaison entre ce que j'avais et ca
voila mon code maintenant

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
Dim connectString As String = My.Settings.ONEConnectionString
        Dim connection As New System.Data.SqlClient.SqlConnection(connectString)
        Dim command As New System.Data.SqlClient.SqlCommand("SELECT max(NI) FROM programme ", connection)
 
        Dim r As Data.SqlClient.SqlDataReader
 
    Try
            connection.Open()
            r = command.ExecuteReader
           TextBox5.Text = (r).ToString
 
  Finally
            connection.Close()
        End Try
 
 
    End Sub

mais dans le textbox j'ai cette valeur "System.Data.SqlClient.SqlDataReader"
et non pas le nombre voulu !

[Pol63]

au lieu d'essayer d'écrire quelque chose, prend plutot un peu de temps pour appuyer sur la touche F1 sur le datareader

il sert à rapatrier des données donc avec plusieurs lignes et plusieurs colonnes


si tu veux pas t'embeter à lire, tu peux faire et/ou que tu veux faire plus simple :

Code :

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

TextBox5.Text = command.executescalar.tostring

[ciara]

merci bien
voila la version finale

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 Dim command As New System.Data.SqlClient.SqlCommand("SELECT max(NI) FROM programme ", connection)
 
        Dim r As String
 
          Try
       connection.Open()
            r = command.ExecuteScalar.ToString
            TextBox5.Text = (r + 1)
        Finally
            connection.Close()
        End Try