ERRO COM ADO
Option Explicit
Dim Conexao As New Connection
Dim rs As New Recordset
Private Sub cmdAdicionar_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text1.SetFocus
rs.Fields(0) = " " & Text1.Text
rs.Fields(1) = " " & Text2.Text
rs.Fields(2) = " " & Text3.Text
rs.Fields(3) = " " & Text4.Text
End Sub
Private Sub Form_Load()
Conexao.Provider = "Microsoft.Jet.Oledb.4.0"
Conexao.Open "D:\CursoVBFisc\TesteConnecção\Teste.mdb"
rs.Open "Tabela1", Conexao, 3
Liga_Campos_Tab_Form
End Sub
Sub Liga_Campos_Tab_Form()
Text1 = rs(0)
Text2 = rs(1)
Text3 = rs(2)
Text4 = rs(3)
End Sub
Qual será o erro? Para obter a msg "O conjunto de registos não suporta actualização. Pode ser uma limitação do fornecedor ou do tipo de bloqueio seleccionado."
Poderá ser erro na tabela Access?
Antes escrever: rs.Fields(0) = " " & Text1.Text, rs.AddNew ou rs.Update tudo funciona.
No lugar do (0) e / ou " " é preciso escrever algo?
Alguém ajuda?
Armando BaÃa
Dim Conexao As New Connection
Dim rs As New Recordset
Private Sub cmdAdicionar_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text1.SetFocus
rs.Fields(0) = " " & Text1.Text
rs.Fields(1) = " " & Text2.Text
rs.Fields(2) = " " & Text3.Text
rs.Fields(3) = " " & Text4.Text
End Sub
Private Sub Form_Load()
Conexao.Provider = "Microsoft.Jet.Oledb.4.0"
Conexao.Open "D:\CursoVBFisc\TesteConnecção\Teste.mdb"
rs.Open "Tabela1", Conexao, 3
Liga_Campos_Tab_Form
End Sub
Sub Liga_Campos_Tab_Form()
Text1 = rs(0)
Text2 = rs(1)
Text3 = rs(2)
Text4 = rs(3)
End Sub
Qual será o erro? Para obter a msg "O conjunto de registos não suporta actualização. Pode ser uma limitação do fornecedor ou do tipo de bloqueio seleccionado."
Poderá ser erro na tabela Access?
Antes escrever: rs.Fields(0) = " " & Text1.Text, rs.AddNew ou rs.Update tudo funciona.
No lugar do (0) e / ou " " é preciso escrever algo?
Alguém ajuda?
Armando BaÃa
rs.Open "Tabela1", Conexao, [txt-color=#ff0000] 3 [/txt-color]
rs.Open "Tabela1", Conexao, Adopenkeyset
rs.Open "Tabela1", Conexao, Adopenkeyset
Obrigado para além do Adopenkeyset acrescentei adLockOptimistic já mexe todavia abre as linhas da tabela mas não fica nada gravado. Vou continuando!
No caso "D:\" é uma unidade de rede ?
Você tem acesso para escrita ?
Vamos tentando...
Você tem acesso para escrita ?
Vamos tentando...
D:\ é um (2º) Disco rigido no PC. Se tenho acesso para escrita?? Não percebi!
Cara, se for windows XP, verifique com o WEB falou os acessos que você tem a pasta!!!
Aperte o botão direito em cima da pasta é vá em PROPRIEDADES...
Outra... Verifique se algum campo que vc utiliza na adição ou atualização é AUTONUMERAÇÃO, OU CHAVE PRIMà ÂRIA........
Se for pode ser por isso...
Aperte o botão direito em cima da pasta é vá em PROPRIEDADES...
Outra... Verifique se algum campo que vc utiliza na adição ou atualização é AUTONUMERAÇÃO, OU CHAVE PRIMà ÂRIA........
Se for pode ser por isso...
Já compreendi a questão de acesso a escrita. Realmente a a Pasta encontrava-se só de leitura. Qunato ao Campo ID não deve ser AutoNumeração? é que estou a habituado ao Access Básico! Continuando.
Tópico encerrado , respostas não são mais permitidas