URGENTE: QUERY COM QUEBRA DE LINHA NO TXT

USUARIO.EXCLUIDOS 17/08/2007 19:04:29
#231460
olá amigos, estou precisando saber que caracter eu utilizo para fazer uma quebra de linha dentro do txt:
E preciso tambem de uma ajuda em uma query, ai vai:

tenho que filtrar o numero de contatos em cada cidade e mostrar o numero total, o nº de homens e o n? de mulheres:
EX: Isto tem que ser dentro de um txt multi line

Analise: Total de Registro no Banco de Dados:10, 6 Homens, 4 Mulheres
Rio de Janeiro: Total:4, 2 Homens, 2 Mulheres
São Paulo: Total:4, 3 Homens, 1 Mulher
Belo Horizonte: Total:1 Homem, 1 Mulher

tem que ser feito assim dentro do txt com quebras de linhas, se der me passem como fazer a Query e a quebra de linha, obrigado
USUARIO.EXCLUIDOS 17/08/2007 19:13:20
#231462 Resposta escolhida


pra quebrar linha basta colocar texto & vbCrLf & texto ou

texto & Chr(13) & texto q quebra tb

Cara qto a query..acho q pra ficar tranquilo...tera q faze-las separadas

1 - Total
SQL = "Select Count(Cidade) From Tabela Where Cidade = 'São Paulo'"

2 - Total de Homens (mulheres basta mudar critério)
SQL = "Select Count(Cidade) From Tabela Where Cidade = 'São Paulo' And Sexo='M'"

acho q é isso
tenta ae...boa sorte
USUARIO.EXCLUIDOS 17/08/2007 19:19:38
#231463

QUal tipo de conexao vc ta usando?
USUARIO.EXCLUIDOS 17/08/2007 19:50:03
#231469
ADO com Access essa e a rotina que eu montei, só que só consigo exibir a 1º linha, testa, ai vai a rotina e o anexo

Private Sub Contar_Registros()
   
Dim intHomens, intMulheres, intTotal As Integer
Dim strCidade As String

    strSql = "SELECT * FROM Cadastro"
    Call Consultar
    
    With rsSelecao
         If .BOF = False And .EOF = False Then
            .MoveFirst
            While .EOF = False
                  If !Sexo = True Then
                     intHomens = intHomens + 1
                  Else
                     intMulheres = intMulheres + 1
                  End If
                  .MoveNext
            Wend
            intTotal = intHomens + intMulheres
            txtAnalise.Text = "Analise: Total de Registros: " & intTotal & " , " & intHomens & " Homens , " & intMulheres & " Mulheres"
            .MoveFirst
            While .EOF
                  strCidade = !CIDADE
                  
            Wend
         End If
    End With
    
    
End Sub
USUARIO.EXCLUIDOS 17/08/2007 20:09:06
#231472


Cara..eu tenho q ir agora...mas o poco q testei aki

sua montagem de conexão e consulta em sql..ta com problema...

pq n vem o registro correto..da uma olhada nisso

amanha cedo te mando correto

abraços
USUARIO.EXCLUIDOS 17/08/2007 20:24:00
#231473
Cara a quebra de linha eu coloquei de uma olha ve se atende o que precisa

nao coloquei a quebra por estado pois tenho que sair...

abraço
USUARIO.EXCLUIDOS 17/08/2007 21:35:32
#231477
olha a conexão está correta! tá funcionando legal, dá uma olhada e depois me manda os erros então, valew, abraços a todos e vou testar o que me passaram e aguardo as respostas OK
USUARIO.EXCLUIDOS 18/08/2007 11:53:54
#231498
olha só já fiz algumas coisas aqui, mas o loop tá repetindo as cidades, e cada cidade tem que aparecer apenas 1 vez. tipo um gronp by. por favor me ajudem a consertar esses erros. ai vai o projeto
Tópico encerrado , respostas não são mais permitidas
Voltar