valeur requete sql dans textbox

Version imprimable

bonjour
je souhaites récupérer la valeur de ma requête dans un texbox

Code:

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
 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
 
        ConnSQL.ConnectionString = "Data Source=DESKTOP-KBC80U4\SQLEXPRESS;Initial Catalog=ScadaNetDb1;Integrated Security=SSPI"
        ConnSQL.Open()
 
        sqlSelect = " SELECT sum(T1.INF_Value)  FROM  dbo.View_ArchivedInformations  As T1 " _
            & "  WHERE ((T1.STA_SiteNumber = 14 Or T1.STA_SiteNumber = 15 Or T1.STA_SiteNumber = 16 )And T1.INF_NumberInStation < 49) " _
            & " And T1.INF_Date = (Select MAX(S1.INF_Date)  FROM dbo.View_ArchivedInformations As S1     WHERE S1.ID = T1.ID  )"
 
 
 
        Dim dt As New DataTable
 
        Dim oSqlDataAdapter As New SqlDataAdapter(sqlSelect, ConnSQL)
        oSqlDataAdapter.Fill(dt)
        'MsgBox(dt)
        DataGridView1.AutoGenerateColumns = True
        DataGridView1.DataSource = dt
        DataGridView1.Refresh()
 
        'ReadSQL.Close()
        ConnSQL.Close()
 
        cnx.open()
 
 
    End Sub

sans passer par un datagridview

merci de vote aide

18/10/2020, 22h52
Phil Rob

Bonsoir
Les résultats de la requête sont dans le DataTable dt.
Ce DataTable contient des Rows qui contiennent des Items accessibles par leurs noms, ceux-ci sont les noms des champs de ta requête.
Je pourrai te chercher un exemple demain si nécessaire.
Bonne nuit ...
19/10/2020, 01h18
cisco38

oui j'avais compris ceci mais comment recuperer le row ou l item du td

merci déjà pour la réponse

Bonjour,

Voici des codes qui devraient te donner des idées ...

Code:

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
 
 
' Pour parcourir un DataTable :
 
        For R As Integer = 0 To dt.Rows.Count - 1
            MessageBox.Show(dt.Rows.(R).Item("NomDuChamp") & "  " &  dt.Rows.(R).Item("NomDUNAutreChamp" ... ... ...)
        Next
 
 
'*** Mais ta requête cherche seulement une somme et retourne donc une seule valeur.
 
' Dans ce cas, le code suivant devrait suffire :
 
 
         ConnSQL.ConnectionString = "Data Source=DESKTOP-KBC80U4\SQLEXPRESS;Initial Catalog=ScadaNetDb1;Integrated Security=SSPI"
         ConnSQL.Open()
         Dim MaCommande As new SqlCommand.CreateCommand()	
         MaCommande.CommandType = CommandType.Text	
         MaCommande.CommandText = " SELECT sum(T1.INF_Value)  FROM  dbo.View_ArchivedInformations  As T1 " _
            & "  WHERE ((T1.STA_SiteNumber = 14 Or T1.STA_SiteNumber = 15 Or T1.STA_SiteNumber = 16 )And T1.INF_NumberInStation < 49) " _
            & " And T1.INF_Date = (Select MAX(S1.INF_Date)  FROM dbo.View_ArchivedInformations As S1     WHERE S1.ID = T1.ID  )"
 
       Dim Somme As integer = MaCommande.ExecuteScalar()
 
       ConnSQL.Close()
 
 
' Mais si tu préfères utiliser le DataAdapter, alors il te faut lire le résultat dans le DataTable dt, composé ici d'une seule ligne d'un seul Item :
 
 
 
 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
 
        ConnSQL.ConnectionString = "Data Source=DESKTOP-KBC80U4\SQLEXPRESS;Initial Catalog=ScadaNetDb1;Integrated Security=SSPI"
        ConnSQL.Open()
 
        sqlSelect = " SELECT sum(T1.INF_Value)  FROM  dbo.View_ArchivedInformations  As T1 " _
            & "  WHERE ((T1.STA_SiteNumber = 14 Or T1.STA_SiteNumber = 15 Or T1.STA_SiteNumber = 16 )And T1.INF_NumberInStation < 49) " _
            & " And T1.INF_Date = (Select MAX(S1.INF_Date)  FROM dbo.View_ArchivedInformations As S1     WHERE S1.ID = T1.ID  )"
 
 
 
        Dim dt As New DataTable
 
        Dim oSqlDataAdapter As New SqlDataAdapter(sqlSelect, ConnSQL)
        oSqlDataAdapter.Fill(dt)
 
        MessageBox.Show(dt.Rows(0).Item(0))
 
        'MsgBox(dt)
 ''       DataGridView1.AutoGenerateColumns = True
 ''       DataGridView1.DataSource = dt
 ''       DataGridView1.Refresh()
 
 
        ConnSQL.Close()
 
 
    End Sub

J'espère que tu trouveras ton bonheur dans cet échantillonnage.

Très bonne journée,

:D

19/10/2020, 16h59
cisco38

merci a toi et bonne journéé