ERRO 8577
O PROVEDOR DE DADOS NÃO PODE EXECUTAR UM COMANDO DO PROVEDOR.
Este erro acontece quando imprimo um relatorio, em quando troca de conexão com o bco de dados via aplicação gera este erro. Enquanto não troco de conexão funciona. Conforme código abaixo:
Private Sub cmd_relatorio_Click()
On Error GoTo ErroRelat
Dim Filtro As String
Dim Sql2 As String
PrintStatus True
On Error GoTo ErroRelat
Sql2 = DataEnvironment1.Commands("q_resumo_doc_suc").CommandText
'---------------------------------------------------------------------------------
'Instrução SQL passada para CommandText de um DataEnvironment para selecionar registros na
'tabela RESUMO_DOC_SCE que tenham o campo DAT_PROC igual ao valor contido na DtPicker data_processamento
'---------------------------------------------------------------------------------
Filtro = "select * from resumo_doc_sce where dat_proc = " & Aspas (data_processamento) & " And cod_unid_oper = " & cod_unid.Text
DataEnvironment1.Commands("q_resumo_doc_suc").CommandText = Filtro
DataReport1.DataMember = "q_resumo_doc_suc"
'O Erro ocorre aqui, quando ele tenta abrir o relatório.
DataReport1.PrintReport True
DataEnvironment1.Commands("q_resumo_doc_suc").CommandText = Sql2
PrintStatus False
Exit Sub
