|
|
Postada em 29/08/2005 16:33 hs
Tenho um sistema funcionando em 3 clientes, e em um deles esta dando este erro:
Run-time error '3704';
Operação não permitida quando o objeto esta fechado
So que este mesmo sistema funciona na minha maquina e em mais outras duas e não da este problema o que faço, pois não consigo localizar a origem do erro.
|
|
|
|
|
|
|
|
Postada em 30/08/2005 00:28 hs
Olá, Quando o erro ocorre e você não consegue simular o problema, provavelmente deve haver algum problema na configuração do programa no computador do cliente. Cuidado se você colocou a instrução On Error Resume Next em algum procedimento que abra um banco de dados ou um recordset, pois se não for possível abrir a base ou o recordset, você só receberá um erro quando tentar fazer alguma operação de busca ou movimentação de registros. Verifique se a rede está sendo acessada corretamente, e caso a base esteja em outro computador, tente chegar até ela por fora do programa através do Explorer, por exemplo. Se não conseguir, reconfigure o computador. um abraço, Sandro. |
|
|
|
|
|
Postada em 01/08/2021 16:45 hs
Ola pessoal, sou novato na programação em vb e estou com um erro " Erro 3704 operação não é permitida quando o objeto é fechado "
, tenho uma classe chamada clsConecta com o conteudo:
Public cn1 As New ADODB.Connection
Public rs As New ADODB.Recordset
Public rs2 As New ADODB.Recordset
Public DATA_BRASIL As Boolean
Public Sub clOpenDatabase()
DATA_BRASIL = IIf(UCase(Left(retorna_registry(LOCALE_SSHORTDATE), 1)) = "M", False, True)
'cn1.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Financeiro;Data Source=CLB"
cn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Estoque.mdb;Persist Security Info=False" '
End Sub
Public Sub clCloseDatabase()
conecta.cn1.Close
End Sub
e estou com problema na programação abaixo:
Dim conecta As New clsConecta
Dim rs As ADODB.Recordset
Dim rs2 As ADODB.Recordset
Dim DATA_BRASIL As Boolean
Private Sub btcancelar_Click(index As Integer)
End
End Sub
Private Sub entrar_Click(index As Integer)
'Set conecta.rs = conecta.cn1.Open
SQL = ""
SQL = "select * from Usuario where nome_txt = usuer.Text and pass.Text"
Set conecta.rs = conecta.cn1.Execute(SQL) ------<<<<<<<<<<erro 3704 <<<<<<<<
MsgBox ("cheguei aqui!")
End Sub
Alguem pode me ajudar. rsrsr
|
|
|
|
|
