Ir para conteúdo
Fórum Script Brasil

Decio

Membros
  • Total de itens

    797
  • Registro em

  • Última visita

Tudo que Decio postou

  1. Decio

    Recuperar Valor Do Bd

    Tente alguma coisa assim, só pra ver no que da: Comp1=CStr(Trim(ManipulaDB("Cp_tipo"))) if Ucase(Comp1) = "AC" then response.write "Igual" else response.write "Diferente" end if
  2. Decio

    Conexão Com Bd Sql Via Asp

    Tranquilo , vai da interpretação de cada um . Abraços.
  3. Decio

    Recuperar Valor Do Bd

    Qual o tipo do campo? Cp_tipo tem que ser do tipo char e o valor a ser comparado deve estar entre aspas: if ManipulaDB("Cp_tipo") = "AC" then .... ou usar a função strcomp para comparar strings que vai ter o mesmo efeito.
  4. Decio

    Conexão Com Bd Sql Via Asp

    Desculpe , mas conexão com SQL não seria algo assim?: <% Set con = Server.CreateObject("ADODB.Connection") con.ConnectionString = "driver={SQL Server};" & _ "server=NomeServidor;" & _ "database=NomeBancoDeDados;" & _ "Uid=NomeLoginDoBancoDeDados;" & _ "Pwd=SenhaDoBanco;" con.open %>
  5. Decio

    Erro Estranho

    Tente mudar o nome data para outro. talves o interpretador esteja pensando que Data é um tipo de várivel e da erro.Sei lá...
  6. Decio

    Envio De Email Com Anexo

    Tinha um tópico para este assunto , como não foi fechado não sei se o que foi sugerido resolveu o problema.Mas veja se ajuda: http://scriptbrasil.com.br/forum/index.php...wtopic=9570&hl=
  7. Tenta assim... Mailer.AddBCC "fulano@xxxxx.com.br" 'Com cópia oculta Mailer.AddCC "fulano@xxxxx.com.br" 'Com cópia para.. se não funcionar avisa ai.
  8. Decio

    Select Count(*)

    Tenta fazer desta forma: Set objRS2 = Server.CreateObject("ADODB.Recordset") strrs = "SELECT * from bo" objRS2.CursorType = 3 objRS2.open strRS, conn, 3, 3 totalregistros = objRS2.recordcount
  9. Decio

    Newsletter

    você precisa usar o FSO (FileSystemObject) da uma olhada neste exemplo básico: http://www.imasters.com.br/web/conteudo/se...702&codsecao=33 No caso caso você vai fazer um loop até chegar no fim do arquivo.
  10. Decio

    Desmembrar Uma String

    Da uma olhada no comando Split , ele separa a string e cria um indice a partir de um indicador , no caso o ";" Só não faço um exemplo agora porque não estou bem lembrado do comando em ASP Acho que é + ou - assim: arrItem = Split(rs("emails"), ";") Response.Write arrItem(0) Response.Write arrItem(1) , etc...
  11. E se você colocasse um check box (Salvar ou enviar ao servidor) por exemplo e fizesse o redirecionamento depois que o formulario fosse enviado? neste caso , você poderia repassar os valores atraves de Querystring.
  12. Decio

    Erro De Instrucao Sql

    O erro esta na sua váriavel . você colocou aspas. Retire as aspas que deve funcionar. set rslivros = coneditora.execute("strsql")
  13. Decio

    Tutorial

    Tutorial eu não tenho nenhum que vale a pena. Quanto as outras perguntas, na máquina que vai rodar a sua aplicação não precisa do Sql instalado, mas em algum lugar vai ter que ter não é? ou seja a resposta é :você precisa de um servidor com o SQL instalado. Uma boa alternativa é usar o MySql ( http://www.mysql.com ) para Windows , que é um excelente banco de dados e é free.
  14. Achei legal o visual. Muito bom.Parabéns. PS: Urso.louco , claro que existe um local especifico para avaliação de sites , mas a intenção do nosso colega era mostrar o site a quem o ajudou nas dificuldades.
  15. Decio

    Poste A Sua Opnião

    Outro detalhe que reparei é que muitas pessoas respondem a mesma coisa em um mesmo tópico ou seja , a pergunta já esta respondida e o camarada responde a mesma pergunta com a mesma resposta que já foi dada.
  16. O SQL gera um arquivo com o banco de dados, mas para acessar você precisa ter o serviço (SQL) instalado. Para fazer uma conexão basta usar a string de conexão: <% Set con = Server.CreateObject("ADODB.Connection") con.ConnectionString = "driver={SQL Server};" & _ "server=NomeServidor;" & _ "database=NomeDatabase;" & _ "Uid=Usuario;" & _ "Pwd=Senha;" con.open %> Se você usa na sua máquina sem servidor basta trocar o nome do servidor por LocalHost ou 127.0.0.1 Isto resolve?
  17. Decio

    Listar Upload

    Nunca usei este componente , mas para pegar o nome do que foi copiado deve ser só ver qual o nome da caixa de texto e recuperar no outro form com o Request.Form("NomeDaCaixaDeTexto")
  18. Decio

    Portas Seriais

    O mais fácil é desenvolver um componente em VB que faça o acesso a porta serial.O problema de usar componentes é que precisam ser registrados na máquina cliente, ou não vai funcionar. Mas pode ser que o seu cliente tenha alguma solução para a sua proposta. Em todo caso , existem no mercado leitoras que funcinam tanto na serial como em conector ps2(do teclado) e se for o caso , é mais facil pegar os dados. O que eu posso fazer para te ajudar é o seguinte : você passa o protocolo de comunicação da leitora , e eu crio um componente simples em VB, que recebe qualquer coisa pela serial , apenas para ver se funciona. A solução em VB.Net apresentada por outro colega, parece ser a melhor opção , mas neste caso não posso lhe ajudar muito , pois não é a minha praia, e é preciso ver se seu cliente tem recursos para rodar páginas ASPx. Abraço.
  19. Decio

    Portas Seriais

    Em ASP não é possível fazer isto. Como você vai distribuir sua aplicação para o cliente ? Em ASP , HTML , um aplicativo ?? . Eu tenho um pouco de experiencia com porta serial usando o VB. Talvez eu possa te ajudar.Explique melhor o que precisa.
  20. O que eu acho também que pode estar acontecendo é o seguinte: No seu projeto em VB , faça refêrencia ao microsoft DAO 3.6 Object Library. Tudo vai funcionar bem a não ser o Data Control que não aceita o formato do Access 2000. Para solucionar este problema , você deve usar o ADO Data Control .
  21. Decio

    Como Calcular Juros

    Após pegar as informações digitadas você pode usar um código + ou - assim: <% Dim preço, parcela, juros, total preço = 20 parcela = 5 juros = 10 'Os valores acimas são apenas exemplo total = (((preço * juros / 100) + preço) * parcela) Response.Write "Total:" & total %>
  22. Decio

    Recordcount

    tenta criar um recordset desta maneira: Dim TotalRegistro Set RS = Server.CreateObject("ADODB.Recordset") SQL = "select * From tabela WHERE campo = 'algumacoisa'" RS.CursorType = 3 'para poder saber qtde de registros RS.Open SQL,cn,3,3 TotalRegistro=RS.recordcount Desta forma você consegue saber qtos registros retornou a consulta
  23. Decio

    Poste A Sua Opnião

    Eu acho que deveriam evitar post tipos "SÓ PRA FERAS" , "SÓ PRA QUEM ENTENTE" , etc... na tentativa de mexer com o ego dos programadores e assim obter uma resposta mais rápida.
  24. Decio

    Recomendar Com Variável

    Olha cara, misturar javascrip com ASP não é uma boa ideia. Tente fazer o seguinte: Crie uma Session tipo : Session("prod_id") e crie uma nova página que faz a busca no banco de dados a partir da informação desta váriavel . Assim você pode chamar esta página através do Windows.Open sem precisar passar parâmetros. Fui claro??
  25. Decio

    Como Calcular Juros

    Não parece ser muito dificil fazer isto. Para pegar os dados utilize formularios feitos em html, existem vários tutoriais, aqui mesmo no SB que ensinam como fazer isto. Depois é so ver como é feito o cálculo e qual o indice da taxa de juros que vai usar. se está for uma dificuldade, mostre como se faz o cálculo e eu tento fazer o script que calcula.
×
×
  • Criar Novo...