felipefrancesco
-
Total de itens
208 -
Registro em
-
Última visita
Tudo que felipefrancesco postou
-
Bom....nome do campo eu sei: oRs.Fields.Item(i).Name
-
É ta dando erro porque essa tabela Gestor_modelo não existe, troca a string SQL por essa linha: sqll = "SELECT DESCR_MODELO1 FROM Gestor.MODELO AS Gestor_modelo"
-
Bom....essa consulta aparentemente está certa.....eu dei uma olhada no código e fiz algumas alterações na parte final, que é um combo....vê se é esse o seu problema: <!-- ******** END ALLWEBMENUS CODE FOR MenuModello ******** --> </div> <div align="center"> <select name="listacarro" class="form" id="listacarro"> <option selected>Escolha aqui o seu modelo</option> <% sqll = "SELECT DESCR_MODELO1 FROM Gestor_modelo" Set CODIGO_GRUPO= server.CreateObject("ADODB.Recordset") Set CODIGO_GRUPO = conexao.execute(sqll) IF NOT CODIGO_GRUPO.EOF THEN WHILE NOT CODIGO_GRUPO.EOF %> <option value ="<%=CODIGO_GRUPO("DESCR_MODELO1")%>"> <%=CODIGO_GRUPO("DESCR_MODELO1")%></option> <% CODIGO_GRUPO.moveNext WEND END IF %> </select> </div> <p> </p></body> </html>
-
Marcelo, eu pedi para você fazer isso para pegar só a string SQL que sairia dessa consulta, para assim podermos verificar a sintaxe, já que esse código está muito grande e confugso. Então acho que você precisa ser um pouco mais específico nesse erro, ou então coloque somente a área do código que está com problema...
-
Faça o seguinte: Acima da linha: set veiculo_estoque_query = conexao.execute(veiculo_estoque_sql) Digite: response.write veiculo_estoque_sql response.end execute a página e poste o resultado para darmos uma olhada...
-
Putz cara......a lógica é essa ai que o resopi colocou. Os exemplos que eu tenho usam muitos includes e muitas função que ia ficar complicado postar o código aqui. Eu vou postar um exemplo bem tosco, mas grande, que usa esse método e você vê se te ajuda <!-- Página com o formulário de cadastro de artigos/novidades/notícias Esses dados são enviados para 'CADART2.ASP" --> <!--#include file="conecta.asp" --> <% AbreConexao ' Insere na página de visitas Dim SqlEs SqlEs = "INSERT INTO tblVis(IdItem, DtVis, StrTipo) " & _ "VALUES(1,'" & Now() & "','pagina')" ObjConn.execute(SqlEs) Dim Verif Dim Cond ' :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: ' :: Se a QueryString (QS) "art" for nula, significa que ela não foi passada. ' :: Nesse caso, o formulário deverá estar zerado para uma nova inserção ' :: Caso a QS não for nula, então significa que a página que a chamou foi a de alteração ' :: Sendo assim, os dados do artigo a ser alterado devem ser exibidos. ' ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: If Request.QueryString("art") <> "" then ' Se a QS não for nula, então viemos da página de alteração ' Variável de verificação recebe veradeiro Verif=1 ' E a variável com a condição guarda o número do artigo a ser alterado Cond = Request.QueryString("art") Else ' Caso contrário, minha condição é negada. Cond=-1 Verif=0 End if If not Cond=-1 then ' Então eu tenho que buscar o artigo a ser alterado Dim SqlArt Dim RsArt SqlArt = "SELECT * FROM tblArt WHERE IdArt =" & Cond Set RsArt = ObjConn.execute(SqlArt) End if 'Declara as variáveis para buscar o autor Dim SqlAut Dim RsAut %> <html> <head> <title>Cadastro de Artigos/Novidades/Notícias</title> <link rel="stylesheet" href="EstiloGeral.css" type="text/css"> </head> <script language="javascript"> // Função para abrir a janela com o cadastro do autor function AbreJanela() /* Abre janela para download ou exibição do arquivo de artigo */ { window.open("cadaut.asp","borah",'resizable=no,scrollbars=no,width=300,height=250,toolbar=no') } </script> <body> <form name="fcadart" method="post" action="cadart2.asp" enctype="multipart/form-data"> <input name="HEnvArt" type="hidden" value="EnvOk"> <input name="HVer" type="hidden" value="<% =Verif %>"> <!-- input HVer passará para a próxima ´página se é UPDATE ou INSERT Em todos os campos do formulário se VERIF for verdadeiro então será atribuída a propriedade value --> <% Dim VerTipo If Cond <> -1 then Select Case RsArt("IntTipo") Case 1 VerTipo = 1 Case 2 VerTipo = 2 Case 3 VerTipo = 3 Case Else VerTipo = 0 End Select End if %> <!-- Início tabela--> <table border="0" cellpadding="5" align="center"> <!-- 1ª linha --> <tr> <td class="fus">Tipo:</td> <td class="fus"> <select name="cmbtipo" class="fus"> <option value="1" <% If ((Verif) and (VerTipo = 1)) xor not Verif then Response.Write("selected") %>>Artigo</option> <option value="2" <% If Verif and (VerTipo = 2) then Response.Write("selected") %>>Novidade</option> <option value="3" <% If Verif and VerTipo = 3 then Response.Write("selected") %>>Notícia</option> </select> </td> </tr> <!-- 2ª linha --> <tr> <td class="fus">Título:</td> <td><input name="txttit" size="30" type="text" class="fus" <% If Verif then Response.Write "value='" & RsArt("StrTit") & "'" %>></td> </tr> <!-- 3ª linha --> <tr> <td class="fus">Manchete:</td> <td><input name="txtmanc" size="45" type="text" class="fus" <% If Verif then Response.Write "value='" & RsArt("StrManc") & "'" %>></td> </tr> <!-- 4ª linha --> <tr> <td class="fus">Autor:</td> <td> <select name="cmbaut" class="fus"> <% ' Consulta do autor SqlAut = "SELECT IdAut, StrNome, MemCur FROM tblAut ORDER BY StrNome" Dim VerAut Set RsAut = ObjConn.execute(SqlAut) Do while not RsAut.eof If Verif And Cod <> -1 then If RsAut("IdAut") = RsArt("IdAut") then VerAut = true End if End if %> <option value="<%=RsAut("IdAut")%>" <%If VerAut then response.write "selected" VerAut = false End if %>><%=RsAut("StrNome")%> </option> <% RsAut.MoveNext Loop Set RsAut = nothing FechaConexao %> </select> <input type="button" name="btnaut" value="Autor" class="fus" OnClick="AbreJanela();"> </td> </tr> <!-- 5ª linha --> <tr> <td class="fus">Arquivo do artigo:</td> <td><input name="filearq" type="file" class="fus"></td> </tr> <!-- 6ª linha --> <tr> <td class="fus">Acesso Restrito ?</td> <td><input name="chkac" type="checkbox" class="fus" <% If Verif and Cond <> -1 then If RsArt("BooRes") then Response.Write "selected" End if End if%>> </td> </tr> <!-- 7ª linha --> <tr> <td valign="top" class="fus">Ref.p/busca (palvra-chave):</td> <td><input name="txtbusc" size="40" type="text"class="fus" <% If Verif then Response.Write "value='" & RsArt("StrKw") & "'" %>></td> </tr> <!-- 8ª linha --> <tr> <td colspan="2" align="center"> <input name="btnEnvArt" size="40" type="submit" value="Enviar Dados" class="fus"> </td> </tr> </table> </form> </body> </html>
-
Olha....quando eu faço isso eu sempre uso o mesmo formulário, e não tenho problema nenhum com isso. Se você for entrar em modo de edição, você faz a busca no banco e carrega as variáveis, caso contrário você não carrega as variáveis, que os campos virão vazios. Nesse cso, você não precisa do if pra montar a tabela, mas só pra verificar se você tem ou não que fazer uma busca no banco de dados.
-
é....select * from tabela_usuarios order by data DESC
-
Só algumas ressalvas neste tópico: 1. O iif realmente é muito legal, só que com essa função ambos os valores são executados, então não é um iif "puro", podendo gerar alguns erros dependendo da aplicação. 2. No PHP tem uma forma nativa de fazer direto, se não me engano é: (condição)?verdadeiro:falso Se não for assim é o inverso.......
-
você pode fazer assim.....no response.redirect você passa um parâmetro....Ex: response.redirect "arquivo.asp?pConfirmacao=true" Ai no body do seu arquivo você coloca: <body <%if request("pConfirmacao") = "true" then response.write "onLoad=alert('Cadastro ok');"%>> É isso ai....entendeu??
-
Faça uma consulta assim: SELECT COUNT(1) FROM Vagas
-
É o seguinte.....quando você usa o getRows() ele te retorna um vetor bi-dimensional. Quando você usa o uBound(vetor), você está pegando o total do vetor na primeira dimensão, ou seja, o total de colunas do array. Para pegar o total de linhas, você tem que usar o uBound(vetor,2). A...e não se esqueça que o primeiro índice é o zero, nesse caso, o seu vetor tem 6 colunas e não 5.
-
Acho que tá faltando um else ali no return true...
-
Bom...pelo que eu entendi isso é um relacionamento...essa tabela Ref deve ter um identificador (ID), que tem um valor igual nessa outra tabela, estou certo??Se for isso, você tem que usar o INNER JOIN....seria algo assim: SELECT T2.NAME FROM REF AS T1 INNER JOIN "OUTRA TABELA" AS T2 ON(T1 = T2) Vê se é isso q você precisa...
-
Opa....assim... <% Dim conexao,ConnString,url_conexao ConnString = Server.MapPath("arquivo.mdb") set conexao= Server.CreateObject("ADODB.Connection") conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&ConnString %> Troquei url_conexao pelo ConnString no conexao.open, assim deve ir....
-
Dá uma olhada nesse post do fórum de Javascript, que deve te ajudar: http://scriptbrasil.com.br/forum/index.php...topic=38960&hl=
-
Escolhe O Estado E No Outro Combo Tras As Cidades
uma questão respondeu felipefrancesco em Ajax, JavaScript, XML, DOM
Não tenho porque gero o array dinamicamente......mas o array é um array de 3 colunas, na primeira o valor que vai ficar no value de cada option, na segunda o valor que vai ser exibido e na terceira o valor do relacionamento, seria algo assim: array[0][0] = '1'; // Id da Cidade (valor do option) array[0][1] = 'são Paulo'; // Cidade (texto do option) array[0][2] = '5'; // Id do Estado (valor do option do combo relacionado) Ai vai o gerador de array em ASP: <% ' ****************************************************************************** ' *** Essa função gera uma matriz em JavaScript de acordo com os parâmetros: ' strNmArray --> O nome que será atribuído ao array ' intColArray --> Número inteiro com a quantidade de "colunas" no array a ser criado ' varAryDados --> Array do ASP com os dados a serem transportados ' ********************************************************************************** Sub ArrayJs(strNmArray,intColArray,varAryDados) Dim i,j Response.Write "var " & strNmArray & " = new Array(" & UBound(varAryDados,2) & ");" & vbcrlf & _ " for(i = 0; i <= " & UBound(varAryDados,2) & "; i++) {" & vbcrlf & _ " " & strNmArray & "[i] = new Array(" & intColArray & ");" & vbcrlf & _ " for(j=0;j<" & intColArray & ";j++) {" & vbcrlf & _ " " & strNmArray & "[i][j] = '0';" & vbcrlf & _ " }" & vbcrlf & _ " }" & vbcrlf For i=0 to UBound(varAryDados,2) For j=0 to intColArray - 1 Response.write strNmArray & "[" & i & "][" & j & "] = '" & Replace(varAryDados(j,i),vbcrlf,"<br>") & "';" & vbcrlf Next Next End Sub %> -
Escolhe O Estado E No Outro Combo Tras As Cidades
uma questão respondeu felipefrancesco em Ajax, JavaScript, XML, DOM
Olha.....é o seguinte...eu fiz uma função em JS, que pega o valor selecionado em um combo, e de acordo com esse valor carrega um outro combo com os valores relacionados. Esses valores estão em um array previamente gerado. Eu vou postar aqui a função JS, se vc's quiserem depois eu posto a função ASP que exporta um array em ASp pra JS. /* =================================================================================== */ /* Função pega o valor selecionado de um combo e joga os dados relacionados de um */ /* array em outro combo. */ /* Ex: um combo de países e outro de estados. No combo de países eu chamo a função, */ /* passando os valores do combo selecionado e do combo de estados. Assim, a função */ /* vai procurar o valor do combo de países no índice "3" do array também passado. */ /* Carregando o combo com os valores pertinentes. */ /* */ /* Parâmetros: */ /* oForm --> Objeto do formulário em questão */ /* intValor --> Valor selecionado a ser comparado no array */ /* intSelecionado --> Valor a ser selecionado no combo carregado */ /* oArray --> Instância do array com os dados relacionados */ /* strNmCbo --> Nome do combo a carregadr */ /* strPadrao --> Valor do índice "0" do combo carregado. */ /* ====================================================================================*/ function atribuiSub(oForm, intValor, intSelecionado, oArray, strNmCbo, strPadrao) { var intCont = 0 var intSel = 0; if(intValor != 0) { oForm.elements[strNmCbo].length = oArray.length + 1; oForm.elements[strNmCbo].disabled = false; var intTotVetor = oArray.length - 1; for(i=0; i<=intTotVetor; i++) { if(oArray[i][2] == intValor) { oForm.elements[strNmCbo].options[intCont+1].text = oArray[i][1]; oForm.elements[strNmCbo].options[intCont+1].value = oArray[i][0]; if(intSelecionado > 0 && intSelecionado == oArray[i][0]) { intSel = i; } intCont = intCont + 1 } } oForm.elements[strNmCbo].length = intCont+1; oForm.elements[strNmCbo].selectedIndex = intSel; } else { oForm.elements[strNmCbo].disabled = true; oForm.elements[strNmCbo].length = 1; oForm.elements[strNmCbo].options[0].text = strPadrao; } } -
Olha alguns drivers de conexão do MySql geraram alguns problemas....recomendo que você pegue o driver mais atualizado no site www.mysql.com.
-
O formato de data padrão usado pelo MySql é yyyy-mm-dd, mas você pode alterar isso nas variáveis de ambiente, que eu não me lembro quais eram agora.....
-
1 - Eu preciso esses números porque é um sistema que gerencia horas, e pra manipular essas horas eu sempre transformo em milissegundos, e não adianta formatar porque ele é um número inteiro. 2 - Não, o overflow não é do banco, tanto que o dado já tá lá e vem pra mim...o que eu reparei agora é que o problema não é no armazenamento, ele tá armazenando e eu até consigo fazer uma operação de divisão, o problema acontece quando eu uso o 'Mod', ai vai um trecho do código: if not isNull(intTempo) and not intTempo < 1000 then dblHora = Fix(intTempo/3600000) dblTemp = cDbl(intTempo) mod 3600000 A variável com esse número é a intTempo...quando eu faço a operação de divisão com ela vai tudo legal, agora na operação abaixo é que ele dá o overflow, e detalhe que o overflow não é na variável 'dblTemp', é na 'intTempo' mesmo. Já tentei trocar esse valor (intTempo) por uma constante de valor igual e não vai, só funciona se eu coloco um valor inferior àquele que eu coloquei na primeira mensagem.
-
Pessoal, estou com o seguinte problema.... Tenho um sistema em ASP no qual eu tenho que manipular esse número: 5.400.000.000, além de outros nessas proporções. O problema é que o ASP, mesmo transformando o número para Double CDbl(), dá overflow. Eu andei testando e vi que o ASP aceita números até 2.100.000.000 ou algo mais, depois disse ele só dá overflow. Alguém já teve esse problema e tem uma idéia de como lidar com isso. Valeu, Felipe Francesco
-
Ao invés de response.redirect, faz o document.location.href = 'arquivo.exe';
-
Meu....você escreve as opções dentro do select.....você tem que fechar a tag inicial do select, passando os parâmetros do select no início... Assim: CODE <select value=" name="area" style="font-family: Verdana; font-size: 8 pt; border-style: solid; border-width: 1"> <% while Not RsDiv.EOF Response.Write("<option value="""& RsDiv("div") &""">"& RsDiv("div") &"</option>") RsDiv.MoveNext wend Response.Write("<option selected>---</option>") %> </select>
-
Não dá para fazer include desse jeito......o include é só um bloco de código inserido na página, se você quer passar esse parâmetro, você tem que passar na página onde esse include está inserido.......Se por algum motivo tem que ser assim, acho que com Server.Execute você consegue....