Ir para conteúdo
Fórum Script Brasil

jothaz

Membros
  • Total de itens

    430
  • Registro em

  • Última visita

Tudo que jothaz postou

  1. Camarada, Acho que esta faltando o JOIN. Faça o JOIN assim: sqlTabela = "Select DISTINCT * From obrasLiterarias O INNER JOIN autor A ON O.di = A.id" sqlTabela = sqlTabela + " WHERE " + result1 + " Like " + " '%" + result + "%' " Ou no WHERE: sqlTabela = "Select DISTINCT * From obrasLiterarias O , autor A" sqlTabela = sqlTabela + " WHERE O.id = A.id AND " + result1 + " Like " + " '%" + result + "%' " Dai você retira a repetição. t+
  2. jothaz

    Pegar O Total

    Camarada, Com este SELECT você eat devolvendo somente o COUNT (count(categoria) as contagem) set rs = conexao.execute("select count(categoria) as contagem from postagem ORDER BY adicionado DESC where categoria") Então realmente não tem como pegar: rs("id")&"'>- "&rs("titulo") Pois eles não estam sendo devolvidos no SELECT. Pelo menos no que você postou. Qual erro esta retornando? t+
  3. Por que você não adapta o código vb para ASP? Uso o seguinte código: <script language='VBScript' > Set objWord = CreateObject("Word.Application") objWord.Visible = True Set objDoc = objWord.Documents.Open("<%=sCaminhoDoc%>") Set objSelection = objWord.Selection objSelection.Find.Text = "Introdução" objSelection.Find.Forward = TRUE objSelection.Find.MatchWholeWord = TRUE objSelection.Find.Execute objSelection.Fields.Update() Set objWord = nothing Set objDoc = nothing Set objSelection = nothing </script> Ele abre um documento e manipula no caos a criação de indíce. Espero ter dado uma luz! t+ t+
  4. Camarada, Tente via linked server. Dê um pesquisado no books online. Duvida manifeste. t+
  5. Camarada, Se optar por TRIGGER o processo será automático e disparado automáticamente a atualização na tabela consolidada. Deve ser utilizado com critério pois se for mal implementada pode impactar na performance. No caso de uma sp ele deverá ser executada e ai sim fará a atualização. Só um questionamento cada VENDEDOR tem um tabela fisica somente dele? E se entra mais vendendores são criada mais tabela fisicas? Não me leve a mal mas esta modelagem esta um pouco confusa e como não tenho informaçoes mais completas fica dificil sugerir algo. t+
  6. jothaz

    Como Criar Bd

    Camarada, Dê uma olhada em http://www.connectionstrings.com/, Decida que a maneira que lhe atenda melhor e post as duvidas. t+
  7. Camarada, Seja mais claro em no que você deseja pois fica muito complicado ajudar sem as informações precisas. Para cria sp faça assim: CREATE PROC TESTE @DT_INI DATETIME, @DT_FIM DATETIME AS SELECT * FROM SUA_TABELA WHRE SUA_DATA BETWEEN @DT_INI AND @DT_FIM GO Depois de criada utilize ALTER PROC ao invês de CREATE PROC. Este exemplo recebe dua datas como parâmetro e retorna todos os registros entre as duad datas. t+
  8. Princesa, Este erro acontece por incompatibilidade de tipos de campos. Pode ocorre porque você esta tentando grava valores alfa em campos numericos ou mesm porque no WHERE não esta sendo utilizando o ' (plic) para delimitar campo afanumericos. Faça um favor: 'Inserindo os dados sql = "INSERT into sugestao ([data], [nome], [cargo], [empresa], [endereco], [num], [compl], [cep], [estado], [cidade], [ddd], [tel], [cel], [email], [anexo], [sugestao], [correio], [datatec], [tecnico], [resposta], [atendimento], [operacional], [dataop], [func], [respop], [pendencia], [software], [versao], [release], [windows], [autocad]) values (#"& Now &"#,'"&Vnome&"','"&Vcargo&"','"&Vempresa&"','"&Vendereco&"','"&Vnum&"','"&Vcompl&"','"&Vcep&"','"&Vestado&"','"&Vcidade&"','"&Vddd&"','"&Vtel&"','"&Vcel&"','"&Vemail&"', '"&Vanexo&"', '"&Vsugestao&"', '"&Vcorreio&"', '"&Vdatatec&"', '"&Vtecnico&"', '"&Vresposta&"', '"&Vatendimento&"', '"&Voperacional&"', '"&Vdataop&"', '"&Vfunc&"', '"&Vrespop&"', '"&Vsoftware&"', '"&Vversao&"', '"&Vrelease&"', '"&Vwindows&"', '"&Vautocad&"', true)" response.write sql & "<BR>" response.end E post o resultado par avaliarmos sua expressão. t+
  9. Camarada, Tenta assim: SELECT TOP 1 @DATA_COMPARACAO = DATA_DEL FROM DATA_deletar t+
  10. Pelo que entendi você disse que conseguiu retornar isso: Porém precisava de algo assim: Isso? Uma forma de fazer seria gerar em uma tabela temporária todas as combinaçoes co no exemplo 1 e de pois eleminar na tabela temporária deixando somente as combinaçoes válidas. É só uma idéia mas acho que de fácil implementação. t+
  11. Posta o sql que você esta utilizando para gerar pois fica mais fácil ajudar. mesmo que o resultado esteja errado. t+
  12. Agora sim! :P porque pode acoantecer de ter somente ruim(20) e muito bom(2). Bom equilibrar as equipes é realmente complicado! Mas não vamso afianr não! :ph34r: você postou o sql para randomizar os membros. Seria possível você postar todo o sql (expressão ou sp) pois gostaria de ter a visão compelta de como você esta implementando a solução. t+
  13. Clara como a alma dos inocentes! :P Acho que agora captei! A avaliação será efetuada antes da criação das equipes! É isso? O que você quer é quando da criação das equipes sempre ter um membro com uma avaliação de 1 a 4: Bom isto é o que você não quer! -------Equipe 1 X Equipe 2 usuario1(ruim) - usuario5(muito bom) usuario2(ruim) - usuario6(muito bom) usuario3(ruim) - usuario7(bom) usuario4(ruim) - usuario8(muito bom) Por favor dê um exemplo de como seria o correto utilizando o exemplo acima. t+
  14. Princesa, Vamos ver se entendi. Sabe como é o velhinho aqui é motor antigo demora um pouco a pegar! :P Pelo que entendi depois do sorteio da equipe esta equipe será julgada por alguém em um outro processo? É isso? Bom se for como você esta pensando no lay out deste form? Seria algo um form com o nome do participante e uma combo na frente onde será informada a avaliação? Outra questão é a seguinte esta consistência seria online no proprio form ou seria enviada para o servidor SQL e depois retornaria os erros de duplicidade? No aguardo para continuarmos esta discussão. t+
  15. jothaz

    Erro Tipos Variaves

    Camarada, você pode até achar que esta sendo alimentada por uma consulta mas a msg de erro Divisão por zero diz que não! Não é que estou duvidando de você! ^_^ Para tirar a dúvida execute o código a seguir: <% valor_conta = 100000 response.write "Valor de total_tempo = " & total_tempo & "<br>" response.end valor_segundo = (valor_conta / total_tempo) %> Vamos imprimir a variavel total_tempo para verificar o seu conteúdo. Post o resultado por favor. t+
  16. jothaz

    Backup

    Camarada, Desde que você possua os privilegios de acesso e gravação acho que não tem grilo. Este dominio é internet ou de rede interna? Só efetuando teste mesmo.
  17. Princesa, Se é que posso chamá-la assim! :D Não captei bem o que queres mas vamos aclarar as idéias. Tudo bem poste o script que gera a equipe aleatoreamente para facilitar. Agora como é atribuido a classificação por membro? É arbitraria ou sorteada? Esta classificação pode alterar depois? Acho que será possível fazer o que queres via SQL mesmo. t+
  18. jothaz

    Erro Tipos Variaves

    Camarada, Segundo a msg de erro é Divisão por zero portanto so pode ser a vriável total_tempo esta com o conteúdo zerado. VErifique onde ele é criada ou mesmo se esta sendo criada e alimentada. t+
  19. jothaz

    Estouro De Cint

    Camrada, Tente utilizar o CLNG(variavel) pois ele suporta campos com mais digitos que o CINT(). t+
  20. Camarada, Tenho um tuto que aborda este assunto em http://forum.imasters.com.br/index.php?showtopic=220834 Dá uma olhada e post suas dúvidas. Mas é possivel fazer o que queres. t+
  21. Camarada, Para se cria um vetor você deve utilizar o ReDim: dim vVetor ' 'Define um vetor com 20 ocorrências e mata qualquer elemento que já estaja lá Redim vVetor(20) ' 'Define um vetor com 20 ocorrências e mantém qualquer elemento que já estaja lá Redim Preserve vVetor(20) Segue um exemplo de com utilizar um função para adionar no vetor dinamicamente. <%public function adicionaVetor(vetor,valor) if IsArray(vetor) then redim preserve vetor(ubound(vetor)+1) else redim vetor(0) end if vetor(ubound(vetor)) = valor adicionaVetor = vetor end Function Dim nome_exame_ Dim iDigito iDigito = 1 set rs1=Server.CreateObject("ADODB.recordset") SQL = "SELECT * " SQL = SQL & " FROM exame" SQL = SQL & " ORDER BY exame_numero" rs1.Open SQL, Conexao While Not rs1.EOF adicionaVetor(nome_exame_,rs1("exame_numero")) 'iDigito = iDigito + 1 rs1.MoveNext Wend rs1.Close Set rs1 = Nothing %> qualquer dúvida estamos ai. t+
  22. Camarada, Tenta: replace(texto,"\n", chr(13)) Ou: replace(texto,"\n", vbcrlf) t+
  23. Camarada, Quere fazer tipo um engenharia reversa?! Bom procure por ERWin e PowerDesign que você consegue fazer o que quer. Agora free não me recordo agora. t+
  24. Camarada, A principio no olho não percebi nada errado. Excute o comando abaixo e post o resultado ai: sql = "select * from produto where ProdutoDescricao like '%"&campo&"%'" response.write sql response.end t+
  25. jothaz

    Simplificar Um Arquivo . . .

    Camarada, Se entendi bem tenta algo assim: SQL = "SELECT * " SQL = SQL & " FROM exame" SQL = SQL & " WHERE exame_numero <= '40'" t+
×
×
  • Criar Novo...