Ir para conteúdo
Fórum Script Brasil

Bicicleta

Membros
 Perfil  Explorar Conteúdo

  • Total de itens

    570

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por Bicicleta

  3. Vba E Mysql

    em MySQL

    Postado

    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. Importar De Txt

    em ASP

    Postado

    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. Mysql Em Rede

    em MySQL

    Postado

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

    Você terá que criar um usuário que permita os clientes acessarem o MySQL remotamente. Dê uma olhada no manual e procure a sintáxe do comando GRANT, seria algo assim:

    GRANT ALL ON banco.* TO user@'192.168.1.%' IDENTIFIED BY 'senha';

    entendendo que a sua rede é 192.168.1.xxx.

    Não sei se realmente é isso, mais deve ser... Vou deixar aqui pra consulta futura caso alguém precisa (inclusive eu, heheehehe)

    []s

  6. Mysql Em Rede

    em MySQL

    Postado

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

    em MySQL

    Postado

    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

  9. Mysql Downgrade (urgente)

    em MySQL

    Postado

    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

  17. Quebrando Linhas

    em ASP

    Postado · Editado por Bicicleta

    No caso se você fizer do modo q você disse no segundo post funciona...

    Repare:

    variavel ="texto[["

    variavel = replace (variavel, "x","m")

    variavel = replace (variavel, "[[","abc")

    response.write variavel

    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:

    variavel = replace (rs("campo"), "x","m")

    variavel = replace (rs("campo"), "[[","abc")

    response.write rs("campo")

    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. Sem Path Como Resolver Isso

    em ASP

    Postado

    você tem q utilizar o caminho absoluto.

    Troque isso:

    Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../noticias.mdb")

    por:

    Connect.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\seusite\bancodedados.mdb"

    Só trocar o caminho ali q é fictício pelo caminho completo!

    []s

  19. Quebrando Linhas

    em ASP

    Postado

    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:

    down = replace(rsMostra("download"), VbCrLf, "<br>")

    down = replace(rsMostra("download"), "[[", "abc")

    por isso:

    down = replace(rsMostra("download"), VbCrLf, "<br>")

    down = replace(down, "[[", "abc")

    e peça pra imprimir o conteúdo da variável down

    []s!

  22. Transformar Texto Em Números

    em ASP

    Postado

    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

    %>

  24. Duvida Com For

    em ASP

    Postado

    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. Restringir Acesso

    em ASP

    Postado

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