Ir para conteúdo
Fórum Script Brasil

Bicicleta

Membros
  • Total de itens

    570
  • Registro em

  • Última visita

Tudo que Bicicleta postou

  1. Valeu mano!!! Deu certo!!! Obrigado!
  2. Salve... Tem como carregar um ícone que está em um TImageList e colocá-lo em um TImage??? Estou tentando aqui mais não consegui!!! :huh: Se alguém souber, agradeço! Valeu!!!
  3. Bicicleta

    Vba E Mysql

    Mano, não cheguei a testar, mais como o Excel usa VbScript tenta assim: Private Sub TESTE() 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ' Abre a Conexão com o BD 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx Set Conexao = New ADODB.Connection adoDataConn.ConnectionString = "DRIVER={MySQL ODBC 3.51 DRIVER};SERVER=127.0.0.1;DATABASE=test;UID=root;PWD=;" Conexao.Open 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ' Para selecionar um registro: 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx Set rs = Conexao.Execute("SELECT campo FROM tabela WHERE id = 1") MsgBox( rs("campo") ) rs.Close Set rs = Nothing 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ' Para inserir um registro: 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx Conexao.Execute("INSERT INTO tabela (campo, campo2) VALUES ('Valor do Campo', 'Valor do Campo 2') 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ' Para atualizar um registro: 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx Conexao.Execute("UPDATE tabela SET campo = 'Novo valor do campo', campo2 = 'Novo valor do campo 2' WHERE id = 1) 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ' Para excluir um registro 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx Conexao.Execute("DELETE FROM tabela SET id = 1") 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx ' Fechando a conexão com o BD 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx Conexao.Close Set Conexao = Nothing End Sub []s
  4. Bicicleta

    Importar De Txt

    Uma maneira é você ler todo o conteúdo do arquivo usando FSO, colocar em uma string, e usar o Replace para criar um vetor.... Dai você usa um laço para ir passando item por item e gravando no Access... []
  5. Bicicleta

    Mysql Em Rede

    Firmeza mano... Só pra constar aqui, eu tenho aqui salvo no meu comp isso (peguei de algum site na net, só não faço a menor idéia de onde): Não sei se realmente é isso, mais deve ser... Vou deixar aqui pra consulta futura caso alguém precisa (inclusive eu, heheehehe) []s
  6. Bicicleta

    Mysql Em Rede

    Não... você não precisa compartilhar nada kara, só instalar o MySQL no servidor e jogar o IP na conexão do sistema. Esse erro está dando quando você acessa pelo sistema ou quando você configura o ODBC? Faça um teste na configuração do ODBC para ver se ele consegue se conectar ao servidor... Se pela configuração do ODBC (no botão TEST) ele der algum erro, provavelmente o MySQL no servidor não está configurado para aceitar conexão de outros computadores que não seja dele mesmo (localhost)...
  7. Bicicleta

    Como

    Kara, tem vários... phpMyAdmin, MySQL-Front e vários outros... (veja aqui) Eu particularmente prefiro usar o MySQL-Front, me acostumei a ele e acho ele excelente, pra você fazer o download dele entre aqui "Eu acho" que a melhor versão é a última, porque sempre tem melhorias, atualmente a última versão 5.0, pra você fazer o download entre aqui []s
  8. Bicicleta

    Mysql Em Rede

    Kara, você está com o Driver ODBC do MySQL instalado na máquina cliente?
  9. Hummm, sinceramente não sei. O que dá pra fazer é você exportar usando o mysql-front para xml, ou algo mais fácil, e fazer um script com alguma linguagem para converter... Pelo menos não vejo outra maneira... Se existe algum software pra isso eu desconheço. Dá um pouco de trabalho, mais acho que vale a pena perder algumas horas escrevendo um script pra isso! []s
  10. Bicicleta

    Mysql Em Rede

    Kara, é simples... Na conexão você usa o IP ou o nome do Computaodor na rede que tem o MySQL instalado!
  11. Acho que não, alpha quer dizer que ele ainda não é aconselhado para uso em produção, ele ainda não foi liberado, portanto pode não ter, como pode ter vários bugs... Pegue a versão disponível para produção que é mais aconselhado! []s
  12. Bicicleta

    Orcamento

    Pode crçe marcio... Disse estranho porque já fiz algumas vezes isso, hoje não faço mais de tanto levar prejuizo! hehehehehe Paz!
  13. Bicicleta

    Orcamento

    Hehheehehehehe, estranho as condições de pagamento só! hheheheheeheheh... Paz!!!
  14. Bicicleta

    Sem Path Como Resolver Isso

    tente alterar isso: strImageFolder="/imagens/" por isso: strImageFolder="imagens/" se não resolver, você vai ter trocar isso: folder2 = Server.MapPath(folder1) por folder2 = "c:\caminhoDaPasta\" falou!!!
  15. Bicicleta

    Sem Path Como Resolver Isso

    Poste o código aqui do modo que você usou no seu código... porque o erro mostra que você ainda está usando o mesmo método!
  16. Bicicleta

    Erro De Consulta

    Troque por isso: []s!
  17. Bicicleta

    Quebrando Linhas

    No caso se você fizer do modo q você disse no segundo post funciona... Repare: No exemplo que você postou acima funciona, pois ele substitui o valor da variável, e na seguinte ele permanece, pois foi alterado em uma variável... Agora assim não funciona: Se você fizer um teste com o exemplo acima, ele não vai substituir nada, porque você dá o replace direto no campo do recordset, ele altera, mais somente na variável, não no campo do recordset. Na segunda linha, você dá novamente um replace no campo do recorset, mais o conteúdo do recordset foi puxado novamente, ou seja, ele veio como está cadastrado no BD, ignorando o primeiro replace!!! Ele somente vai manter o último, independente do número de replaces... No caso você tem que dar o primeiro replace no campo do recordset, e no proximo, dar o replace na própria variável!!! PS.: Nesse segundo exemplo q postei aqui, repare q não vai substituir absolutamente nada!!! Se você mandar um: "response.write variavel" ele vai mostrar o replace somente do último replace!!! []s!
  18. Bicicleta

    Sem Path Como Resolver Isso

    você tem q utilizar o caminho absoluto. Troque isso: por: Só trocar o caminho ali q é fictício pelo caminho completo! []s
  19. Bicicleta

    Quebrando Linhas

    Na verdade Andreia você está dando o primeiro replace no campo do recordset, e o segundo também... No caso ele substitui, mais só irá mostrar o último... Basta dar replace na variável a partir do segundo ítem: variavel = Replace(rs("campo"),VbCrLf,"<br>") variavel = Replace(variavel,"[[","abc") No caso do Andre Luiz, troque isso: por isso: e peça pra imprimir o conteúdo da variável down []s!
  20. Bicicleta

    Busca

    StrSql10 = "SELECT * FROM t_normas WHERE norma LIKE '%"& txtbusca &"%'" []s
  21. Bicicleta

    Consulta Por Letra

    Pra MySQL você pode usar isso: sql = "SELECT * FROM tabela WHERE campo REGEXP '^["B"]'" Pra Access pode usar isso: sq = "SELECT * FROM tabela WHERE canpo LIKE 'B%'" []s
  22. O certo seria você armazenar como número com casas decimais (tipo: número alterando a propriedade para duas casas decimais)... Mais caso queira manter assim tente isso q funciona também: <% dim b1, b2, b3, b4, media b1 = Cint(nota("B1")) b2 = Cint(nota("B2")) b3 = Cint(nota("B3")) b4 = Cint(nota("B4")) media = Cint((b1 + b2 + b3 + b4)) / 4 %>
  23. Bicicleta

    Método Para Bloquear Html

    use: Server.HTMLEncode("<b>Teste de string</b>") falou!
  24. Bicicleta

    Duvida Com For

    um outro método serial usar array... <% Dim itens(1) Dim pgs(1) itens(0) = "item1" itens(1) = "item2" pgs(0) = "pagina1.asp" pgs(1) = "pagina2.asp" For i = 0 To UBound(itens) Response.Write itens(i) & " - " & pgs(i) & "<br>" Next Erase itens Erase pgs %> falou!
  25. Bicicleta

    Restringir Acesso

    concordo com o dlumeida, isso é meio impossível, só mesmo com algum dispositivo eletrônico ou então, instalar alguma coisa no comp do cara q teu site consiga identificar aquela determinada máquina, mais não me pergunte como, porque não faço nem idéia, heheheeheh []s.
×
×
  • Criar Novo...