RUN TIME ERROR 3709
A conexao nao pode ser usada para realizar esta operacao , ela está fechada ou é invelida nesse contexto
o erro aponta pra essa linha
Rst.Open sSelect, conexao, adOpenForwardOnly, adLockReadOnly
O código funciona corretamente o problema é que a tabela está em branca
como trato isso ?
o erro aponta pra essa linha
Rst.Open sSelect, conexao, adOpenForwardOnly, adLockReadOnly
O código funciona corretamente o problema é que a tabela está em branca
como trato isso ?
Citação:conectar
Dim Rst As ADODB.Recordset
Set Rst = New ADODB.Recordset
Dim sSelect As String
sSelect = [Ô]EXECUTE SP_CADEMPR_SELECT[Ô]
Rst.Open sSelect, conexao, adOpenForwardOnly, adLockReadOnly
While Not Rst.EOF
CmbEmpresa.AddItem Rst!Empr_Nom & [Ô][Ô]
Rst.MoveNext
Wend
Desconectar
sSelect = [Ô]EXECUTE SP_CADEMPR_SELECT[Ô]
if conexao.State = 0 then
conexao.Open
end if
Rst.Open sSelect, conexao, adOpenForwardOnly, adLockReadOnly
if conexao.State = 0 then
conexao.Open
end if
Rst.Open sSelect, conexao, adOpenForwardOnly, adLockReadOnly
obrigado ! KERPLUNK
Tópico encerrado , respostas não são mais permitidas