• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Luis Marques

Pesquisa atravez da data

3 mensagens neste tópico

Boas,

Estou a fazer uma pesquisa através da data, não está a dar erro nem nada, mas nao me preenche os campos da datagridview, aparece em branco.

Estou a usar este codigo:

        Dim db As New OleDbConnection(pap.My.Settings.ligacaoBD)

        ' LIGAR A BD

        db.Open()

        ' ACESSO AOS DADOS

        Dim comandosql = "Select id_encomenda, id_cliente, data,descricao,responsavel_pd,total from encomenda where data = " + DataDateTimePicker.Value

        Dim cmd As New OleDbCommand(comandosql, db)

        Dim dtr As OleDbDataReader = cmd.ExecuteReader(CommandBehavior.CloseConnection)

        ' CRIAÇÃO DE COLUNAS NO DATAGRIDVIEW

        Dim num_campos As Integer

        Dim campo As String

        DataGridView1.Columns.Clear()

        num_campos = dtr.FieldCount

        For idx = 0 To num_campos - 1

            campo = dtr.GetName(idx)

            DataGridView1.Columns.Add(campo, campo)

        Next

        ' CARREGAR OS DADOS

        Dim idx_linha As Integer

        idx_linha = 0

        While dtr.Read()

            Dim linha As New DataGridViewRow()

            DataGridView1.Rows.Add(linha)

            DataGridView1.Rows(idx_linha).Cells(0).Value = dtr.Item(0)

            DataGridView1.Rows(idx_linha).Cells(1).Value = RTrim(dtr.Item(1))

            DataGridView1.Rows(idx_linha).Cells(2).Value = RTrim(dtr.Item(2))

            DataGridView1.Rows(idx_linha).Cells(3).Value = RTrim(dtr.Item(3))

            DataGridView1.Rows(idx_linha).Cells(4).Value = RTrim(dtr.Item(4))

            DataGridView1.Rows(idx_linha).Cells(5).Value = RTrim(dtr.Item(5))

            idx_linha = idx_linha + 1

        End While

        ' AJUSTE DAS COLUNAS DO DATAGRIDVIEW

        DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells

        ' FECHAR A BD

        dtr.Close()

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

faz o teste so com este codigo  --ignora o teu

Dim db As New OleDbConnection(pap.My.Settings.ligacaoBD)

Dim comandosql = "Select id_encomenda, id_cliente, data,descricao,responsavel_pd,total from encomenda where data = " + DataDateTimePicker.Value

  ' LIGAR A BD

  db.Open()

Dim sqlDa as New SqlDataAdapter(comandosql , db )

Dim dt as new DataTable

sqlDa.Fill(dt)

DataGridView1.DataSourse = dt

db.Close()

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

o problema nao e esse... no access a pesquisa por data tem que ser:  #data aqui no meio#

mas pergunta ao google sobre pesquisa sobre datas em access

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora