ERRO NO ADO QDO INCLUIR REGISTRO
E aà galera, só vcs mesmo para me ajudar, é o seguinte:
Qdo eu uso o comando abaixo ele dá o seguinte erro:
The operation requested by the application is not allowed if the object is closed
Comando usado
AdoNome.RecordSource = "insert into Nome(Nome) select Nome from Tabela1"
AdoNome.Refresh
só que ele não mostra aquela tela de ero com o número e a descrição do erro, ele mostra a msg acima e um botão OK, eu não posso deixar isso acontecer qdo o cliente estiver usando o programa, alguém sabe como faz para não aparecer essa msg, os erros que aparecem que tem o número e a descrição eu resolvi assim já que dando o erro ou não o código funciona
Private Sub BtnInserir_Click()
On Error GoTo Corrige
AdoNome.RecordSource = "insert into Nome(Nome) select Nome from Tabela1"
AdoNome.Refresh
Corrige:
Err.Clear
End Sub
Se der erro limpe o erro, pq como eu disse ele inclui os registros na tabela como eu disse só que aparece a msg de erro citada acima com o botão OK, alguém sabe como resolver isso visto que o MSDN do vc não me ajudou em nda.
Valew Pessoal.
Não sei o que seria de mim sem vcs, já me ajudaram tanto valew.
Sem mais.
Qdo eu uso o comando abaixo ele dá o seguinte erro:
The operation requested by the application is not allowed if the object is closed
Comando usado
AdoNome.RecordSource = "insert into Nome(Nome) select Nome from Tabela1"
AdoNome.Refresh
só que ele não mostra aquela tela de ero com o número e a descrição do erro, ele mostra a msg acima e um botão OK, eu não posso deixar isso acontecer qdo o cliente estiver usando o programa, alguém sabe como faz para não aparecer essa msg, os erros que aparecem que tem o número e a descrição eu resolvi assim já que dando o erro ou não o código funciona
Private Sub BtnInserir_Click()
On Error GoTo Corrige
AdoNome.RecordSource = "insert into Nome(Nome) select Nome from Tabela1"
AdoNome.Refresh
Corrige:
Err.Clear
End Sub
Se der erro limpe o erro, pq como eu disse ele inclui os registros na tabela como eu disse só que aparece a msg de erro citada acima com o botão OK, alguém sabe como resolver isso visto que o MSDN do vc não me ajudou em nda.
Valew Pessoal.
Não sei o que seria de mim sem vcs, já me ajudaram tanto valew.
Sem mais.
Amigo, se você apenas quiser adicionar dados no campo acima, o a instrução INSERT está errada!!
é isso?
dim nome as string
nome = germanir
INSERT into nometabela(nome) values('" + nome + "')é isso?
o negocio e q vc ta usando componente data e jogando uma insert no recordset que normalmente retorna um valor,
e os insert sao atraves do addnew e update
sempre ue faço o insert usando a COnexao com o Banco tudo via codigo
exe DB.Execute("inset.....")
mas no seu caso tente setar o recordsource = "select a tabela "
e depois mude para o "insert"
é uma gambiarra
** uma dica não use componentes Data para acessar dados, faça via código
vc o controle total da conexão
e os insert sao atraves do addnew e update
sempre ue faço o insert usando a COnexao com o Banco tudo via codigo
exe DB.Execute("inset.....")
mas no seu caso tente setar o recordsource = "select a tabela "
e depois mude para o "insert"
é uma gambiarra
** uma dica não use componentes Data para acessar dados, faça via código
vc o controle total da conexão
[S51]Putz, fui responder na pressa![S55]
é isso mesmo, você está usando um componente ADO vinculado (provavelmente)
para adicionar é assim vejao exemplo:
Fuii
é isso mesmo, você está usando um componente ADO vinculado (provavelmente)
para adicionar é assim vejao exemplo:
' conexao recordset campo dados
AdoNome.Recordset![Nome] = "Germanir Leal Santos" 'adiciona no campo nome
AdoNome.Recordset![Telefone] = 3215105 'adiciona no campo telefone
AdoNome.Refresh 'Atualiza o recordset
Fuii
eu vi essa instrução em alguma resposta do forum que eu não encontrei de novo, eu preciso incluir em um banco uma qtd de registro que me é dada através da instrução select, a parte do insert é para inserir no banco os registros que a consulta achou, isso funciona, ele insere os registros o problema é que ele mostra o erro com um botão OK para confirmar eu queria que não aparecesse esse erro com o botão OK somente.
O erro não dá outra opção, comente uma msg com um botão OK e não consigo tira-lo.
Sem mais.
O erro não dá outra opção, comente uma msg com um botão OK e não consigo tira-lo.
Sem mais.
Tópico encerrado , respostas não são mais permitidas