C# / VB.NET - Formattazione datagrid

Forum - C# / VB.NET - Formattazione datagrid

dartraf (Normal User)
Pro

Messaggi: 71
Iscritto: 15/12/2005

Postato alle 21:08
Lunedì, 04/01/2010

Ciao a tutti,
sto realizzando un software in vb.net che accede a dati di un archivio access.
Devo caricare una query e mostrarne i risultati in una datagrid.
La query è

Codice sorgente - presumibilmente C# / VB.NET

"SELECT KEY, (CONTRATTO_NUM & CONTRATTO_ALFA) AS CONTRATTO, NUM_LAMPADE AS [NUMERO LAMPADE], (CANONEDA) AS MESE FROM CONTRATTI"

il mese pero è memorizzato come numero quindi sulla griglia mi esce 1 invece di Gennaio.
Come posso fare ad ottenere il nome del mese?

Per il resto utilizzo un OleDb.OleDbDataAdapter e un Dataset come fonte dati per la griglia

LittleHacker (Member)
Guru

Messaggi: 1033
Iscritto: 28/04/2009

Postato alle 21:18
Lunedì, 04/01/2010

Testo quotato

Postato originariamente da dartraf:

Come posso fare ad ottenere il nome del mese?

Utilizzi un'if e dici se il mese è = a 1 allora scrivi gennaio e è 2 scrivi febbraio etc... :k:

Alfonso (Ex-Member)
Guru

Messaggi: 688
Iscritto: 30/09/2009

Postato alle 0:02
Martedì, 05/01/2010

Casomai:

Dim Data As Date = "01/" & tuomese & "/2000"
MsgBox(Data.ToString("MMMM"))

Se vuoi sapere come deve essere la query per avere come risultato il nome del mese:

NomeDelMese(Canoneda) as mese

dove NomeDelMese è una function con le istruzioni precedenti adattate.

Ultima modifica effettuata da Alfonso il 05/01/2010 alle 9:42

dartraf (Normal User)
Pro

Messaggi: 71
Iscritto: 15/12/2005

Postato alle 12:51
Martedì, 05/01/2010

Forse non mi sono spiegato bene...un tipo esempio di record che esce da quella query è
CONTRATTO=3,NUMERO LAMPADE=10,MESE=2
andando a imporre alla datagrid come datasource il dataset mi trovo sulla griglia questi valori e quindi il mese scritto in numeri.
Invece vorrei il mese scritto in stringa quindi ho provato ad intervenire sulla query (ad esempio qlcs tipo "monthname") ma niente e quindi ho pensato che a runtime potessi impostare la formattazione della griglia in modo tale che quanto questa vede il numero 1 nella terza colonna ci associ il nome Gennaio.
Spero di essere stato chiaro cmq posto un po di codice

Codice sorgente - presumibilmente VB.NET

Dim dsDataset As New DataSet
        Dim dvVista As DataView
        Dim cnNW As New OleDb.OleDbConnection(strConnessioneClienti)
        Dim strSql As String = "SELECT KEY, (CONTRATTO_NUM & CONTRATTO_ALFA) AS CONTRATTO, NUM_LAMPADE AS [NUMERO LAMPADE], (CANONEDA) AS MESE FROM CONTRATTI"
        Dim daLettore As New OleDb.OleDbDataAdapter(strSql, cnNW)
 
        daLettore.Fill(dsDataset, "contratti")
        If dsDataset.Tables("contratti").Rows.Count <> 0 Then
            dvVista = dsDataset.Tables("contratti").DefaultView
            flxGriglia.DataSource = dvVista
            flxGriglia.Columns(0).Visible = False
        Else
            Me.Close()
        End If

LittleHacker (Member)
Guru

Messaggi: 1033
Iscritto: 28/04/2009

Postato alle 16:09
Martedì, 05/01/2010

X me è giusto il mio metodo cioè utilizzare un'if...Poi fate cm volete... :k:

Alfonso (Ex-Member)
Guru

Messaggi: 688
Iscritto: 30/09/2009

Postato alle 17:48
Martedì, 05/01/2010

A run time:
Ammesso che la colonna CanoneDa sia la terza

Codice sorgente - presumibilmente VB.NET

Private Sub DataGridView1_CellFormatting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles DataGridView1.CellFormatting
 
        If Me.DataGridView1.Columns(e.ColumnIndex).Index = 3 Then
 
            If e IsNot Nothing Then
                If e.Value IsNot Nothing Then
                    Try
                        e.Value = NomeDelMese(e.Value.ToString())
                        e.FormattingApplied = True
                    Catch ex As FormatException
                        Console.WriteLine("{0} is not a valid date.", e.Value.ToString())
                    End Try
                End If
            End If
 
        End If
 
    End Sub
 
    Private Function NomeDelMese(ByVal i As Integer) As String
 
        Dim Data As Date = "01/" & i & "/2000"
        NomeDelMese = (Data.ToString("MMMM"))
 
    End Function

Da query dovrebbe essere (però non ho modo di provarla):

"SELECT KEY, (CONTRATTO_NUM & CONTRATTO_ALFA) as CONTRATTO, NUM_LAMPADE as [NUMERO LAMPADE], NomeDelMese(CANONEDA) as MESE FROM CONTRATTI"

Sempre che CanoneDa sia un integer usando sempre la function precedente.

Ultima modifica effettuata da Alfonso il 05/01/2010 alle 18:08

dartraf (Normal User)
Pro

Messaggi: 71
Iscritto: 15/12/2005

Postato alle 13:36
Mercoledì, 06/01/2010

Grazie alfonso era quello che cercavo!

Il Totem (Admin)
Guru^2

Messaggi: 3635
Iscritto: 24/01/2006

Postato alle 17:36
Giovedì, 07/01/2010

Testo quotato

Postato originariamente da LittleHacker:

X me è giusto il mio metodo cioè utilizzare un'if...Poi fate cm volete... :k:

Un'if dove? E solo uno? E come lo integri a livello di query?

Le tue risposte sono sempre inconcludenti.