Imports System.Data.SqlClient
Imports System.Data.OleDb

Public Class check_tweet

    Private str_conn As New String("Data Source=PC-CYPHER\;Initial Catalog=tweet;Integrated Security=SSPI")
    Private conn As New SqlConnection(str_conn)

    Private Sub btn_check_connection_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_check_connection.Click
        Try
            conn.Open()
            loadTable()
        Catch
            MsgBox("Connessione Fallita")
        Finally

        End Try
    End Sub

    Private Sub loadTable()

        Dim conn As New SqlClient.SqlConnection(str_conn)
        Dim query As New String("SELECT * FROM dbo.tweet")
        Dim dt As New DataTable()
        Dim ds As New DataSet()
        Dim da As New SqlDataAdapter(query, conn)

        conn.Open()
        da.Fill(dt)
        ds.Tables.Add(dt)
        da.Dispose()
        grid_result.AutoGenerateColumns = True
        grid_result.DataSource = ds.Tables("dbo.tweet").DefaultView
        conn.Close()
    End Sub
End Class