DESCONECTANDO E RECONECTANDO BANCO DE DADOS ADODB
quero realizar duas consultas com o mesmo recordset e esta dando erro.como que eu faço pra desconectar e reconectar o banco sem fechar a aplicação.
Olha eu uso 2 variaveis Recordset olha só:
ai eu faço uma private sub da mesma forma:
depois e só vc montar a query uma dentro da outra!
Public Function Consultar()
With cnnComando
.ActiveConnection = cnnTeste
.CommandType = adCmdText
'Monta o comando SELECT para selecionar o registro na tabela:
.CommandText = strSql
Set rsSelecao = .Execute
End With
End Functionai eu faço uma private sub da mesma forma:
Private Sub Consulta_Alternativa()
With cnnComando
.ActiveConnection = cnnTeste
.CommandType = adCmdText
'Monta o comando SELECT para selecionar o registro na tabela:
.CommandText = strSql
Set rsSelecao2 = .Execute
End With
End Subdepois e só vc montar a query uma dentro da outra!
ou só para limpar a Recordset e só vc zerar ela
set rsSelecao = Nothing
set rsSelecao = Nothing
Mantenha o bd aberto e trate somente o recordset
Public Function Consultar(strSql As String) As ADODB.Recordset
If Consultar.State = adStateOpen Then
Consultar.Close
End If
Set Consultar = ConexaoBD.Execute(strSql)
End Function
Celso explique melhor o que esta querendo fazer.
Tópico encerrado , respostas não são mais permitidas