Conexão Com A Rede Remota

[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

[Decio]

Tenta abrir a conexão desta forma:

Tabela.Open Qd, bd, adOpenForwardOnly, adLockReadOnly

[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

[kuroi]

na hora de abrir o bd, tenta adicionar a seguinte linha:

.CursorLocation = adUseClient

ai pra abrir o rs, tenta assim:

Tabela.Open Qd, bd, adOpenDynamic, adLockBatchOptimistic

se não funcionar, tenta assim:

Tabela.Open Qd, bd, adOpenKeyset, adLockOptimistic, adCmdText