Jump to content
Sign in to follow this  
Chamuanza

Colocar Select em Datagridview

Recommended Posts

Chamuanza

Oi Pessoal

Estou a utilizar este codigo para fazer um select, mas não sei como o meter na Datagrid

Private Sub SelecionarNumerosSemana()


        ' Texto de ligação à base de dados 
        Dim myConnectionString As String = _
        "Data Source=.\SQLEXPRESS;AttachDbFilename='D:\ProjectoTotoMilhoes\TotoMilhões\GuardarResultados.mdf';" & _
          ";Integrated Security=True;User Instance=True"

        ' Selecção à  tabela "MyTable" em que o campo "username" 
        ' será passado através de parâmetros posteriormente 
        Dim SQL As String = "SELECT * FROM JogadosEuromilhoes WHERE [Data] = @Data"

        ' Cria uma nova ligação à base de dados 
        Dim connection As New SqlConnection(myConnectionString)

        ' Criação do comando indicando a instrução e a ligação 
        Dim command As New SqlCommand(SQL, connection)

        ' Indicação dos parâmetros da selecção 
        command.Parameters.Add("@Data", SqlDbType.DateTime).Value = DataSorteio

        ' Abre a ligação 
        connection.Open()

        ' Executa o comando colocando num SqlDataReader os resultados 
        Dim reader As SqlDataReader = command.ExecuteReader()

        ' Caso existam rows (linhas) 
        If reader.HasRows Then

            ' Executa um ciclo nas linhas existentes mostrando o campo “username” 
           ' While reader.Read()
           '     Debug.WriteLine(reader.Item("Data"))
           ' End While

        ' Fecha a ligação e limpa as variáveis 
        connection.Close()
        connection = Nothing
        command = Nothing





    End Sub

Share this post


Link to post
Share on other sites
Chamuanza

O que me falta ou está errado neste codigo para que o resultado apareça na Datagrid uma vez que existem registos na tabela com a data do select

 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        'SELECT sobre Apostas para Sortear



        ' Declaração de variáveis privadas
        Dim da As SqlDataAdapter
        Dim ds As DataSet

        DataSorteio = DataDateTimePicker.Value


        'Dim DataSorteio As New DateTime(DataDateTimePicker.Value.Year, DataDateTimePicker.Value.Month, DataDateTimePicker.Value.Day, 23, 59, 59)



        ' Texto de ligação à base de dados
        Dim myConnectionString As String = _
        "Data Source=.\SQLEXPRESS;AttachDbFilename='D:\ProjectoTotoMilhoes\TotoMilhões\GuardarResultados.mdf';" & _
          ";Integrated Security=True;User Instance=True"


        ' Cria uma nova ligação à base de dados
        Dim connection As New SqlConnection(myConnectionString)

        Dim SQL As String = "SELECT * FROM JogadosEuromilhoes WHERE Data = '" & DataSorteio & "'"


        da = New SqlDataAdapter(SQL, connection)

        ' Cria um novo DataSet, ou seja, uma representação em memória da informação
        ds = New DataSet

        ' Coloca a informação da tabela definida no DataSet
        da.Fill(ds, "JogadosEuromilhoes")

        ' Define que a fonte de dados da DataGridView é a nossa DataSet
        ' criando automáticamente as colunas e linhas de dados
        Me.DataGridView1.DataSource = ds.Tables("JogadosEuromilhoes")

        ' Limpa a ligação à base de dados. Não é necessário fechar a ligação
        ' porque esta não foi aberta através do comando .Open()
        connection = Nothing


    End Sub

Share this post


Link to post
Share on other sites
Caça

Se na tua consulta não vais utilizar um parâmetro para passar a data, tens de a indicar como yyyy-MM-dd. Actualmente estás a passa-la como dd-MM-yyyy, dai ele não trazer registos


Pedro Martins

Não respondo a duvidas por PM

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.