CONTROLE ADODC ERROR!
Fala ai galera estou com um problema que eu nao consigo fugir!
Estou começando a mexer com o controle ADODC, estou conectando a uma tabela do mysql, consigo ler a tabela o problema é na hora de gravar algum valor, que recebo a mensagem [Ô] Operação não permitida quando o objeto esta fechado[Ô]
Aqui esta o Codigo fonte:
[ô]Este comando está funcionando corretamente!
Private Sub cmdler_Click()
Adodc1.ConnectionString = [Ô]Provider=MSDASQL.1;Persist Security Info=False;User ID=root;Data Source=House;Initial Catalog=tabelas[Ô]
Adodc1.RecordSource = [Ô]Select * from tabela1 where ID = 3[Ô]
Label1.DataField = [Ô]Controle5[Ô]
Adodc1.Refresh
End Sub
[ô]Neste, recebo o erro.
Private Sub cmdgravar_Click()
Adodc1.RecordSource = [Ô]Update tabela1 SET Controle5 = 0 Where ID = 3 [Ô]
Adodc1.Refresh
End Sub
No primeiro command a leitura da tabela e no 2 o programa mudaria o valor do controle5 do ID 3 para [Ô]0[Ô]. O valor é atualizado, mais toda hora recebo a mensagem [Ô]Operação não permitida quando o objeto esta fechado[Ô]
Nao sei mais pra onde correr! Conto com a ajuda de voces!
Gratooo
Estou começando a mexer com o controle ADODC, estou conectando a uma tabela do mysql, consigo ler a tabela o problema é na hora de gravar algum valor, que recebo a mensagem [Ô] Operação não permitida quando o objeto esta fechado[Ô]
Aqui esta o Codigo fonte:
[ô]Este comando está funcionando corretamente!
Private Sub cmdler_Click()
Adodc1.ConnectionString = [Ô]Provider=MSDASQL.1;Persist Security Info=False;User ID=root;Data Source=House;Initial Catalog=tabelas[Ô]
Adodc1.RecordSource = [Ô]Select * from tabela1 where ID = 3[Ô]
Label1.DataField = [Ô]Controle5[Ô]
Adodc1.Refresh
End Sub
[ô]Neste, recebo o erro.
Private Sub cmdgravar_Click()
Adodc1.RecordSource = [Ô]Update tabela1 SET Controle5 = 0 Where ID = 3 [Ô]
Adodc1.Refresh
End Sub
No primeiro command a leitura da tabela e no 2 o programa mudaria o valor do controle5 do ID 3 para [Ô]0[Ô]. O valor é atualizado, mais toda hora recebo a mensagem [Ô]Operação não permitida quando o objeto esta fechado[Ô]
Nao sei mais pra onde correr! Conto com a ajuda de voces!
Gratooo
Private Sub cmdgravar_Click()
Adodc1.RecordSource = [Ô]Update tabela1 SET Controle5 = 0 Where ID = 3 [Ô]
cmdler_Click
End Sub
Robiu, trocando o codigo por este seu, não da erro porém não ocorre o update na tabela, o valor permanece o mesmo 
Preciso de mais detalhes para uma resposta mas eficiente. Se possÃvel, posta o projeto.
cmdler_Click
Adodc1.Recordset([Ô]Controle5[Ô]) = 0
Adodc1.Recordset.UpdateBatch
Adodc1.Refresh
cmdler_Click
Rubiu, funcionou 100% deste modo! Obrigado mesmo! Estava precisando muito disto!
Abraço
Abraço
Tópico encerrado , respostas não são mais permitidas