ivofbento

Boa noite! Estou com uma questão que ainda não consegui resolver e espero que possam me ajudar. Na página principal eu mostro os aniversariantes do mês, até ai beleza só que mostra a data completa no formato do Bando Dados MySQL (YYYY-mm-dd) e eu queria mostrar apenas o dia. Estou usando PHP+MySQL-PDO-MVC segue os códigos para analise de vocês: código => nive.class.php class Niver extends Conexao { private $assoc_nome, $assoc_dt_nasc, $assoc_secao; /** * Chama o construtor da classe pai */ function __construct() { parent::__construct(); } /** * Busca todos Associados */ function GetAssociados() { $query = " SELECT * FROM associados "; $this->ExecuteSQL($query); $this->GetLista(); } /** * Busca Aniversariantes do mês */ function GetAssociadosDTNASC() { $mes = date("m"); //$dia = date("d"); $query = "SELECT *, DAY(assoc_dt_nasc) FROM associados WHERE MONTH(assoc_dt_nasc) = '$mes'"; $this->ExecuteSQL($query); $this->GetLista(); } /** * Fazendo a listagem dos dados retornados */ private function GetLista() { $i = 1; while ($lista = $this->ListaDados()): $this->itens[$i] = array( 'assoc_id' => $lista['assoc_id'], 'assoc_nome' => $lista['assoc_nome'], 'assoc_dt_nasc' => $lista['assoc_dt_nasc'], 'assoc_secao' => $lista['assoc_secao'], ); $i++; endwhile; } } ===================================================================================================================== código => nive.php <?php // Objeto do template $smarty = new Template(); // Cria a SESSION Niver $Niver = New Niver(); // Método que pega os aniversariantes $Niver->GetAssociadosDTNASC(rotas::$pag[1]); $smarty->assign('GET_TEMA', rotas::get_SiteTEMA()); $smarty->assign('DNIVER', $Niver->GetItens()); // Chama o template $smarty->display('niver.tpl'); ====================================================================================================================== código => nive.tpl {foreach from=$DNIVER item=D} <div class="card-body"> <ul class="list-group"> <li class="list-group-item d-flex justify-content-between align-items-center"> <span class="badge badge-success badge-pill">{$D.assoc_dt_nasc}</span> <span>{$D.assoc_nome}</span> <span>{$D.assoc_secao}</span> </li> </div> {/foreach} ======================================================================================================================== Agradeço qualquer ajuda possível. Grato! Ivo

Boa tarde pessoal. Estou tentando uma instrução no datagridview com checkbox onde ao marcar um item (sendo máximo 3 itens) na lista que vem do banco de dados, o código deste item seja transportado para o txtbox1; se for marcado um segundo, seja colocado no textbox2; se for marcado um terceiro, seja colocado no textbox3 e se for desmarcado o mesmo seja apagado do textbox correspondente. Segue abaixo o que eu consegui fazer até agora mais entalei aqui: ============================================================================== Private Sub dgv1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv1.CellClick dgv1.Rows(e.RowIndex).Cells(0).Value = Not _ dgv1.Rows(e.RowIndex).Cells(0).Value For Each dr As DataGridViewRow In dgv1.Rows If dr.Cells(0).Value IsNot Nothing Then Dim msg As String Dim title As String Dim style As MsgBoxStyle Dim response As MsgBoxResult 'Faz checagem de seleção - se for marcado solicita confirmação If e.ColumnIndex <> 0 Then Exit Sub Else msg = "Confirma a seleção destes objetivos?" ' Define a mensagem. style = MsgBoxStyle.DefaultButton2 Or MsgBoxStyle.Critical Or MsgBoxStyle.YesNo title = "AGE-Programação - Objetivos Pessoais" ' Define título. ' Display da mensagem. response = MsgBox(msg, style, title) If response = MsgBoxResult.Yes Then ' O usuário escolheu Sim. ' Executar a ação. For i As Integer = 0 To dgv1.Rows.Count - 1 If Convert.ToBoolean(dgv1.Rows(i).Cells(0).Value) Then mtxtOBJprg1.Text = dgv1.Rows(i).Cells(2).Value.ToString() End If If Convert.ToBoolean(dgv1.Rows(i).Cells(0).Value) Then mtxtOBJprg2.Text = dgv1.Rows(i).Cells(2).Value.ToString() End If If Convert.ToBoolean(dgv1.Rows(i).Cells(0).Value) Then mtxtOBJprg3.Text = dgv1.Rows(i).Cells(2).Value.ToString() End If Next MsgBox("Seleção feita com sucesso.", MsgBoxStyle.Information, "INFORME") Else ' Cancelar ação. Exit Sub End If End If End If Next End Sub ============================================================================== Espero que possam me ajudar. Desde já agradeço a atenção.