Pessoal: Olha meu problema, estou rodando a sql abaixo dentro do vb, ok...ela roda normal, mas dá uma mensagem assim: "Operação não permitida quando o objeto está fechado"...já tentei de tudo, mas nada resolve alguém sabe de alguma coisa somente pra não deixar essa mensagem aparecer??...ficarei muito grato...sem mais

MArcos Leandro Rosa

 

adoatraso.RecordSource = "INSERT INTO TbAtrasos " & _
 "( Aresp, Cidade, [Distrito Nome], [N Part], InicioL, " & _
 "FimL, [Hora Efetiva], QtdUc, [Nome Leiturista], DataFat, " & _
 "HoraDescarga ) SELECT DISTINCT PARTFA.aresp AS Aresp, " & _
 "TabDistritos.Cidade, TabNomeDist.[Distrito Nome], " & _
 "PARTFA.part AS [N Part], TimeValue(Right([inicio],8)) " & _
 "AS InicioL, TimeValue(Right([fim],8)) AS FimL, " & _
 "([fiml]-[iniciol]) AS [Hora Efetiva], " & _
 "([PARTFA]![nreg])/3 AS QtdUc, PARTFA.nome AS " & _
 "[Nome Leiturista], Left([dbo_logfa.data],10) AS DataFat, " & _
 "Right([dbo_logfa.data],8) AS HoraDescarga " & _
"FROM (dbo_LOGFA INNER JOIN ((REGIAOFA INNER JOIN " & _
"PARTFA ON REGIAOFA.chave = PARTFA.chave) INNER JOIN " & _
"(TabDistritos INNER JOIN TabNomeDist ON TabDistritos.Distrito " & _
"= TabNomeDist.Distrito) ON PARTFA.aresp = TabDistritos.Aresp) " & _
"ON dbo_LOGFA.arquivo = PARTFA.arqd) INNER JOIN dbo_LOGFA2 " & _
"ON PARTFA.arqc = dbo_LOGFA2.arquivo " & _
"WHERE (((Left([dbo_logfa.data],10))=#10/26/2005#) " & _
"AND ((Right([dbo_logfa.data],8))>#12/30/1899 15:1:0#) AND " & _
"((Left([dbo_logfa2.data],10))=#10/26/2005#));"

adoatraso.Refresh

Marcos vc colocou o begintrans antes da rotina e o committrans depois da rotina? Essa mensagem dá quando vc nãi inicia uma transação com o begintrans.

 

Espero ter Ajudado

 

t+

sua conexão esta aberta e o recordset foi criado.??

eu uso um componente Adodc

adoatraso.RecordSource

Tentei fazer alguma outra coisa , mas nem deu nada..... valeu pessoal

 

joga o conteudo em uma variavel string "SQL" e dá um debug.print sql cole a resultrado da janela imediate diretamente no banco de dados e execute, se rodar é sinal que a instução esta certa.

e depois faça:

adoatraso.RecordSource = sql

 

 

Este tal de adodc nao suporta este método de inclusão,use da seguinte forma

adoatraso.recordset.addnew

adoatraso.recordset("nomedocampo") = text1.text

adoatraso.recordset.update

adostraso.refresh

ou use uma conexão em ado puro,dai vc usa a funçao "insert into" do jeito que vc quiser..