kuroi

como ficou a string toda?

não sei se da certo: dim Data Data = DateAdd ("n", 2, "00:00:00")

valeu dark0. ate adicionei esse segundo link aos meus favoritos.

tem como c me passar esse link q tb to precisando?... valeu...

na toolbar pode ser: Barra.Buttons(1).Caption = rsPesquisa!NomeFuncionario não é isso?

tenta: Set DataGrid1.DataSource = Nothing

todas as vezes que o if ocupar somente uma linha, apague o end if. exemplo: <% If Not rsCRJJ0422.EOF Then Response.Write rsCRJJ0422( "totalEf1" ) end if %> Fica: <% If Not rsCRJJ0422.EOF Then Response.Write rsCRJJ0422( "totalEf1" ) %> reparei q isso acontece umas 4 vezes no codigo. procure se não aparece mais e arrume todos. me avise se funciona. OBS: tb não estaria errado se ficasse: <% If Not rsCRJJ0422.EOF Then Response.Write rsCRJJ0422( "totalEf1" ) End If %> so não pode ficar end if na mesma linha q o if.

Veja os comentarios em verde:

assim fica meio dificil. onde você abre o primeiro while? verifique se não deixou nenhum while aberto. identifique tb qual é a linha 181, pois é ela q esta errada. o q acho q pode ser tb é q o Response.Write não pode ficar na mesma linha q o if quando ouver else e end if. fica assim: Linha 1 - <% If IsNull(rsCRJJ0424("TotalEf3")) or rsCRJJ0424("totalEF3") = "" Then Linha 2 - Response.Write 0 Linha 3 - Else Linha 4 - Response.Write rsCRJJ0424("totalEF3") Linha 5 - end if %>

você alterou mais alguma coisa no codigo? você apagou o loop? poste de novo todo o codigo e, se possivel, aponte qual é a linha 181.

tente isso: <td width="75" > <div align="center" class="style7"> <% if IsNull(rsCRJJ0421("totalEf")) or rsCRJJ0421("totalEf") = "" then Response.Write 0 Else Response.Write rsCRJJ0421("totalEf") end if %> </div></td>

você ta fazendo em asp certo? se eu entendi, você tem uma tabela onde tem um campo q esta escrito por exemplo: "meu nome é kuroi". e você quer por exemplo, selecionar todas as palavras q tiverem a letra "o". ficando assim: "nome kuroi" é isso mesmo? se for, você pode fazer um while registro por registro, separando as palavras com comando split (se não souber usar, procura no forum de Asp ou de Visual Basic q vai encontrar exemplos) e testando qual palavra tem a string q você procura...

acho q o certo seria: " SELECT * FROM tabela WHERE Campo LIKE '%" & [digitado] & "%' " certo?

ue, porque não fez o q o brill disse? testei e funcionou: <IFRAME src="teste_arquivos/inicial.htm" frameBorder=0 width=765 height="100%" scrolling = "no">

tente dar um alias para a soma. do tipo: No lugar de Soma, você poe o nome q quiser. ai na hora de mostrar você poe o nome do alias: <div align="center" class="style4"><%=rs("Soma")%></div> </td>

ve se é isso: MSFlexGrid1.TextMatrix(0, 1) = "Linux" MSFlexGrid1.TextMatrix(0, 2) = "XP" MSFlexGrid1.TextMatrix(0, 3) = "Atlhon"

recomendo baixar o inno setup e o istool. alem de ter poucos problemas é bem facil de mexer e você vai ter um controle bem melhor sobre o q vai estar sendo instalado.

acho q o certo seria: SELECT top 30 tdpontos_bolao.cod_user, Sum (tdpontos_bolao.pontuacao), techPromoInscritos.nome,techPromoInscritos.ide FROM tdpontos_bolao INNER JOIN techPromoInscritos ON tdpontos_bolao.cod_user = techPromoInscritos.ide where techPromoInscritos.rodada = '1' GROUP BY tdpontos_bolao.cod_user, techPromoInscritos.nome,techPromoInscritos.ide ORDER BY Sum (tdpontos_bolao.pontuacao) desc a sua query tinha os seguintes erros: 1 - "SELECT top 30 * from" estava errado. o certo é sempre por top 30 depois os nomes dos campos e depos o from (o * so aparece quando se quer selecionar todos os campos. nesse caso não se escreve o nome de nenhum campo). se você ver vai ver q a sua query tinha dois froms 2 - tem ser sempre nessa ordem: Where, Group By, Order By. você não pode por o group antes do where. 3 - você não pode por order by num campo q esteja numa funcao de agrupamento (no caso o sum). se você deu sum na pontuacao, você não pode ordenar por ela a não ser q ordene por todo o campo agregado como fiz. criei as tabelas com os mesmos nomes e campos, testei a minha string aqui e não teve problemas. qualquer coisa poste ae.

ve se é isso q c quer: sql = "SELECT * from top 30 tdpontos_bolao.cod_user, Sum (tdpontos_bolao.pontuacao), techPromoInscritos.nome,techPromoInscritos.ide FROM tdpontos_bolao INNER JOIN techPromoInscritos ON tdpontos_bolao.cod_user = techPromoInscritos.ide GROUP BY tdpontos_bolao.cod_user, techPromoInscritos.nome,techPromoInscritos.ide ORDER BY tdpontos_bolao.pontuacao desc" so não sei se funciona com o top 30.

estava imaginando... o certo não seria gravar a data assim: datta = '09/01/2006' em vez de assim: datta = #09/01/2006# ? é q pelo q eu sei as # so servem no select (e apenas no access, no sql não) e não pra dar insert. talvez eu esteja errado... alem do mais, acho q o mais correto seria: datta = '2006-01-09'

acho q: select * from tabela where campo like '%palavra%';

não sabia disso não... meio estranho esse erro. qual é a linha q dá? essa: set rs = cn.Execute("select * from Cliente") ???

onde você chama a procedure q abre a conexao? essa sub main deve ser chamada de algum lugar do programa. não tem sentido você digitar todo o codigo e não executar. outra coisa, ela deve ser declarada com Public Sub para poder ser chamada de outros formularios.

você abriu o arquivo .ico? não existem varias figuras dentro?

a um tempo atras costumava mexer um pouco com icone, so q hoje em dia não lembro direito. mas acho q o seu icone é preparado para funcionar tanto em win95, 98 e xp. dentro do icone, ele tem varios desenhos de diferentes dimensoes. na hora de colocar no visual basic, dependendo do tamanho q o icone vai ocupar (exemplo, se você estiver pondo numa toolbar ele vai pegar um desenho de dimensoes maiores do q se você puser ele na parte de cima do formulario) ele vai escolher um dos desenhos diferentes dentro do icone, o q mais se adequar ao tamanho. um esquema é baixar por ai algum progrma de edição de icones e apagar de dentro do icone, as figuras com aparencia do 95 e 98. conehco um programa cahamdo microangelo q faz isso, mas não sei se da pra encontrar facil. qualquer coisa posta ai q eu vou procurar pra ver se ainda tenho (mas não é garantia).