Tem Como Fazer Atualizações Do Bd Pela Internet?

[tuliod]

é uma pergunta meio compliakda, mas qria sabr c dava para um programa no VB q podesse fazer atualizações de um Banco de Dados posto na Internet, pegando as informações da Internet e pondo no Banco de Dados Acess do programa ... Tm como???

Obrigado desde já...

Tulio

[William Rodrigues]

Claro que tem!

Não só tem, como já discutimos sobre isso aqui no fórum. Faça uma busca e comprove!!!

Abraços,

William Rodrigues

[tuliod]

Andei procurando mas não axei uma dica...

Voce pode me indicar um tópico??

Obrigado

[William Rodrigues]

Opa!

Mas é claro!!!

Segue:

Tópico sobre Banco de Dados na Internet e VB

Abraços,

William Rodrigues

[tuliod]

Mas não é bm o q eu qri...

Qria q um os dados do Access do meu site seja transferido para o banco de dados do computador, ou fazer o download pelo vb e substituir o antigo.

Obrigado desde já

[Guest humster]

Eu tambem queria saber fazer isso... alguém pode nos ajudar??

[armagedon]

eu fui no outro tópico q indicou pra outro tópico q indicou pro site do macrotti, dai nele tem um tutorial, mas q diz como conectar usando SQL server.

Eu queria saber como conectar em um site da web mesmo com um bd em acess

[Guest - tuliod -]

Eu também qria saber isso, e não axei nenhum tópico que expliq isso...

Espero a ajuda d alguém

Brigado

[Graymalkin]

fazer o download pelo vb e substituir o antigo.

Para isso dê uma procurada por Inet.

Abraços,

Graymalkin

[Guest - tuliod -]

Neste exemplo de codigo que aparece no site, a linha marcada aparece em vermelho simbolizando erro... como seria o certo??

Public Function Verifica() As Boolean

Dim Atual as Boolean

Dim Versao as String

Dim Versao_Atual As string

Versao_Atual = App.Major & App.Minor & App.Revision

Atual = False

>>>> if Baixa_Versao("c:\versao\atual.txt", "http://www.geocities.com/macoratti/versao.txt") <<<<

Open "c:\versao\atual.txt" for Input As #1

Line Input #1 , Versao

Close #1

Versao=trim(Versao)

Kill "c:\versao\atual.txt"

If Versao <> "" And Versao_Atual < Versao Then

Atual = Baixa_Versao("c:\versao\TEMP.EXE", "http://www.geocities.com/macoratti/seu_programa.exe")

End If

End If

Verifica = Atual

End Function

brigado

[Graymalkin]

Tão importante quanto dizer onde ocorreu o erro é dizer *qual* foi o erro, não acha?

Abraços,

Graymalkin

[tuliod]

Ele da um erro dizendo o seguinte:

COMPILE ERROR

Expected Then or Goto

E c for testa com o erro... ele fz o download indiferente c o arquivo da internet for igual ou não do q possui no pc

BRIGADO

[Graymalkin]

Ele da um erro dizendo o seguinte:

COMPILE ERROR

Expected Then or Goto

E c for testa com o erro... ele fz o download indiferente c o arquivo da internet for igual ou não do q possui no pc

Veja qual a mensagem de erro:

"""

COMPILE ERROR

Expected Then or Goto

"""

Traduzindo:

"""

ERRO DE COMPILAÇÃO

Then ou Goto Esperado

"""

E, de fato, o If está incompleto:

if Baixa_Versao("c:\versao\atual.txt", "http://www.geocities.com/macoratti/versao.txt") Then

Um conselho: o compilador é seu amigo, nunca vai te esconder nada e sempre te conta tudo que está se passando, é só você "ouvi-lo".

Abraços,

Graymalkin

[tuliod]

Desculpe o encoodo, mas eu modifiquei para o seguinte modo com as minha configurações:

Public Function Verifica() As Boolean

Dim Atual As Boolean

Dim Versao As String

Dim Versao_Atual As String

Versao_Atual = App.Major & App.Minor & App.Revision

Atual = False

If Baixa_Versao("c:\atual.txt", "http://www.artsanimation.cjb.net/versao.txt") Then

Open "c:\atual.txt" For Input As #1

Line Input #1, Versao

Close #1

Versao = Trim(Versao)

Kill "c:\atual.txt"

If Versao <> "" And Versao_Atual < Versao Then

Atual = Baixa_Versao("c:\atual_vb.htm", "http://www.macoratti.net/atual_vb.htm")

End If

End If

Verifica = Atual

End Function

Public Function Baixa_Versao(LocalArquivo As String, LocalURLArquivo As String) As Boolean

On Error GoTo Baixa_erro

Dim bt() As Byte

Open LocalArquivo For Binary Access Write As #1

bt() = Inet1.OpenURL(LocalURLArquivo, icByteArray)

Put #1, , bt()

Close #1

Baixa_Versao = True

Exit Function

Baixa_erro:

MsgBox "Ocorreu um erro durante a transferência do arquivo !", vbCritical

Baixa_Versao = False

Close #1

End Function

Private Sub Command2_Click()

Call Baixa_Versao("c:\atual_vb.htm", "http://www.macoratti.net/atual_vb.htm")

End Sub

E mesmo c o arquivo atual.txt for igual a versao.txt do meu site ele faz o download...

Tm algo errado??

[Graymalkin]

Desculpe o encoodo, mas eu modifiquei para o seguinte modo com as minha configurações:

Public Function Verifica() As Boolean

Dim Atual As Boolean

Dim Versao As String

Dim Versao_Atual As String

Versao_Atual = App.Major & App.Minor & App.Revision

Atual = False

If Baixa_Versao("c:\atual.txt", "http://www.artsanimation.cjb.net/versao.txt") Then

Open "c:\atual.txt" For Input As #1

Line Input #1, Versao

Close #1

Versao = Trim(Versao)

Kill "c:\atual.txt"

If Versao <> "" And Versao_Atual < Versao Then

Atual = Baixa_Versao("c:\atual_vb.htm", "http://www.macoratti.net/atual_vb.htm")

End If

End If

Verifica = Atual

End Function

Public Function Baixa_Versao(LocalArquivo As String, LocalURLArquivo As String) As Boolean

On Error GoTo Baixa_erro

Dim bt() As Byte

Open LocalArquivo For Binary Access Write As #1

bt() = Inet1.OpenURL(LocalURLArquivo, icByteArray)

Put #1, , bt()

Close #1

Baixa_Versao = True

Exit Function

Baixa_erro:

MsgBox "Ocorreu um erro durante a transferência do arquivo !", vbCritical

Baixa_Versao = False

Close #1

End Function

Private Sub Command2_Click()

Call Baixa_Versao("c:\atual_vb.htm", "http://www.macoratti.net/atual_vb.htm")

End Sub

E mesmo c o arquivo atual.txt for igual a versao.txt do meu site ele faz o download...

Tm algo errado??

Primeiro, idente o código. Fica muito melhor de se enxergar. Depois, quando postar código aqui no fórum utilize a tag CODE. E, observe que sua versão é uma string, do tipo "100", por isso seria legal você olhar se as versões sendo comparadas realmente são as que você está esperando (coloque um MsgBox() para cada uma delas e veja os valores).

Abraços,

Graymalkin