Bicicleta

Valeu mano!!! Deu certo!!! Obrigado!

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!!!

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

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... []

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

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)...

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

Kara, você está com o Driver ODBC do MySQL instalado na máquina cliente?

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

Kara, é simples... Na conexão você usa o IP ou o nome do Computaodor na rede que tem o MySQL instalado!

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

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

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

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!!!

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!

Troque por isso: []s!

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!

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

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!

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

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

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 %>

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

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!

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.