Ir para conteúdo
Fórum Script Brasil

cyberalexxx

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    2.500

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por cyberalexxx

  2. Arquivo Txt

    em ASP

    Postado

    acabei de testar aki e funcionou, só estava faltando aspas simples no insert o q não tem nada a ver com o erro q voce postou.

    Seu servidor ter suporte a FSO.

    <%
'aki voce coloca a sua string se conexão com o banco
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set principal = FSO.GetFolder("c:\lcom")
Set arquivos = principal.Files

For each arq in arquivos
  Set arquivo = FSO.OpenTextFile(arq,1)
     for x = 1 to 3
        linha3 = arquivo.Readline
        if x=3 then
           sql="Insert into tabela(campo) values ('" & linha3 & "')"
           'aki voce executa a instrução de acordo com sua conexão com o banco    
        end if
     next
   Set arquivo = nothing
Next
%>

  3. Erro No Conexao.execute(sql)

    em ASP

    Postado

    Além de textos, alguns campos são do tipo memorando e checkbox (sim/não).

    Quanto ao comprimento zero, vou dar uma olhada melhor e retorno. Obrigado.

    Se não tem campo numérico entaum sua sintaxe esta correta, vamos aguardar entaum o resultado sobre a estrutura da tabela.

  6. Erro No Conexao.execute(sql)

    em ASP

    Postado

    voce esta tentando gravar um dado incompativel com o tipo definido na estrutura da tabela, tipo gravando letras em campos numérios o colocando aspas simples em campos numéricos, ou deixando de colocar aspas em campos do tipo texto.

    para ficar mais facil achar o erro faça isso:

    <%

    user_name=request.form("user_name")

    password=request.form("password")

    f_name=request.form("f_name")

    l_name=request.form("l_name")

    cnpj=request.form("cnpj")

    ie=request.form("ie")

    addr1=request.form("addr1")

    city=request.form("city")

    state=request.form("state")

    postalcode=request.form("postalcode")

    phone=request.form("phone")

    email=request.form("email")

    fax=request.form("fax")

    Resp=request.form("resp")

    f_namefis=request.form("f_namefis")

    cpf=request.form("cpf")

    addr2=request.form("addr2")

    cityfis=request.form("cityfis")

    statefis=request.form("statefis")

    postalcodefis=request.form("postalcodefis")

    phonefis=request.form("phonefis")

    faxfis=request.form("faxfis")

    emailfis=request.form("emailfis")

    credenciado=request.form("credenciado")

    loja=request.form("loja")

    assist=request.form("assist")

    notes1=request.form("notes1")

    notes=request.form("notes")

    mailing_list=request.form("mailing_list")

    set conexao = server.createObject("adodb.connection")

    conexao.open "topcadastro"

    SQL = "Insert into users (user_name, password, f_name, l_name, email, addr1, addr2, city, cityfis, state, postalcode, postalcodefis, phone, notes, notes1, mailing_list, cnpj, ie, cpf, resp, assist, loja, fax, faxfis, f_namefis, statefis, phonefis, emailfis, credenciado)"

    SQL = SQL + "values('"+user_name+"','"+password+"', '"+f_name+"', '"+l_name+"', '"+email+"', '"+addr1+"', '"+addr2+"','"+city+"', '"+cityfis+"', '"+state+"', '"+postalcode+"', '"+postalcodefis+"', '"+phone+"', '"+notes+"', '"+notes1+"','"+mailing_list+"','"+cnpj+"','"+ie+"','"+cpf+"', '"+resp+"', '"+assist+"', '"+loja+"', '"+fax+"', '"+faxfis+"','"+f_namefis+"', '"+statefis+"', '"+phonefis+"', '"+emailfis+"', '"+credenciado+"')"

    response.write sql

    response.end

    conexao.execute(sql)

    conexao.close

    %>

    depois post o resultado aki pra gente avaliar

  9. Arquivo Txt

    em ASP

    Postado

    fiz isso aki meio correndo é só uma lógica, agora voce adapta a sua necessidade:

    <%
'aki voce coloca a sua string se conexão com o banco
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set principal = FSO.GetFolder("c:\pasta") 
Set arquivos = principal.Files

For each arq in arquivos
   Set arquivo = FSO.OpenTextFile(arq,1)
      for x = 1 to 3
         linha3 = arquivo.Readline
         if x=3 then
            sql="Insert into tabela(campo) values (" & linha3 & ")"
            'aki voce executa a instrução de acordo com sua conexão com o banco    
         end if
      next
    Set arquivo = nothing
Next 
%>

  14. Includes

    em ASP

    Postado

    acho que é isso aio que o pessoal chama deinclude virtual

    tenta colcoar pra sver se funciona... poe eo endereço completo inclindo o http

    Acho que não rola não

    A diferença do include file para o include virtual é que no file voce especifica o path fisico do arquivo e no virtual o path virtual, mas acredito que o arquivo tenha q estar no mesmo servidor.

  17. Update ....desculpe A InsistÊncia....

    em ASP

    Postado

    todos os campos são texto?? inclusive o campo codigo???

    caso o campo código seja texto, ta faltando uma aspa, tenta assim:

    strsql = "UPDATE Locador SET endereco = '"&endereco&"', nomeLocador = '"&nome&"', codigoLocador = '"&codigo&"', telefone = '"&telefone&"', email = '"&email&"', cpmf = '"&cpmf&"', cc = '"&cc&"' WHERE codigoLocador = '" & codigo & "'"

    Caso o campo código seja numérico, ta sobrando uma aspa, tenta assim:

    strsql = "UPDATE Locador SET endereco = '"&endereco&"', nomeLocador = '"&nome&"', codigoLocador = '"&codigo&"', telefone = '"&telefone&"', email = '"&email&"', cpmf = '"&cpmf&"', cc = '"&cc&"' WHERE codigoLocador = " & codigo

  18. Envio De E-mail

    em ASP

    Postado

    Para o GI chegou...para gmail,hotmail,yahoo e outros provedores não

    vai saber o que éeeeeeeeeeeeeeeeee

    vou reinstalar o cdonts néeeeeeeeeeeeeeeeeeeeeeeeeeeeee

    no caso do hotmail, voce verificou na pasta de lixo eletronico???

  19. Duvida Upload

    em ASP

    Postado

    Determinando o tamanho maximo do arquivo no dundas:

    objUpload.MaxUploadSize = 1000000

    Neste exemplo ele permitira arquivos de até 1 Mega (aproximado né, tem aquele lance de 1024 elevado a sei la o q)

  20. Max Do Max

    em ASP

    Postado

    é isso mesmo.... !! tongue.gif

    o problema é.... com dois sql .. como eu coloco ORDER BY !?!? posos colocar ele no sql2 ??

    o que faz esse 3,3

    RS.Open SQL,objconn,3,3

    sad.gif

    No order by o bicho pega, mais tenta assim no primeiro sql:

    sql="SELECT max(data) as dt, central FROM contrdiariooperadoras WHERE mes = 'abril/05' GROUP by central order by QtdeCadastrosAprov desc "

    quanto ao 3,3 é o tipo de cursor e tipo de trava do recordset, maiores detalhes em:

    http://scriptbrasil.com.br/forum/index.php?showtopic=46452

  21. P/ Sql Server

    em ASP

    Postado 

    # Standard Security:
"Driver={SQL Server};Server=Aron1;Database=pubs;Uid=sa;Pwd=asdasd;"


#  Trusted connection:
"Driver={SQL Server};Server=Aron1;Database=pubs;Trusted_Connection=yes;"


#  Prompt for username and password:
oConn.Properties("Prompt") = adPromptAlways
oConn.Open "Driver={SQL Server};Server=Aron1;DataBase=pubs;"

    Fonte: http://www.connectionstrings.com/

  23. Max Do Max

    em ASP

    Postado

    Eita trocinho chato!!

    Não sei se é minha cabeça q ta devagar mais ainda não consegui colocar tudo em uma instrução SQL só.

    Da uma olhada se o resultado q você quer é esse:

    pois vai q eu to tentando uma coisa e é outra.

    <style type='text/css'>
tr { background-color: #E4EAF2; font-color: #465584; font-family:Arial; font-size:12 }
.titulo { color: blue; font-size:10; font-family:verdana; font-weight:bold }
</style>

<%
response.write"<p class='titulo'>Melhores operadoras do dia<br><br>"

set objconn = Server.CreateObject("ADODB.Connection")
objconn.Open "Driver={mySQL}; Server=localhost; Port=3306; Option=0; Socket=; Stmt=; Database=lcom; Uid=root; Pwd=senha;"
SET RS = Server.CreateObject("ADODB.Recordset")
SET RS2 = Server.CreateObject("ADODB.Recordset")
sql="SELECT max(data) as dt, central FROM contrdiariooperadoras WHERE mes = 'abril/05' GROUP by central "
RS.Open SQL,objconn,3,3

response.write "<br><table><tr><td>Data</td><td>Central</td><td>Operadora</td><td>Cad. aprov.</td></tr>"
do while not rs.eof
   sql2="SELECT data, max(QtdeCadastrosAprov) as quant,central, operadora FROM contrdiariooperadoras WHERE mes = 'abril/05' and central='" & Rs("Central") & "' and data ='" & Rs("Dt") & "' group by central"
   RS2.Open SQL2,objconn,3,3
   Do While Not RS2.EOF 
      response.write "<tr><td>" & Rs2("data") & "</td><td>" & Rs2("central") & "</td><td>" & Rs2("operadora") & "</td><td>" & Rs2("quant") & "</td></tr>"
      RS2.MoveNext
   loop
   RS2.close
   Rs.Movenext
Loop
%>

    ai eu montei com duas sql só pra ver c é o resultado q você quer

×
×
  • Criar Novo...