Clauido José

Resolvi valeu vacilei agora rsrsrs

Ola pessoal tenho que sistema onde tem um campo Observação este campo vem de um arquivo importado do excell este campo no excell vem preenchido com alguns caracteres tipo (,#,', etc estava dando erro notei que é por causa desses caracteres como posso fazer um replace para trocar esses caracteres por espaço

Pessoal crei um sistema onde faço uma importação do exccel para o sql server bom ele tava funcionando beleza até ontem quando fomos importar um arquivo xls. O erro que ocrreu foi o seguinte. O gozado que o erro ocorre no rs.movenext, este sistema está hospedado na locaweb. segue o script da pagina. <!--#include file="strCon.asp"--> <% dim strTitulo,strTexto,strNew, Conexao, strSql,myVal call abreConexao() 'Cria um objeto para verficar o caminho o e nome do arquivo para importação Set objUpload = Server.CreateObject("Dundas.Upload.2") 'Cria conexão Planilha Set dbXLS = Server.CreateObject("ADODB.Connection") 'Começa a função para exportar o arquivo para excell dim i i = 0 'Configura o objeto com o tamanho do arquivo objUpload.MaxFileSize = 2114400 objUpload.UseUniqueNames = False strCaminho = "\DTH\PLANILHA" objUpload.Save Server.MapPath("\DTH\PLANILHA") strCaminho = objUpload.Files.Item("txFile").Path 'Response.Write(strCaminho) 'response.End() 'Abre o arquivo excell dbXLS.Open "Driver=Microsoft Excel Driver (*.xls);DBQ=" & strCaminho 'Cria um array para ler os dados da planilha excell Set rsXLS = dbXLS.OpenSchema(20) 'Posiciona o ponteiro no primeiro registro da tabela excell rsXLS.MoveFirst TabPrecos = rsXLS("TABLE_NAME") SQL = "Select * from [" & tabPrecos & "]" rsDados.open sql, dbXLS,1,1 if rsDados.recordCount>0 then 'Começa o loop para tranfirir o dados da tabela excell para o access. While not rsDados.eof sNoOs111=rsDados(0) sTipo_OS=rsDados(2) sProduto=rsdados(3) sCliente=rsdados(4) sEnderec=rsdados(5) sBairro1=rsdados(6) sCIDADE1=rsdados(7) sCep1111=rsdados(8) sES11111=rsdados(9) sTipo_Re=rsdados(10) sTermina=rsdados(11) sPeriodo=rsdados(13)'PERIODO sQtd_Pto=rsdados(14)'QTD PONTOS sTr_As_T=rsdados(15)'TAREFAS ASSIST. sRE11111=rsdados(16)'TECNICO sEmpresa=rsdados(17)'EMPRESA sStatus1=rsDados(18)'STATUS sContage=rsdados(23)'CONTAGEM sTecnico=rsdados(24)'TECNICO sObsServ=rsDados(25)'OBS DO SERVICO sTarefa1=rsdados(26)'TAREFAS sDescric=rsDados(29)'DESCRICAO sResulta=rsDados(30)'RESULTADO sServico=rsDados(31)'SERVICO sN111111=rsdados(34)'NO sPacote1=rsdados(42)'PACOTE sObserva=rsdados(43)'OBSERVACAO sAge1111=rsdados(44)'AGE sAltEmpr=rsdados(47)'ALTERA EMPRESA sAltTecn=rsdados(46)'ALTERA TECNICO sidServi=rsdados(50)'SERVICO sNoOsGar=rsdados(51)'NO GARANTIA sTecGara=rsDados(53)'TEC GARANTIA if Trim(rsDados(04))<>"" then sCliente = Replace(rsDados(04),"'","´") else sCliente = rsDados(04) end if if Trim(rsDados(05))<>"" then sEnderec = Replace(rsDados(05),"'","´") else sEnderec = rsDados(05) end if if Trim(rsDados(06))<>"" then sBairro1 = Replace(rsDados(06),"'","´") else sBairro1 = rsDados(06) end if if Trim(rsDados(07))<>"" then sCidade1 = Replace(rsDados(07),"'","´") else sCidade1 = rsDados(07) end if if Trim(rsDados(08))<>"" then sCep1111 = Replace(rsDados(08),"'","´") else sCep1111 = rsDados(08) end if if Trim(rsDados(09))<>"" then sEstado1 = Replace(rsDados(09),"'","´") else sEstado1 = rsDados(09) end if if Trim(rsDados(10))<>"" then sTipoRes = Replace(rsDados(10),"'","´") else sTipoRes = rsDados(10) end if if Trim(rsDados(11))<>"" then sTermina = Replace(rsDados(11),"'","´") else sTermina = rsDados(11) end if if Trim(rsDados(13))<>"" then sPeriodo = Replace(rsDados(13),"'","´") else sPeriodo = rsDados(13) end if if Trim(rsDados(14))<>"" then sQtd_Pto = Replace(rsDados(14),"'","´") else sQtd_Pto = rsDados(14) end if if Trim(rsDados(15))<>"" then sTr_As_T = Replace(rsDados(15),"'","´") else sTr_As_T = rsDados(15) end if if Trim(rsDados(25))<>"" then sObsServ = Replace(rsDados(25),"'","´") else sObsServ = rsDados(25) end if if Trim(rsDados(26))<>"" then sTarefa1 = Replace(rsDados(26),"'","´") else sTarefa1 = rsDados(26) end if if Trim(rsDados(29))<>"" then sDescric = Replace(rsDados(29),"'","´") else sDescric = rsDados(29) end if if Trim(rsDados(30))<>"" then sResulta = Replace(rsDados(30),"'","´") else sResulta = rsDados(30) end if if Trim(rsDados(42))<>"" then sPacote1 = Replace(rsDados(42),"'","´") else sPacote1 = rsDados(42) end if if Trim(rsDados(43))<>"" then sObserva = Replace(rsDados(43),"'","´") else sObserva = rsDados(43) end if if Trim(rsDados(47))<>"" then sAltEmpr = Replace(rsDados(47),"'","´") else sAltEmpr = rsDados(47) end if if Trim(rsDados(46))<>"" then sAltTecn = Replace(rsDados(47),"'","´") else sAltTecn = rsDados(44) end if if sQtd_Pto="" then sQtd_Pto=0 end if 'Procura o estado do Cliente na tabela de Estado strSql = "Select * from tabEstados where Estado = '" & rsDados(09) & "'" rsEstado.Open strSql, Conexao if rsEstado.Eof then strEstado = "São Paulo" strSql = "Select * from tabEstados where Estado = '" & strEstado & "'" if rsEstado.State = 1 then rsEstado.Close rsEstado.Open strSql, Conexao if not rsEstado.Eof then sIdEstad = rsEstado("idEstado") else sIdEstad = rsEstado("idEstado") end if rsEstado.close 'Procura a cidade do Cliente na Tabela de Cidade strSql = "Select * from tabCidades where Cidade = '" & rsDados(7) & "'" 'response.Write(strSql) 'Response.End() if rsCidade.State = 1 then rsCidade.Close rsCidade.open strSql, Conexao if Not rsCidade.Eof then sIdCidad = rsCidade("idCidade") rsCidade.Close 'Procura se cliente já esta cadastro na tabela de Cliente e grava novo ou atualiza os dados strSql = "Select * from tabCliente Where NomeCliente = '" & rsDados(4) & "'" if rsCliente.state = 1 then rsCliente.close set rsCliente = Conexao.Execute(strSql) if rsCliente.Eof then dim Campos Sql = "Insert Into tabCliente (NoOs,NomeCliente,Endereco,Bairro,Cep,idCidade,IdEstado,TipoResidencia) values (" Sql = Sql & sNoOs111 & ",'" & sCliente & "','" & sEnderec & "','" & sBairro1 & "','" & sCep1111 & "'," Sql = Sql & sIdCidad & "," & sIdEstad & ",'" & sTipoRes & "')" 'Response.Write(sql) 'Response.End() Conexao.Execute(Sql) end if 'Procura o id do Cliente na tabela de Clientes strSql = "Select * from tabCliente where NomeCliente = '" & rsDados(4) & "'" if rsCliente.State = 1 then rsCliente.close set rsCliente = Conexao.Execute(strSql) IF rsCliente.Eof then sIdClie =0 else sIdClien=rsCliente("idCliente") 'Procura o id do Tipo da Os na tabela de TipoOs strSql = "SELECT tabTipoOs.idTipoOs, tabTipoOs.Descricao FROM tabTipoOs " strsql = strSql & " where tabTipoOs.Descricao = '" & rsDados(2) & "'" if rsTipoOs.State = 1 then rsTipoOs.Close rsTipoOs.Open strSql,Conexao, 1,1 if not rsTipoOs.eof then sIdTipOs = rsTipoOs("idTipoOs") else strSql = "Insert into tabTipoOs (Descricao) values ('" & rsDados(2) & "')" 'response.Write(strSql) 'response.End() Conexao.Execute(StrSql) 'Procura o id do Tipo da Os na tabela de TipoOs strSql = "SELECT tabTipoOs.idTipoOs, tabTipoOs.Descricao FROM tabTipoOs " strsql = strSql & " where tabTipoOs.Descricao = '" & rsDados(2) & "'" if rsTipoOs.State = 1 then rsTipoOs.Close rsTipoOs.Open strSql,Conexao, 1,1 if not rsTipoOs.eof then sIdTipOs = rsTipoOs("idTipoOs") end if end if 'Procura o id do Produto na tabela de Produtos strSql = "Select * from tabProdutos where DescricaoProduto ='" & rsDados(3) & "'" set rsProdutos = Conexao.Execute(strSql) if rsProdutos.eof then sIdProdu = 0 else sIdProdu = rsProdutos("idProduto") end if strSql = "Select * from tabStatus where CODIGO = '" & rsDados(18) & "'" set rsStatus = Conexao.Execute(StrSql) if rsStatus.Eof then sIdStatu = 0 elseif not rsStatus.Eof then sIdStatu = rsStatus("idStatus") end if rsStatus.Close 'Procura o id do Servico if sServico = " " then sServ ="Inst" else sServ= rsDados(50) end if strSql = "Select * from tabServico where Codigo = '" & sServ & "'" 'Response.Write(strsql) 'Response.End() set rsServico = Conexao.Execute(strSql) if rsServico.eof then sidServi = 0 elseif not rsServico.eof then sidServi = cint(rsServico("idServico")) end if rsServico.close if rsBusca.State=1 then rsBusca.Close strSql = "Select * from tabDth where NoOs = " & sNoOs111 & " and DatCompromisso='" &(sDatComp) & "'" rsBusca.Open strSql,Conexao,1,1 scodServ="INST" if rsBusca.RecordCount=0then Campos = "Terminal,Periodo,QtdPontos,TarAssisTecnico,ObsServico,Tarefa,Descricao,Resultado,Pacote,Observacao," campos = campos & "AGE,codservico,idServico,idStatus,ContagemDia,NoOs,idTipoOs,idProduto,idCliente,idempresa,idTecnico" if trim(rsDados(1)) <> Null or trim(rsDados(1)) <> " " then campos = campos & ",DatCompromisso" end if if trim(rsDados(12)) <> Null Or trim(rsDados(12)) <> " " then campos = campos & ",DatSolicitada" end if if left(sTermina,5) = "(011)" then sTermina = "011-" & right(sTermina,8) 'Response.Write(sTermina) 'Response.end() tabela="tabDth" 'nome da tabela que ira receber os dados sql = "insert into " & tabela & "(" & campos & ") values ('" sql = sql & sTermina & "','" & sPeriodo & "','" & sQtd_Pto & "','" & sTr_As_T & "','" sql = sql & sObsServ & "','" & sTarefa1 & "','" & sDescric & "','" & sResulta & "','" sql = sql & sPacote1 & "','" & sObserva & "','" & sAge1111 & "','" & sCodServ & "'," sql = sql & sidServi & "," & sidStatu & "," & sContage & "," & sNoOs111 & "," sql = sql & sIdTipOs & "," & sIdProdu & "," & sIdClien & "," & 0 & "," & 0 if trim(rsDados(1)) <> Null or trim(rsDados(1)) <> " " then dia = day (rsDados(1)) mes = month (rsDados(1)) ano = year(rsDados(1)) sDatComp=(ano&"/"&mes&"/"&dia) sql = sql & ",'" & (sDatComp) & "'" end if if trim(rsDados(12)) <> Null or trim(rsDados(12)) <> " " then dia = day(rsdados(12)) mes = month(rsdados(12)) ano = year(rsdados(12)) sDat_sol=(ano&"/"&mes&"/"&dia) sql = sql & ",'" & (sDat_sol) & "'" end if sql = sql & ")" Conexao.Execute(sql) end if i = i + 1 rsDados.moveNext wEnd 'end if status = "O arquivo foi importado com sucesso" end if data = now() dia = day(data) mes = month(data) ano = year(data) sdata = ano & "/" & mes & "/" & dia sHora = time() status="Usuário foi salva com sucesso" campos = "idUsuario,idEmpresa,Data,hora,Descricao" valores = session("idUsuario") & "," & session("idEmpresa") & ",'" & sData & "','" & sHora & "','" valores = valores & "Impora At Externa'" strSql="insert into tabLogui (" & Campos & ") values (" & valores & ") " Conexao.Execute(strSql) call fechaConexao() set rsDados=Nothing set rsCliente=Nothing set rsProdutos=Nothing set rsStatus=Nothing set rsServico=Nothing %> <script>document.location.href="importarxls.asp"</script>

não funciono ainda o gozado é que no recordset traz a hora em branco mas não faz atualização da hora.

bom é seguinte na tela de inclusão eu tenho uma opção para gravar um dados em uma tabela e mostrar um grid, beleza o que eu quero é na atualização mostre essa pagina com o recordset aberto no projeto escolhido. Desculpe não sei o que é FSO

Ola pessoal to com uma duvida estou desenvolvendo um sistema para empresa que eu trabalho, bom ta tudo beleza, mas na tela atualização tenho que implementar uma pagina com o include file o não sei se tem algum outro comando do asp para fazer, isso nessa pagina eu abro um recordset com um registro do projeto que tem que atualizar, com posso requestar o numero do projeto que tenho que atualizar já que são paginas diferente e tenho que abrir na mesma pagina.

Ola pessoal fiz um sistema que importa dados do exccell para sql server bom tenho varios cabeçalhos que importo, só que não sei porque tem alguns que não importa ele abre o arquivo xls como os dados certo dei um response.write(rs.RecordCount) pra ve se tava tranzendo a quandidade certa de registro do arquivo xls bom ele traz certo não mas não entra no loop. Porque sera vou postar o codigo

Ola pessoal não sei o que ta acontece no meu sql server 2008 baixei a versão free da microsoft e instalei na minha maquina. Bom aparentemente está ok. Criei algumas tabelas importei alguns bancos do access tudo beleza, mas pra minha supresa quando vou alterar um campo de uma tabela com registro por exemplo um nvchar que ta com tamanho de 50 e passar para 100 o sql server fala que nosso posso fazer alteração e que tenho que criar uma tabela nova. Isso é normal no Sql, porque isso acontece?

Era o formato da data mesmo tive que colocar YYYY/MM/DD

tentei o isnull ou len não funcionou continua sem fazer a atualização como se tivesse campo preenchido

não vai ficar na locaweb

Ola pessoal to com um probleminha aparentemente facil mas que ta me quebrando a cabeça Tenho uma tabela onde tem uma campo horainico, quando entro no sistema ele tem que verificar se a hora ta em branco se tiver ele faz um update com a hora do sistema. Só que mesmo que o campo estiver em branco ele não entra não rotina já dei um response.write pra ver o valor do banco ele aparece em branco. Segue o codigo:

valeu os topicos me ajudaram já estou resolvendo isso value

Ola pessol é seguinte finalmente terminei um sistema em asp uma intranet que vai rodar em todas as filiais aqui na empresa fico legal, minha duvida o pessoal aqui perguntou como se faz para patentiar esse sistema, precisava tb algum codigo para cipitofar o html alguém pode me ajudar?

value era data mesmo consegui resolver Tive que alterar a data para YYYY-MM-DD funciono legal e olha fique dois dias pra resolver rsrs valeu

bom estou com um problemão aqui tenho que fazer select, insert e update com campos datetime do sql sever 2008 uma pegando a data do sistema a outra é pegando uma data digitada como posso fazer isso não manjo muito de sql sever 2008 Pessoal to quebrando a cabeça aqui to inserindo um campo dateTime no Sql Server 2008 to usando asp com disse mas eu quebrei a data do sisetema da seguinte maneira porque sei que ele entende data asimm "yyyy-mm-dd hh:mm:ss" certo? Erro que aparece. Pessoal to precisando muito dessa ajuda preciso terminar este sistema e parece que ninguém grava data no sql server porque não achei nada nos forun da vida beleza valeu um braço desculpe se estou colocando muitas mensagem é que to precisando mesmo.

cara é data do sistema e data e de um campo data do banco de dados que tenho que buscar.

Ola pessoal estou com um problemao tive que migra o Access para Sql Server estou com problemas no select e insert e updates da vida ta dando erro nos campos data como gravar data no Sql Server. O sistema está feito asp que pode me ajudar?

Ola pessoal estou com um problemao tive que migra o Access para Sql Server estou com problemas no select e insert e updates da vida ta dando erro nos campos data como gravar data no Sql Server

Qual a sua duvida? O erro que ta dando no script?

Ola pessoal estou com um problema tenho que trazer dentro de uma textbox um valor fixo que o usuario não podera alterar porque quando uso o requesto.form ele não traz este valor estou fazendo assim <input name="txCliente" type="text" class="campo" id="txCliente" disabled="disabled" value="TELECOMUNICA&Ccedil;&Otilde;ES SP S/A TELESP" size="35" maxlength="50">

mas o erro não ta na locaweb eu fiz o download do componete para instalar no meu pc o erro é no meu pc não na locaweb

Ola pessoal to um problema aqui pra resolver tenho que gerar um relatorio para meu sistema que fiz em asp, bom optei pelo componente "ASPPDF" bom entrei na locaweb e peguei um exemplo dele pra poder gerar o pdf, bom pra minha supresa ou melhor pra minha dor de cabeça aumentar ta dando um erro na linha 24 vou postar o erro em seguida o codigo ok.alguém pode me ajudar agradeço desde já. Erro. Ai vai o codigo. <!— Formulário html onde será informado o 'texto' a ser inserido no arquivo PDF a ser gerado ---> <html> <head> <title>AspPdf</title> </head> <body> <form action="" method="post"> <b>Insira aqui um texto qualquer:</b><br> <textarea name="texto" cols="80" rows="16"></textarea><br> <input type="submit" name="Save" Value="Gerar PDF"> </form> <!-- Fim do formulário html --> <!-- Início do script ASP ---><% 'Caso o formulário tenha sido enviado If request.form("texto") <> "" Then 'Declara as variáveis a serem utilizadas no script Dim AspPdf, Doc, Page, Font, Text, Param, Filename, CharsPrinted 'Instancia o objeto na memória SET AspPdf = Server.CreateObject("Persits.Pdf") SET Doc = AspPdf.CreateDocument 'O ERRO SE DA NESSA LINHA OK 'Define o tamanho da folha em milímetros SET Page = Doc.Pages.Add( 216, 280 ) 'Define o tipo de fonte a ser utilizada SET Font = Doc.Fonts("Times-Roman") 'Obtem o texto informado no formulário html Text = Request.Form("texto") 'Define os parâmetros de alinhamento: X, Y do canto superior esquerdo ao lado inferior direito, altura, largura e tamanho da fonte. SET param = AspPdf.CreateParam("x=10;y=270;height=260;width=196; size=10;") Do While Len(Text) > 0 CharsPrinted = Page.Canvas.DrawText(Text, Param, Font ) If CharsPrinted = Len(Text) Then Exit Do SET Page = Page.NextPage Text = Right( Text, Len(Text) - CharsPrinted) Loop 'Define o nome do arquivo PDF a ser gerado Filename = Doc.Save( "e:\home\SEU_LOGIN_FTP\web\asppdf\texto.pdf", False ) 'Para quem utiliza serviços da REVENDA conosco 'Filename = Doc.Save("E:\vhosts\DOMINIO_COMPLETO\httpdocs\asppdf\texto.pdf", False ) response.write "<font color='blue'><b>Arquivo gerado com sucesso!</b></font>" response.write "<br>Clique <a href=" & Filename & " target='_blank'>aqui</a> para visualizar o arquivo." SET AspPdf = Nothing SET Doc = Nothing SET Page = Nothing SET Font = Nothing SET Param = Nothing End If %><!-- Fim ASP ---> </body> </html>

È banco mesmo instaleio 2003 na maquina do cliente e funcionou beleza resolvi valeu

O resultado da query Isso que é estranho na meu pc funcionou certo fiz até umas atualizações sera que é porque no meu pc é access 2003 e aqui 2000:?