Ir para conteúdo
Fórum Script Brasil
  • 0

Conexão Com A Rede Remota


Guest Ed-Claret

Pergunta

Olá amigos...

faço isso para me conectar ao banco da rede remota...

With bd

.CommandTimeout = 10

.ConnectionTimeout = 5

.Provider = "Microsoft.Jet.OLEDB.4.0"

.ConnectionString = "Data Source = " & CmhBDRede & ";" & _

"Jet OLEDB:Database Password= Senha" & _

"User ID =Admin;" & _

"Password =;"

.Open

End With

e isso para abrir tabelas...

Qd = "SELECT Campo From Tabela ORDER BY Campo;"

Set Tabela = New ADODB.Recordset

Tabela.Open Qd, bd, adOpenForwardOnly, adLockBatchOptimistic

Do While Not Tabela.EOF

CBOCampo.AddItem Tabela!Campo

Tabela.MoveNext

Loop

Set Tabela = Nothing

*********

Mais de um usuario se conectando da mensagem de que a tabela não pode ser aberta porque já tem um usuario usando-a.

A pasta foi toda libertada e esta arreganhada a todos, porem, se houver mais de um usuario da essa mensagem e não abre nada. Quando isso aconteceu eu então eu tentei abrir o banco manualmente e estava somente leitura.

Acho que na conexão não tem nada de errado, o erro deve estar na liberação da pasta servidora, e o gerente da rede deve estar comendo bola.

alguém poderia me ajudar?? muito obrigado por qualquer sugestão...abraços

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0

Ainda não funciona... tenho dois erros... mas vamos por parte, vou explicar tudo com maior clareza

VAMOS A PRIMEIRA

'Abro o banco assim

With bd

.CommandTimeout = 10

.ConnectionTimeout = 5

.Provider = "Microsoft.Jet.OLEDB.4.0"

.ConnectionString = "Data Source = " & CmhBDRede & ";" & _

"Jet OLEDB:Database Password= Senha" & _

"User ID =Admin;" & _

"Password =;"

.Open

End With

'Abro a tavela assim

Qd = "SELECT Campo From Tabela ORDER BY Campo;"

Set Tabela = New ADODB.Recordset

Tabela.Open Qd, bd, adOpenForwardOnly, adLockBatchOptimistic

Do While Not Tabela.EOF

CBOCampo.AddItem Tabela!Campo

Tabela.MoveNext

Loop

Set Tabela = Nothing

'Para grava faço assim

bd.Execute "INSERT INTO Tabela (cAMPO) VALUES (= '" & CBOCampo.Text & ')"

DA A SIGUINTE MENSAGEM: "A operação deve ser uma consulta atualizável."

Então imagino que o problema deve estar na abertura do bd, haja vista que a tabela foi aberta somente para carregamento da combo e logo em seguido fora fechada.

TT...Gente!!!!!!! estou no desspero - SÓ VOCES MESMOS PARA ME AJUDAR

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...