Conecção Db

[Ceh]

Pessoal, estou tentando fazer uma conecção com DB só que retorna este erro

Tipo de erro:

Microsoft JET Database Engine (0x80040E09)

Não é possível atualizar. O banco de dados ou o objeto é somente leitura.

linha 64

A linha tem esse código

	Cadastro.addNew 

Eu não entendo, porque o banco não está no modo somente leitura, mas o que me parece é que é a tabela Cadasto que supostamente está em modo somente leitura.

Vejam no que vocês podedm me ajudar æ!

[Graymalkin]

Como você abre o BD e a tabela? É nesse momento que você define se é somente leitura ou não.

Abraços,

Graymalkin

[Ceh]

É assim que eu faço a conecção, abro o BD e a Tabela:

Set conn=Server.CreateObject("ADODB.Connection")

conn.ConnectionString = "PROVIDER=MICROSOFT.JET.OLEDB.4.0; DATA SOURCE=enderecodobanco"
conn.Open

Set Cadastro = Server.CreateObject("ADODB.Recordset")
Cadastro.Open "Cadastro", conn, 3, 3

[Graymalkin]

O problema está na linha...

Cadastro.Open "Cadastro", conn, 3, 3

... que deveria ser:

Cadastro.Open "Cadastro", conn, 2, 3

O 2 é adOpenDynamic (alterável) e o 3 é adOpenStatic (somente leitura).

Abraços,

Graymalkin

[Ceh]

Mas funcionou assim mesmo lá no meu trabalho com o mesmo código... o banco que é diferente... mas de qlqr forma eu testei aki o que você colocou.

Cadastro.Open "Cadastro", conn, [COLOR=red]2[/COLOR], 3

mas não funcionou não

[Ceh]

Sem essa tag aí... de color red.. esqueci q tava dentro do código!

[Graymalkin]

Mas funcionou assim mesmo lá no meu trabalho com o mesmo código... o banco que é diferente... mas de qlqr forma eu testei aki o que você colocou.

Cadastro.Open "Cadastro", conn, [COLOR=red]2[/COLOR], 3

mas não funcionou não

E a mensagem de erro é a mesma? A pasta onde o BD está tem permissão para escrita?

Abraços,

Graymalkin

[Ceh]

Sim continua com o mesmo erro! E a pasta tem permissão para gravação!

Não sei o que pode estar acontecendo...

[Ceh]

Pode fechar o Tópico! Já consegui resolver o problema!

[cyberalexxx]

Poste ai como resolveu, para servir de referencia.

[Ceh]

Eu resolvi mudando o acesso à pasta.

Ex: Estava com todos as permissões marcadas... desmarquei todas apliquei marquei todas novamente e reiniciei a máquina... pronto funcionou... mas isso não quer dizer que vai funcionar em todos... coisas de Windows....

Quanto ao que você disse Graymalkin

O problema está na linha...

 
Cadastro.Open "Cadastro", conn, 3, 3 

... que deveria ser:

  
Cadastro.Open "Cadastro", conn, 2, 3 

Pode ser que eu esteja enganada, mas eu li em um livro que com o  adLockOptimistic (3) o registro não é bloqueado enquanto as alterações não  forem salvas no banco de dados utilizando o método Update do RecordSet. E aqui está funcionando perfeitamente..

Cadastro.Open "Cadastro", conn, 3, 3

[ ]'s

[Graymalkin]

 
Cadastro.Open "Cadastro", conn, 3, 3 

... que deveria ser:

  
Cadastro.Open "Cadastro", conn, 2, 3 

Pode ser que eu esteja enganada, mas eu li em um livro que com o adLockOptimistic (3) o registro não é bloqueado enquanto as alterações não forem salvas no banco de dados utilizando o método Update do RecordSet. E aqui está funcionando perfeitamente..

Cadastro.Open "Cadastro", conn, 3, 3