Pesquisar na Comunidade

Olá amigos. Estou tentando criar um ficheiro PDF a partir de uma tabela da BD. Para isto estou usando FPDF. Já consegui criar a tabela, mas precisava que após 25 linhas, fosse gerada uma nova página que continuasse com a impressão dos dados que vêm da tabela. Com o código que tenho neste momento a tabela é criada, mas após a linha 25 fica uma linha por página. Segue o meu código: <?php // Require composer autoload require '../pdf/fpdf.php'; $db = new PDO('XXXXXXXXXXXXXXXXXXXXXXXXX); class myPDF extends FPDF { public function header() { $db = new PDO(XXXXXXXXXXXXXXXXXXXXXX); $group = $db->query('select * from tbl_a WHERE ida=' . $_GET['idg']) ; $g2 = $group->fetch(PDO::FETCH_OBJ); $this->Image('../fimg/img.png', 10, 6, 50); $this->SetFont('arial', 'B', 16); $this->Cell(200, 25, 'TEXT', 0, 0, 'C'); $this->Ln(10); $this->Cell(200, 25, mb_convert_case(base64_decode($g2->gnome), MB_CASE_TITLE, 'UTF-8'), 0, 0, 'C'); $this->Ln(30); } public function footer() { $this->SetY(-10); $this->Image('../fimg/img2.png', 128, 265, 70); $this->SetFont('arial', '', 8); $this->Cell(0, 10, 'Page ' . $this->PageNo() . '/{nb}', 0, 0, 'C'); } public function headerTable() { $this->SetFont('arial', 'B', 11); $this->Cell(10, 10, 'No.', 1, 0, 'C'); $this->Cell(90, 10, 'Name', 1, 0, 'C'); $this->Cell(40, 10, 'PID', 1, 0, 'C'); $this->Cell(25, 10, 'Valid', 1, 0, 'C'); $this->Cell(25, 10, 'Birthday', 1, 0, 'C'); $this->Ln(); } public function viewtable($db) { $this->SetFont('arial', '', 10); $stmt = $db->query('select * from tbl2 WHERE id2=' . $_GET['idg']); $i = 1; while ($data = $stmt->fetch(PDO::FETCH_OBJ)) { $this->Cell(10, 8, $i, 1, 0, 'C'); $this->Cell(90, 8, mb_convert_case(base64_decode($data->nomegel), MB_CASE_TITLE, 'UTF-8'), 1, 0, 'L'); $this->Cell(40, 8, base64_decode($data->idcardgel), 1, 0, 'C'); $this->Cell(25, 8, $data->datavalidadegel, 1, 0, 'C'); $this->Cell(25, 8, $data->dnascimentogel, 1, 0, 'C'); $this->Ln(); if ($i>24){ $this->AddPage('P', 'A4', 0); }; $i++; } } } $pdf = new myPDF(); $pdf->AliasNbPages(); $pdf->AddPage('P', 'A4', 0); $pdf->headerTable(); $pdf->viewtable($db); $pdf->Output("List.pdf","I"); Desde já o meu obrigado. NOTA: Os dados do PDO foram ocultados e os nomes das tabelas e dos campos foram alterados, por razões de segurança.

Olá! Sou novo por aqui e preciso da ajuda de vocês. Estou criando uma planilha para uma igreja lançar seus dízimos e suas despesas. Criei um formulário de lançamentos e no código, há uma opção de pesquisar pelo número de lançamento e apagar aquele lançamento da pesquisa. O problema é que o código está apagando também o número de lançamento, que está na primeira coluna (A:A). Como fazer para apagar somente a partir do número de lançamento? Abaixo, o código que uso e um print do formulário com a planilha. Private Sub bt_excluir_Click() 'Declarar a variável Resp para receber uma resposta Dim Resp As Integer 'Fazer a busca do registro digitado pelo usuário With Worksheets("Saídas").Range("A:A") Set c = .Find(txt_lançamento.Value, LookIn:=xlValues, LookAt:=xlWhole) If Not c Is Nothing Then Resp = MsgBox("Tem certeza que deseja excluir o registro?", vbYesNo, "Confirmação") If Resp = vbYes Then c.Select ActiveCell.Delete Selection.EntireRow.Delete 'Limpar as caixas de texto txt_data.Value = Empty txt_empresa.Value = Empty txt_cnpj.Value = Empty txt_nf.Value = Empty txt_documento.Value = Empty txt_discriminação.Value = Empty txt_banco.Value = Empty txt_valor.Value = Empty txt_juros.Value = Empty txt_data.SetFocus Else MsgBox "O registro não será excluído!" End If Else MsgBox "Registro não excluído" End If End With Exit Sub End Sub Aguardo pela ajuda de vocês.

Olá! Sou novo por aqui e preciso da ajuda de vocês. Estou criando uma planilha para uma igreja lançar seus dízimos e suas despesas. Criei um formulário de lançamentos e no código, há uma opção de pesquisar pelo número de lançamento e apagar aquele lançamento da pesquisa. O problema é que o código está apagando também o número de lançamento, que está na primeira coluna (A:A). Como fazer para apagar somente a partir do número de lançamento? Abaixo, o código que uso e um print do formulário com a planilha. Private Sub bt_excluir_Click() 'Declarar a variável Resp para receber uma resposta Dim Resp As Integer 'Fazer a busca do registro digitado pelo usuário With Worksheets("Saídas").Range("A:A") Set c = .Find(txt_lançamento.Value, LookIn:=xlValues, LookAt:=xlWhole) If Not c Is Nothing Then Resp = MsgBox("Tem certeza que deseja excluir o registro?", vbYesNo, "Confirmação") If Resp = vbYes Then c.Select ActiveCell.Delete Selection.EntireRow.Delete 'Limpar as caixas de texto txt_data.Value = Empty txt_empresa.Value = Empty txt_cnpj.Value = Empty txt_nf.Value = Empty txt_documento.Value = Empty txt_discriminação.Value = Empty txt_banco.Value = Empty txt_valor.Value = Empty txt_juros.Value = Empty txt_data.SetFocus Else MsgBox "O registro não será excluído!" End If Else MsgBox "Registro não excluído" End If End With Exit Sub End Sub Aguardo pela ajuda de vocês.

eae pessoal .. beleza ??? é o seguinte...eu tenho um codigo que lista todas as marcas de protudos que meu site possui, e eu tenho produtos da mesma marca e eu gostaria de listar tudo e as marcas repetidas colocar do lado quantas vezes ela foi repetida..... eu meio que consegui fazer isso, mas deu um erro....ela mostra tudo certo mas as marcas repetidas tambem estao mostrando.. um exemplo é isso aki ó: 2 m-cavalo htc a23 g133 sades ruiq h-mobile 2 N/D 2 N/D Heacent DOOGEE 2 m-cavalo 3 Outros 3 Outros 3 Outros amkov o que eu qria fazer é manter isso...mas só fazer um codigo para que o que está sendo repetido seja mostrado apenas uma unica vez.. o codigo que eu tenho é esse: <?php // faz coneccao com o banco de dados include ("connect.php"); // faz coneccao com o banco e puxa todas as marcas registradas $fz_cnn = mysql_query("SELECT marca_prod FROM produtos"); while ($px_m = mysql_fetch_array($fz_cnn)) { $marca = $px_m ['marca_prod']; // armazena as marcas na $marca // verifica se existe duplicacao de marca $v_duplicacao = mysql_query("SELECT marca_prod FROM produtos WHERE marca_prod = '$marca' ") or die(mysql_error()); if (mysql_num_rows($v_duplicacao) > 1 ) { // se existir duplicacao mostra a quantidade que foi duplicado e deleta os duplicados $total = mysql_num_rows($v_duplicacao); echo $total; } ?> <!DOCTYPE html> <html> <head> </head> <body> <div> <?php echo $marca; ?> </div> </body> </html> <?php } ?>

Estou criando um sistema em VBA para cadastro de aluno. Estava pesquisando uma forma de quando excluir uma determinada linha da planilha Encontrei o seguinte código que eu modifiquei apenas fixando a coluna: Sub DeleteRowsWithWord() Dim Col As Variant, Word As String Let Col = "B" If Len(Col) > 0 And Not Col Like "*[!0-9]*" Then Col = Val(Col) Let Word = InputBox(" De qual aluno devo excluir os dados?") With Columns(Col) .Replace Word, "#N/A", xlWhole On Error Resume Next .SpecialCells(xlCellTypeConstants, xlErrors).EntireRow.Delete End With End Sub a minha duvida é a seguinte; Eu gostaria de quando o usuario clicar em ok para deletar a linha, aparece uma msgbox de confirmação, e se clicasse em cancelar aparecesse outra msgbox de cancelamento..e se possivel se ele não encontrar o nome pesquisando, ele informasse em outra msgbox. praticamente so falta isso para o meu projeto. se puder me ajudar nisso, seria de muita importancia para meu trabalho, agradeço desde já a atenção. Att Daniel Marcos

Por exemplo, o usuário informa o número 5 e então aparece 5 linhas na tela. Na verdade eu estava tentando usar o código abaixo mas não tem dado certo: Dim ContainerVectors(NVectors) As ShapeContainer Dim TheVector(NVectors) As LineShape ContainerVectors(NVectors).Parent = Me TheVector(NVectors).Parent = ContainerVectors(intNVectors - 1) For i = 1 To NVectors TheVector(i).StartPoint = New System.Drawing.Point(Xinicio,Yinicio) TheVector(i).EndPoint = New System.Drawing.Point(Xfim, Yfim)