Quantcast
Channel: Visual Basic Tips and Tricks
Viewing all articles
Browse latest Browse all 2212

Invio risultati query via mail

$
0
0

Salve, in un semplice progetto Windows form vorrei inviare alcuni record di una tabella tramite email... per ora sono solo riuscito a verificare che i record ci siano o meno... ma se volessi passare i risultati della query inserendo alcune colonne della query che metodo dovrei utilizzare?...

 

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim contratti As New SqlConnection("Server=localhost;Initial Catalog=sicura;Integrated Security=True")
        Dim searchQuery1 As String = "Select COUNT(Sicura.dbo.GEM_TESTACONTRATTO.IDCONTRATTO) As NumeroContratti, Sicura.dbo.GEM_TESTACONTRATTO.IDCONTRATTO
                            From Sicura.dbo.GEM_TESTACONTRATTO INNER Join
                            Sicura.dbo.ANAGRAFICACF ON Sicura.dbo.GEM_TESTACONTRATTO.CODCLIENTE = Sicura.dbo.ANAGRAFICACF.CODCONTO
                            Where (Sicura.dbo.GEM_TESTACONTRATTO.IdStato = 1) And (Sicura.dbo.ANAGRAFICACF.PARTITAIVA = '"& TextBox2.Text & "')
                            GROUP BY Sicura.dbo.GEM_TESTACONTRATTO.IDCONTRATTO"

        connection.Open()
        Dim command1 As New SqlCommand(searchQuery1, connection)
        Dim Rs As Integer = command1.ExecuteScalar()
        Dim msg As String = Rs.ToString
        MsgBox(msg)
        connection.Close()

    End Sub



Viewing all articles
Browse latest Browse all 2212