resultat d'une requête select dans un textbox

Version imprimable

20/09/2009, 13h53
ciara

resultat d'une requête select dans un textbox

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 :?
20/09/2009, 14h44
Danyel

Code:

textbox.text = (resultatrequete + 1).tostring

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

Code:

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

20/09/2009, 15h56
Pol63
il faut utiliser un sqldatareader (pas de datatable, pas de dataview, pas de dataadapter)
Code:

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 ...

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

Code:

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 ! :?

20/09/2009, 18h00
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:

TextBox5.Text = command.executescalar.tostring

merci bien :ccool:
voila la version finale :ccool:

Code:

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