Clauido José
-
Total de itens
457 -
Registro em
-
Última visita
Tudo que Clauido José postou
-
bom acho que você não perceu eu estou quero que ele busque a data do sistema entende estou fazendo da seguinte forma perceba. <% dim Conexao, strSql, strData call abreConexao() campos = "NoOs,DatCompromisso,DatSolicitada,idEmpresa,idTecnico,Status,HoraInicio,Danos" strSql = "Select " & campos & " from tabDTH where DatCompromisso = #" & Date &"#" 'response.Write(strsql) 'response.End() rsRota.Open strSql, Conexao, 3 ,3 %>
-
campos = "NoOs,DatCompromisso,DatSolicitada,idEmpresa,idTecnico,Status,HoraInicio,Danos" strSql = "Select " & campos & " from tabDTH where DatCompromisso = #" & CDate &"# order by idEmpresa,DatCompromisso" response.Write(strsql) response.End() Deu o seguinte erro. Erro de tempo de execução do Microsoft VBScript (0x800A01C2) Número de argumentos incorreto ou atribuição de propriedade inválida: 'cDate'
-
cara é o seguinte eu mudei a conexao para ver o que ele tava trazendo com a Metodo RecordCount bom fiz o seguinte. <% dim Conexao, strSql, strData call abreConexao() campos = "NoOs,DatCompromisso,DatSolicitada,idEmpresa,idTecnico,Status,HoraInicio,Dano s" strSql = "Select " & campos & " from tabDTH where DatCompromisso = #" & cDate &"# order by idEmpresa,DatCompromisso" if rsRota.State=1 then rsRota.Close rsRota.Open strSql, Conexao,3 ,3 response.Write(rsRota.RecordCount) response.End() %> Pra minha supresa ele trouxe quantidade 0 de registro resultudado não acha o registro na tabela. Bom fiz o seguinte fiz um select no proprio access do mesmo jeito que fiz aqui bom ele funcionou direitinho o que pode ser em ?
-
bom cara é seguinte eu troquei a conexao do geito que você postou aqui mas não apareceu nada fiz um teste pra você ve o que ta acontecendo. <% strIdEmpresa =0 response.Write("Inicio") while not rsRota.Eof response.Write("Meio") i=i+1 if i mod 2 = 0 Then Bg="#FFFFFF" else Bg="#5082B4" end if %> <tr bgcolor="<%=Bg%>"> <td width="10%" height="24" class="SubTitulo"><%=rsRota("idEmpresa")%></td> <td width="38%" align="center" class="SubTitulo"> </td> <td width="05%" align="left" class="SubTitulo"> </td> <td width="05%" align="left" class="SubTitulo"> </td> <td width="05%" align="left" class="SubTitulo"> </td> <td width="05%" align="left" class="SubTitulo"> </td> <td width="05%" align="left" class="SubTitulo"> </td> <td width="05%" align="left" class="SubTitulo"> </td> <td width="10%" align="left" class="SubTitulo"> </td> </tr> <% rsRota.MoveNext wEnd response.Write("Fim") response.end() %> O response ante do while funciona marca inicio o do meio do while não entra e o ultimo funcinoa entendeu ?
-
bom quando execute estes comando no browser não moustrou nada como se a recordset estive vazil. Entende quando o recordset não acha nada, não tenho certeza mas acho que é o geito que eu to abrindo sabe não me lembro tem um que você abre o recordcount aparece -1 você lembra e outro que abre certo.
-
Bom vou colocar exatamente o que to fazendo pra você enteneder ok. <body> <!--#include file="strCon.asp"--> <% dim Conexao, strSql, strData call abreConexao() campos = "NoOs,DatCompromisso,DatSolicitada,idEmpresa,idTecnico,Status,HoraInicio,Danos" strSql = "Select " & campos & " from tabDTH where DatCompromisso = #" & cDate &"# order by idEmpresa,DatCompromisso" response.Write(strsql) response.End() if rsRota.State=1 then rsRota.Close rsRota.Open strSql, Conexao %> <form action="rotas.asp?atc=ok" method="post" name="frmRotas" id="frmRotas"> <table width="700" height="490" border="0" align="center" cellpadding="0" cellspacing="0" class="Tabela"> <tr> <td width="33" class="aviso"> </td> <td colspan="3" class="aviso"> </td> </tr> <tr> <td> </td> <td colspan="3" class="Texto">Ola<%=Session("Usuario")%> você está em <strong>Intranet DTH 25</strong> <strong>» Rotas</strong></td> </tr> <tr> <td> </td> <td colspan="3" class="Texto"> </td> </tr> <tr> <td> </td> <td width="56" class="Texto">Classificar:</td> <td width="96" class="Texto"><select name="mnuRota" class="campo" onchange="MM_jumpMenu('this',this,0)"> <option>Selecione</option> <option value="rotas.asp?atc=Geral"<%if Request.QueryString("atc")="Geral" then%>selected<%end if%>>Geral</option> <option value="rotas.asp?atc=Servico"<%if Request.QueryString("atc")="Servico" then%>selected<%end if%>>Servico</option> </select></td> <td width="313" class="Texto"> </td> </tr> <tr> <td colspan="4"> </td> </tr> <tr> <td colspan="4"><table width="99%" border="0" align="center" cellpadding="3" cellspacing="3" class="Tabela1"> <tr bgcolor="#FFFFFF"> <td width="10%" height="15" class="SubTitulo">Codigo</td> <td width="38%" align="center" class="SubTitulo">Empresa</td> <td width="05%" align="left" class="SubTitulo">Total</td> <td width="05%" align="left" class="SubTitulo">AB</td> <td width="05%" align="left" class="SubTitulo">AC</td> <td width="05%" align="left" class="SubTitulo">CA</td> <td width="05%" align="left" class="SubTitulo">NF</td> <td width="05%" align="left" class="SubTitulo">RP</td> <td width="10%" align="left" class="SubTitulo">H.Incío</td> </tr> <tr> <td colspan="9"><div><table width="98%" border="0" cellpadding="0" cellspacing="0" class="Tabela1"> <% if not rsRota.Eof then strIdEmpresa =0 do while not rsRota.Eof i=i+1 if i mod 2 = 0 Then Bg="#FFFFFF" else Bg="#5082B4" end if if strIdEmpresa = rsRota("idEmpresa") then %> <tr bgcolor="<%=Bg%>"> <td width="10%" height="24" class="SubTitulo"><%=rsRota("idEmpresa")%></td> <td width="38%" align="center" class="SubTitulo"> </td> <td width="05%" align="left" class="SubTitulo"> </td> <td width="05%" align="left" class="SubTitulo"> </td> <td width="05%" align="left" class="SubTitulo"> </td> <td width="05%" align="left" class="SubTitulo"> </td> <td width="05%" align="left" class="SubTitulo"> </td> <td width="05%" align="left" class="SubTitulo"> </td> <td width="10%" align="left" class="SubTitulo"> </td> </tr> <% else strIdEmpresa = rsRota("idEmpresa") end if rsRota.MoveNext loop else %> <tr> <td colspan="9" class="Texto">Não a rota atribuida</td> </tr> <% end if %> </table></div></td> </tr> </table></td> </tr> <tr> <td colspan="4"> </td> </tr> </table> </form> </body> </html> Quando eu dou o if not rsRota.eof then ele não entra entende?
-
Ola pessoal to aqui de novo me ajudem por favor. Sei que postei este tópico hoje mas estou com problema não consegui resolver. È o seguinte no banco access eu coloque um campo data com formato "Data Abreviada" e a mascara de entrada assim "00/00/0000;0;#" bom quando faço o insert ele vai beleza mas quando vou usar o select ele fala que não achou nenhum registro estou fazendo da seguinte maneira: <!--#include file="strCon.asp"--> <% dim Conexao, strSql, strData call abreConexao() campos = "NoOs,DatCompromisso,DatSolicitada,idEmpresa,idTecnico,Status,HoraInicio,Danos" strSql = "Select " & campos & " from tabDTH where DatCompromisso = #" & cDate &"# order by idEmpresa,DatCompromisso" response.Write(strsql) response.End() if rsRota.State=1 then rsRota.Close rsRota.Open strSql, Conexao %> quando dou o response ele me retorna da seguinte maneira. Select * from tabDTH where DatCompromisso = #10/12/2008# order by idEmpresa,DatCompromisso só que ele fala que não tem nenhum registro encontrado.
-
bom no formato coloquei "Data Geral" e a mascara de entrada esta asim "00/00/0000;0;#" Desculpe não entendi sobre gravar data em branco como tenho que fazer? Outra duvida não sei se fui claro quando coloco o if para saber se o campo do excell esta em branco mesmo que ele esta ele traz como se estive preenchido o que pode ser?
-
Galera to fazendo um sistema para um cliente e nele tenho que fazer uma importaçã do arquivo excel para base de dados access já ta fazendo ok beleza mas meu problema é que tem um campo data no excell que as vezes não ta sendo informado e ta dando erro de tipo de dados. Bom Percebi que é porque está com o campo data em branco como resolver isso, como verificar no asp se o campo data do excell esta em branco já tentei colocar assim: if rsDados(12) = Null then rsTabela("Data") = null else rsTabela("Data") rsDados(12) Ele continua dando erro. Outra duvida é na hora de dar um select usando o campo data, estou fazendo da seguinte maneira: strSql = "select * form tabela where data = '#" & Date & "#' order by idEmpresa,Data" rstabela.Open strSql,Conexao ele fala sempre que não há registro na tabela. Sendo que já gravei pelo menos 62 registro.
-
Ola galera to precisando de um sistema de busca em arquivos não base de dados por exemplo se o usuario digitar a palavra futebol ele busque em todo os arquivo do diretorio correspondente
-
Estou com o seguinte problem tenho algun sites feitos em asp que tem memus em flash e actionscript meu problema está que no micros com xp eles não abre esse menu. Estou com a corda no pescoço. alguém tem alguma rotina ou sabe me dizer por que não abre. Tenha por exemplo o site www.tmc.com.br