kuroi
Membros-
Total de itens
7.184 -
Registro em
-
Última visita
Tudo que kuroi postou
-
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.
-
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.
-
faca: sql = "Select * from Tabela" set rs = cn.execute(sql) numerodecampos = rs.fields.count não funciona Set MSFlexGrid1.DataSource = rs?
-
ponha o <% If cor = "#FDD30E" Then cor = "#ffffcc" Else cor = "#FDD30E" End If %> <tr bgcolor="<%=cor%>"> dentro do while. assim: <%do while rs.eof=false %> <% If cor = "#FDD30E" Then cor = "#ffffcc" Else cor = "#FDD30E" End If %> <tr bgcolor="<%=cor%>"> <td nowrap width="14%" border="0" ><font face="Arial Unicode MS" size="2" color="#2165A5"><%= rs("Empresa")%></font></td> <td nowrap width="14%" border="0"><font face="Arial Unicode MS" size="2" color="#2165A5"><%= rs("Endereco")%></font> </td> <td nowrap width="14%" border="0"><font face="Arial Unicode MS" size="2" color="#2165A5"><%= rs("Bairro")%></font> </td> <td nowrap width="14%" border="0"><font face="Arial Unicode MS" size="2" color="#2165A5"><%= rs("Cidade")%> </font> </td> <td nowrap width="14%" border="0"><font face="Arial Unicode MS" size="2" color="#2165A5"><%=rs("Telefone")%></font> </td> <% if rs("site")<>"-" then%> <td nowrap width="14%" border="0"><a href ="Http://<%=rs("site")%>"> <font face="Arial Unicode MS" size="2" color="#2165A5"><%=rs("Site")%></font> </td></a> <%else%> <td nowrap align=center width="14%"><a href="NaoSite.asp"><font face="Arial Unicode MS" size="2" color="#2165A5" border="0"><%=rs("Site")%></font></a></td></a> <%end if%> <td nowrap align=center width="14%"><font face="Arial Unicode MS" size="2" color="#2165A5"><%=rs("Email")%></font> </td> </tr> <%rs.MoveNext loop%>
-
ve se algum desses resolve: 1 - o campo NumeroAvaliacao é mesmo string? se for numero tire os ''. 2 - copie o valor q fica armazenado na variavel codigo e teste-o no proprio Crystal no Record Selection Formula. se der errado ele deve dar uma mensagem mais especifica. 3 - talvez o erro não seja na Selection Formula. você não tem nenhum outro campo formula, ou não usa nenhuma outra formula na formacao de objetos e secoes? se tiver de uma olhada nelas. o melhor jeito de resolver é abrir o .rpt no proprio crystal, copiar esse formula e tentar imprimir por la pra tentar descobir o erro.