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

  3. Atualizar Uma Base Access Usando Txt E Asp

    em ASP

    Postado

    O que eu tinha em mente seria o seguinte:

    supondo a seguinte tabela:

    nome(varchar)

    idade(Int)

    endereço(varchar)

    supondo o seguinte arquivo texto:

    arquivo.txt

    Dino da Silva Sauro;50000;Caverna

    Bob Esponja;10;Fundo do Mar

    Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set arquivo = FSO.OpenTextFile("c:\arquivo.txt",1)

Do while arquivo.AtEndOfStream=false
   linha = arquivo.Readline
   campo = split(linha,";")
   sql = "Insert into tabela (nome,idade,endereco) Values('" & campo(0) & "', " & campo(1) & ", '" & campo(2) & "')"
   conecta.execute(sql)
loop

    mais ou menos isso!!

  7. Sistema De Administração De Empresa

    em ASP

    Postado

    Mesmo achando que seu cliente ficou louco, pois se a empresa fosse minha eu iria querer um sistema desktop dentro da empresa e as funções externas como implantação de pedidos por parte dos vendedores poderia ser feita através de acesso remoto ao meu servidor. Mais caso a empresa não seja muito grande e o Kara tenha Host próprio com IP fixo pode até rodar legal.

    Segue algumas dicas:

    Como já disse anteriormente não de preço sem conhecer a empresa, diga que vai mandar um consultor para avaliar o projeto, sendo assim o ideal é conhecer toda a rotina administrativa da empresa vai ajudar muito na lógica de programação e você vai ganhar tempo depois.

    Estruture o sistema por modulos (contas a pagar, contas a receber) fica mais facil a manutenção.

    exemplo de lógica:

    comece estruturando as tabelas e analisando os relacionamentos.

    exemplo de um sistema em funcionamento:

    O cliente faz um pedido:

      1 cadastro de clientes

      2 cadastro de produtos

      3 digitação de pedido

      4 geração do orçamento

    para aprovar o pedido do cliente:

      1 Area de crédito tem que analisar a ficha do cliente (histórico)

      2 Area de crédito muda o status do pedido (liberado ou reprovado) quando o pedido é liberado:

      1 Gerar ordem de produção

      2 Em alguns casos é necessário formar o carregamento para expedição

      3 Baixar o estoque dos produtos do pedido

      4 Gerar a nota fiscal

      5 Gerar lançamentos contábeis (livro fiscal saida de mercadorias) - Normalmente isso não é feito online e sim criada uma rotina que faz esse processo dentro do periodo informado

      6 Gerar os documentos no contas a receber de acordo com a condição de pagamento especificada no pedido.

    isso é um pedacinho do sistema e viu a trabalheira que dá??

    Qualquer duvida que tiver na parte de regra de negócios me avise que tenho bastante experiencia com isso.

    []'s

  8. Sistema De Administração De Empresa

    em ASP

    Postado

    Você vai fazer isso em ASP???

    Isso é ERP (Enterprise Resource Planning)!! Ta muito caro isso no mercado, pesquise por SAP, Oracle, Magnus/EMS (Datasul), Microsiga e por ai vai. são sistemas integrados para gestão de negócios, normalmente são vendidas licensas dos modulos do sistema como contabilida, estoque, faturamento, contas a pagar, contas a receber, caixas e bancos, chão de fábrica.

    Seria melhor voce usar alguma linguagem desktop com um banco de dados bem robusto para fazer isso.

    Desenvolvi algo bem inferior (bem inferior mesmo!!) a isso q você quer em VB no mes passado só que não vendi o sistema, fechei com o cara uma licença de uso por R$ 250/mes com direito a 8 hs tecnicas/mes para futuras adequações do sistema com a necessidade dele.

    Outro toque, não se atente somente às horas de programação, pois para fazer isso voce vai precisar passar um bom tempo no cliente para ver as "regras de negócio" do mesmo.

    qualquer coisa entre em contato!!

  10. Global Asa

    em ASP

    Postado

    OBRIGADO CEH!

    Que eu saiba executa uma função que eu queira em um determinado momento ex:

    CODE 

    <script LANGUAGE=VBScript RUNAT=server>

    sub session_onStart()

    'faz alguma coisa cada vez que entra um usuario

    end sub

    sub session_onEnd()

    'faz alguma coisa cada vez que sai um usuario

    end sub

    </SCRIPT>

    [ ]'s

    OUTRA PERGUNTA!

    Nas partes em vermelho q destaquei, é possivel fazer um include? ou c não, fazer conexao com BD?

    VLW

    Pode sim!!

  13. Tem Como?

    em ASP

    Postado

    E ai alguém se candidata a resolver.

    vocês saberiam me dizer se tem como eu substituir um valor. Calma eu explico

    vejam o site me reporta o valor de: 231.1999

    Oque eu quero é uma expressão que diga que quando o valor for:231.1999 mostrar 24,50 entenderam?

    É a mesma coisa de 1+1=3

    Espero que possam me ajudar

    Estamos chegando perto

    Abraços

    não da pra simplesmente comparar?

    if valorretornado = "231.1999" then
   valor = 24,50 
end if

  14. Localizar Um Caracter

    em ASP

    Postado

    ASP
    valores=split(variavel,",")

    for each item in valores

    Response.Write valores

    next

    só não tenho 100% de certeza na sintaxe do for each mas acho que asism funciona

    abraços

    é quase isso:

    valores=split(variavel,",")

    for each item in valores

      Response.Write item

    next

  15. Teste De Q. I.

    em Outros Assuntos

    Postado

    já que o negócio é logica segue abaixo um enigma:

    1 - Voce vai resgatar uma princesa em um castelo

    2 - Existem dois guardas na entrada no castelo

    3 - Um guarda só fala a verdade

    4 - O outro guarda só mente

    5 - Voce não sabe quem é o mentiroso

    6 - Existem duas portas de acesso ao castelo

    7 - Uma porta leva a morte

    8 - a outra porta leva a prinicesa

    9 - Voce tem o direito de fazer 1 pergunta a 1 só dos guardas sem saber quem é quem.

    10 - Que pergunta voce faria para descubrir onde esta a princesa???

    esse é Florida!! alguém se propoe! é pura lógica. se achar que sabe comente aki e me mande a resposta por PM pra não perder a graça.

  16. Checkbox No Banco

    em ASP

    Postado

    Se é que eu te entendi o ideal seria criar uma função para fazer a validação:

    function valida(campo)
   if campo = "sim" then
      valida = "xxxx"
   else
      valida = ""
   end if
end function
    para usar 
    response.write valida(rs("campo"))
response.write valida(rs("campo2"))

  17. Funcao Que Me Retorne O Dia Da Semana

    em Visual Basic

    Postado

    fiz rapidinho, texta ai:

    function diadasemana(dia)
   dias="domingo,segunda,terça,quarta,quinta,sexta,sabado"
   diaextenso=split(dias,",")
   diadasemana=diaextenso(Weekday(dia)-1)
end function
    Pode ser mais simples ainda: 
    MsgBox WeekdayName(Weekday(Date))

    Abraços,

    Graymalkin

    boa!!!

    isso que eu fiz é mania de ASP, pois você nunca sabe em q pais o cliente vai hospedar o site (versão do S.O.) sendo assim sempre fiz as funções na unha para português.

    []'s

  19. Duvida No Rs.close

    em Visual Basic

    Postado

    é isso mesmo ...

    muito obrigado pela sua ajuda.

    Agora gostaria de saber como faço para limitar a 4 digitos, ou seja o utilizador não pode introduzir menos ou mais que 4 digitos.

    E como faço para não deixar introduzir texto no text do pin ??

    cumprimentos,

    antes de gravar faça isso, ou então coloque no onchange do campo PIN

    pin = txtpin.text
if len(pin) <> 4 or isnumeric(pin) = false then
   msgbox "PIN Invalido!" & VbCtrlf & "Digite 4 numeros no campo PIN!", vbCritical
   txtpin.SetFocus
   exit sub
end if

  20. Global Asa

    em ASP

    Postado

    bom... tava lendo sobre global.asa, CORRIJAM-ME CASO EU TENHA ME EQUIVOCADO:

    o global.asa apenas armazena uma condição, certo?

    na qual DEPENDE mesmo assim q alguém acesse algum script q verifique q a condição do global.asa c satisfaz ou não;

    PARA ENTÃO RODAR...

    É ISSO?

    também acho q seja isso, para poder funcionar alguém tera que acessar o site!!

  21. Duvida No Rs.close

    em Visual Basic

    Postado

    Seria isso???

    Dim rs As New ADODB.Recordset
    pin = txt_pin.Text
    matricula = txt_matricula.Text
    sql = "SELECT * FROM users WHERE pin = '" & pin & "'"
    Set rs = conn.Execute(sql)
            
    If rs.EOF And rs.BOF Then
        Dim botao As Integer
        botao = MsgBox("Sera incluido novo PIN, confirma?", vbYesNo + vbQuestion, "Novo PIN")
        If botao = vbYes Then
            sql = "INSERT INTO Users (Login, Password) VAlUES(" & matricula & ", '" & pin & "')"
            conn.Execute (sql)
        Else
            Exit Sub
        End If
    Else
        MsgBox "PIN já existe!", vbCritical
        Exit Sub
    End If
Set rs = Nothing

  23. Duvida No Rs.close

    em Visual Basic

    Postado

    de uma olhada na parte em vermelho:

    Dim rs As New Recordset

      rs.Open "SELECT Login, Password FROM Users", conn, adOpenDynamic, adLockOptimistic

      pin = txt_pin.Text

      matricula = txt_matricula.Text

      While Not rs.EOF

          If rs.Fields("Login") <> matricula Then

              rs.Open "INSERT INTO Users (Login, Password) VAlUES(" & matricula & ", '" & pin & "')", conn, adOpenDynamic, adLockOptimistic

            Else

              MsgBox "PIN Existente", vbInformation

          End If

      rs.MoveNext

      Wend

      rs.Close

    Voce esta abrindo o objeto Rs dentro do loop do próprio objeto Rs isso é estranho, nunca vi, tenta assim:

    Dim rs As New Recordset

      rs.Open "SELECT Login, Password FROM Users", conn, adOpenDynamic, adLockOptimistic

      pin = txt_pin.Text

      matricula = txt_matricula.Text

      While Not rs.EOF

          If rs.Fields("Login") <> matricula Then

              conn.execute("INSERT INTO Users (Login, Password) VAlUES(" & matricula & ", '" & pin & "')")

            Else

              MsgBox "PIN Existente", vbInformation

          End If

      rs.MoveNext

      Wend

      rs.Close

×
×
  • Criar Novo...