castelo

Ola Amigos. Estou lutando para fazer um relatório no DataReport do VB6 funcionar como quero, porém não vai... o código é o seguinte: Set connSIGA2 = New Connection With connSIGA2 .CursorLocation = adUseClient .Open "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db\escola.mdb" & ";" End With Set rsSIGA = New Recordset Dim strSQL As String 'define o comando SHAPE ' TESTE strSQL = "SHAPE { " strSQL = strSQL & "SELECT tb_matricula.*, " strSQL = strSQL & " tb_matricula.numero as NumeroAluno," strSQL = strSQL & " tb_aluno.nome_aluno as NomeAluno," strSQL = strSQL & " tb_turma.turma as NomeTurma, " strSQL = strSQL & " tb_turma.turno as TurmaTurno, " strSQL = strSQL & " tb_serie.serie as NomeSerie, " strSQL = strSQL & " tb_graus.descricao as NomeGrau " strSQL = strSQL & " FROM" strSQL = strSQL & " ((((tb_matricula INNER JOIN tb_aluno ON tb_matricula.id_aluno = tb_aluno.id_aluno)" strSQL = strSQL & " INNER JOIN tb_turma ON tb_matricula.id_turma = tb_turma.id_turma)" strSQL = strSQL & " INNER JOIN tb_serie ON tb_turma.serie = tb_serie.id_serie) " strSQL = strSQL & " INNER JOIN tb_graus ON tb_serie.grau = tb_graus.id_grau) " strSQL = strSQL & " WHERE tb_matricula.id_turma = " & turma.ItemData(turma.ListIndex) strSQL = strSQL & " ORDER BY tb_turma.turma asc, tb_matricula.numero asc " strSQL = strSQL & "} AS Turmas " strSQL = strSQL & "APPEND ({ " strSQL = strSQL & "SELECT tb_notas.*, tb_disciplina.* From (tb_notas " strSQL = strSQL & "INNER JOIN tb_disciplina ON tb_notas.id_disciplina = tb_disciplina.id_disciplina) " '' strSQL = strSQL & "SELECT tb_disciplina.*, tb_notas.* From (tb_notas " '' strSQL = strSQL & "right JOIN tb_disciplina ON tb_notas.id_disciplina = tb_disciplina.id_disciplina) " '' 'strSQL = strSQL & "INNER JOIN tb_aluno ON tb_notas.id_aluno = tb_aluno.id_aluno) " strSQL = strSQL & "} AS Alunos " '' strSQL = strSQL & "RELATE 'id_serie' TO 'serie' " strSQL = strSQL & "RELATE 'id_aluno' TO 'id_aluno' " strSQL = strSQL & ") AS Alunos " 'strSQL = strSQL & ")" rsSIGA.Open strSQL, connSIGA2, adOpenForwardOnly Set boletimG.DataSource = rsSIGA boletimG.Show vbModal É um boletim escolar. O comando PAI seleciona os dados que montam o cabeçalho do relatório, o comando FILHO recupera as notas lançadas na tabela tb_notas. O relacionamento entre os dois comando pode variar... de SERIE para ID_ALUNO mas em menhum dos casos deu certo. Se eu coloco por série o relacionamento, ele recupera todas as disciplinas que preciso listar... mas não relaciona as notas ao ALUNO do boletim. Se coloco por ID_ALUNO ele só carrega as disciplinas que tem notas lançadas, até seria o que eu preciso... mas quero que ele lista até mesmo aquelas que não tem nota... Alguma idéia!? Posso enviar um exemplo por email... aguardo. email: castelo.jelb@hotmail.com

alguém ai pode dar uma ajuda?! é muito importante para mim... preciso dessa ajuda para confeccionar uma mala direta.

Ola. Como posso realizar via macrou ou código VB busca em mais de uma planílha de dados

Galera... estou com problemas em uma mala direta no WORD. Tenho um campo com 5 dígitos, porém os ZEROS não aparecem. No excel esta assim: 00052 No word aparece apenas 52 Não sei o que fazer para o campo vir completo com os 5 dígidos 00052. OBS: O campo esta configurado com PERSONALIZAÇÃO para ter 5 dígitos. Alguém ai tem alguma sugestão?