kuroi

então faca assim: sql = "Select Idade, Count(Idade) as Conta from Tabela Where Idade = 20 Group By Idade" set rs = cn.execute (sql) quantidade = rs!Conta no rs!Conta você vai ter o 2.

o q foi q você tentou fazer? veja se você entende: tenho a tabela com os campos nome e idade, assim: se você olhar, vai ver q 19 aparece 3 vezes e 20 aparece 2. se você fizer o select assim: Select Idade, Count(Idade) as Conta from Tabela Group By Idade você tera uma consulta assim: entendeu? se puser num recordset, você vai ter os dois campos idade e conta com esses valores.

bom q funcionou. mas o certo seria datevalue e não datavalue.

ve se é isso: Select Codigo, Count(Codigo) as Conta from Tabela Group By Codigo

e se fizer: <td bgcolor="#ffffcc" border=0 nowrap><font face="Arial Unicode MS" size="1" color="#2165A5"><%=DateValue(rs("EmDia"))%></font></td> ?

tem algum jeito de abrir um certo arquivo com o programa q esta configurado no windows para abri-lo? exemplo, o cara vai esta usando meu programa e vai selecionar um arquivo qualquer para abrir. ai eu tenho q identificar. se for documento do Word, abro com o Word, se for txt abro com o bloco de notas, se for .mdb abro com o access e assim por diante. tem jeito, ou tenho q programar na mao lendo as extensoes?

Janeiro: "Select * from Tabela Where Month(Data) = 1" Fevereiro:"Select * from Tabela Where Month(Data) = 2" etc.

uma dica, cara... devia ate ter te falado antes. so não sei se a sua versao do crystal q é diferente da minha acontece exatamente a mesma coisa. não sei tb se você já sabe, mas é sempre bom falar: qualquer ateracao q c fizer no banco não importa qual seja, entre no rpt do crystal e ponha sempre o comando verify database. se você não fizer isso, o crystal vai achar q esta com a configuracao antiga do banco e seu relatorio vai sempre sair todo zuado. o ideal é deixar selecionado a opcao verify on every print. como não conheco sua versao do crystal não sei se é exatamente igual... bom q funcionou. qualquer coisa poste ae.

valeu, funcionou certinho.

acho q é isso: FormatNumber("1000", 0) vai ficar assim: 1.000 sendo q o zero é o numero de casas decimais. se você fizer: FormatNumber("1000", 4), fica assim: 1.000,0000

então faca assim: For i = List1.ListCount - 1 To 0 Step -1 If List1.Selected(i) Then List1.RemoveItem i Next

faca como eu disse: Grid.AddItem "", Grid.Rows + 1 Grid.TextMatrix([numero da linha],[numero da coluna]) = checkbox.caption

não entendi exatamente. .additem (nome, numero da linha) adiciona uma linha nova; passe os valores q você quiser para .textmatrix (linha, coluna) para preencher a célula desejada.

tendo um recordset com 3 campos, rs.fields(0).Name traz o nome do primeiro campo, rs.fields(1).Name traz o nome do segundo e rs.fields(2).Name, do terceiro. pra mostrar num combo box use um for tipo assim: for x = 0 to rs.fields.count - 1 combobox1.additem rs.fields(x).Name next quanto a segunda pergunta, olhe: http://scriptbrasil.com.br/forum/index.php...=0entry326584

a funcao Count conta quantos registros estao dentro de um Select. no caso, você poe um campo calculado chamado "quantidade" no select. campos calculados são campos não existentes na tabela que são criados usando comandos e funcoes no ato do select. existem outras funcoes alem do count. por exemplo, o sum, que soma todos os valores de um determinado campo da tabela. exemplo: SELECT Sum(Valor) AS Soma FROM tabela sendo que Valor é um campo numerico, ou moeda existente na tabela de uma pesquisada por ai sobre select q tem bastante coisa q você pode fazer q facilita bastante.

a funcao instr retorna a posição em que determinada string aparece pela primeira vez dentro da outra. se a string não existir, retorna 0. x = "12345678.00" If InStr (x, ".") = 0 Then MsgBox "'.' não foi encontrado!" Else MsgBox "'.' Está na posição " & InStr (x, ".") End If

em vez de string ponha como inteiro.

é porque o valor q você tenta passar à variavel x não corresponde ao tipo de variavel. você declarou x como o q? string? inteiro? data? se for data, tente fazer: X = Conversion.CDate(Day(CmbDiaDebito.Text) & "/" & Month(TextDataMensalidade.Text) & "/" & Year(TextDataMensalidade.Text)) ou talvez seja porque o CmbDiaDebito.Text ou o TextDataMensalidade.Text não contem uma data valida. exemplo, você digitou "abc" no TextDataMensalidade.Text. se você tentar usar a funcao Month() na string "abc", vai ocorrer esse erro. por isso antes você tera q validar o TextDataMensalidade.Text com a funcao IsDate().

ajuda tb fazer um curso.

instalei o Kazaa Lite K++ Versão 2.4.3 no meu pc, mas ele não conecta. abro o kazaa e ele diz q esta conectando mas não conecta. uso o windows xp, sera q é negocio de firewall? apesar de q o meu firewall ta desativado e eu não mexi em nenhuma configuracao dele desde q foi instalado o windows? alguém sabe o q pode ser?

isso: <% respoonse.write rs("x") / rs("y") %>?

rafaelsposito[a]gmail.com

se quiser mandar os arquivos pro meu e-mail (se estiver usando bd access), tanto os rpt quando o banco e o vb, quando tiver um tempo eu dou uma olhada pra ver se descubro alguma coisa. so não sei se vou conseguir abrir os relatorios direito por causa q são versoes diferentes.

faca um for: for i = 1 to List1.ListCount List1.RemoveItem 0 Next

botao invisivel acho q não funciona, mas tem outros jeitos, tipo você por um label em branco e por o codigo q c quer no evento clique dele, ou usar o evento MouseDown do form, e ver se o x e o y correspondem com onde esta o shape.