Jump to content
Fórum Script Brasil
  • 0

Conexão Com A Rede Remota


Guest Ed-Claret
 Share

Question

Guest Ed-Claret

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 to comment
Share on other sites

3 answers to this question

Recommended Posts

  • 0
Guest Ed-Claret

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 to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Forum Statistics

    • Total Topics
      149.8k
    • Total Posts
      646.6k
×
×
  • Create New...