Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > it.comp.lang.visual-basic > #19712 > unrolled thread

Visual studio 2017 - Filtro datagridview

Back to article view | Back to it.comp.lang.visual-basic

Contents

  Visual studio 2017 - Filtro datagridview Marco75 <marcoporzi75@gmail.com> - 2020-03-05 03:01 -0800
    Re: Visual studio 2017 - Filtro datagridview Marco75 <marcoporzi75@gmail.com> - 2020-03-05 03:14 -0800

#19712 — Visual studio 2017 - Filtro datagridview

Ciao,
ho importato in VS2017 un progetto creato con una vecchia versione (mi sembra VS2008) ed ora non mi funziona più un filtro su datagridview...

di seguito il codice che popola il datagridview su load della maschera:

Private Sub CreaGriglia(ByVal NomeTab2 As String, ByVal Query As String, ByVal dgv As DataGridView)

        
        Dim cn2 As New OdbcConnection("DRIVER=SQL Server;SERVER=NomeServer;Uid=xxxx;Pwd=yyyy;DATABASE=miodatabase;")
        cn2.Open()

        Dim command2 As New OdbcCommand(Query, cn2)
        Dim da2 As New OdbcDataAdapter With {
            .SelectCommand = command2
        }

        Dim ds2 As New DataSet(NomeTab2)
        ds2.Clear()

        da2.Fill(ds2, NomeTab2)

        dgv.DataSource = ds2.Tables(NomeTab2).DefaultView
        'Combo.DisplayMember = "ID"

    End Sub

Private Sub FrmRicette_FlowChart_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

CreaGriglia("T_RicetteMacine2020", "Select ID, DataOra, Macina, Segmento, Ricetta, Valore1, Valore2, Valore3, Valore4, Valore5 From T_MiaTabella2020 order by DataOra Desc", dgvRicette2)

dove dgvRicette2 è la mia datagridview
End Sub

ora, io dovrei fare questo:
popolo 3 combo (Macina, Segmento, Ricetta)
su click di un pulsante devo eseguire una query che prende i dati dalle 3 combo e mi dovrebbe rendere un solo record in datagridview (cosa che ora non sta facendo). questo il codice che uso ora:

CreaGriglia("T_RicetteMacine2020", "Select ID, DataOra, Macina, Segmento, Ricetta, Valore1, Valore2, Valore3, Valore4, Valore5 From T_MiaTabella2020 where Macina ='" & Trim(CbMacina.Text) & "'" & "And Segmento ='" & Trim(CbSegmento.Text) & "'" & "And Ricetta ='" & Trim(CbRicetta.Text) & "'" & "order by DataOra Desc", dgvRicette2)

idee su cosa non funzioni?
grazie
Marco

[toc] | [next] | [standalone]

#19713

Il giorno giovedì 5 marzo 2020 12:01:16 UTC+1, Marco75 ha scritto:
> Ciao,
> ho importato in VS2017 un progetto creato con una vecchia versione (mi sembra VS2008) ed ora non mi funziona più un filtro su datagridview...
> 
> di seguito il codice che popola il datagridview su load della maschera:
> 
> Private Sub CreaGriglia(ByVal NomeTab2 As String, ByVal Query As String, ByVal dgv As DataGridView)
> 
>         
>         Dim cn2 As New OdbcConnection("DRIVER=SQL Server;SERVER=NomeServer;Uid=xxxx;Pwd=yyyy;DATABASE=miodatabase;")
>         cn2.Open()
> 
>         Dim command2 As New OdbcCommand(Query, cn2)
>         Dim da2 As New OdbcDataAdapter With {
>             .SelectCommand = command2
>         }
> 
>         Dim ds2 As New DataSet(NomeTab2)
>         ds2.Clear()
> 
>         da2.Fill(ds2, NomeTab2)
> 
>         dgv.DataSource = ds2.Tables(NomeTab2).DefaultView
>         'Combo.DisplayMember = "ID"
> 
>     End Sub
> 
> Private Sub FrmRicette_FlowChart_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
> 
> CreaGriglia("T_RicetteMacine2020", "Select ID, DataOra, Macina, Segmento, Ricetta, Valore1, Valore2, Valore3, Valore4, Valore5 From T_MiaTabella2020 order by DataOra Desc", dgvRicette2)
> 
> dove dgvRicette2 è la mia datagridview
> End Sub
> 
> ora, io dovrei fare questo:
> popolo 3 combo (Macina, Segmento, Ricetta)
> su click di un pulsante devo eseguire una query che prende i dati dalle 3 combo e mi dovrebbe rendere un solo record in datagridview (cosa che ora non sta facendo). questo il codice che uso ora:
> 
> CreaGriglia("T_RicetteMacine2020", "Select ID, DataOra, Macina, Segmento, Ricetta, Valore1, Valore2, Valore3, Valore4, Valore5 From T_MiaTabella2020 where Macina ='" & Trim(CbMacina.Text) & "'" & "And Segmento ='" & Trim(CbSegmento.Text) & "'" & "And Ricetta ='" & Trim(CbRicetta.Text) & "'" & "order by DataOra Desc", dgvRicette2)
> '" & Trim(CbMacina.Text) & "'" & "And Segmento ='" & Trim(CbSegmen
> idee su cosa non funzioni?
> grazie
> Marco

Aggiornamento... così funziona
CreaGriglia("T_RicetteMacine2020", "Select ID, DataOra, Macina, Segmento, Ricetta, Valore1, Valore2, Valore3, Valore4, Valore5 From T_MiaTabella2020 where Macina=" & CbMacina.Text, dgvRicette2)
appena cerco di aggiungere altri filtri non va più!

[toc] | [prev] | [standalone]

Back to top | Article view | it.comp.lang.visual-basic

csiph-web