O Q SIGNIFICAA ESSA MSG ??

MARCELO.TREZE 16/10/2010 18:38:04
#355245

vc não abriu a conexão ao realizar uma operação

poste seu código para podermos ajuda-la

GABYS 16/10/2010 18:53:25
#355249

depois dessa msg
ele vai pra essa linhaa
[txt-color=#0000f0]Private Sub [/txt-color]Form_Load()
If tab_uf.State = adStateOpen Then tab_uf.Close
tab_uf.Open [Ô]UFS[Ô], conectar, adOpenKeyset, adLockOptimistic
If tab_cid.State = adStateOpen Then tab_cid.Close
tab_cid.Open [Ô]Cidades[Ô], conectar, adOpenKeyset, adLockOptimistic
If tab_bairro.State = adStateOpen Then tab_bairro.Close
tab_bairro.Open [Ô]Bairros[Ô], conectar, adOpenKeyset, adLockOptimistic
If tab_logra.State = adStateOpen Then tab_logra.Close
tab_logra.Open [Ô]Enderecos[Ô], conectar, adOpenKeyset, adLockOptimistic

MARIOZNETO 16/10/2010 20:30:14
#355259 Resposta escolhida

Apenas abra a tabela, retire este tab_uf.close

T+

EDERMIR 17/10/2010 09:52:40
#355280

Quando você coloca o comando em uma linha como o seu IF, o VB executa a sintaxe na linha inteira antes de executar.

Você tem duas opções:

Ou abre a conexão conforme orientado pelo MARCELO-TREZE e MARIOZNETO

Ou você [Ô]desmembra[Ô] o IF assim:
If tab uf.state = adstateopen then
tab uf.close
endif

XXXANGELSXXX 18/10/2010 09:19:25
#355340

solução do edemir mais aconselhavel...

MARCELO.TREZE 18/10/2010 10:49:43
#355353

eu ja parto pro seguinte principio se vc está abrindo no load do form, suposta-mente esta conexão deveria estar fechada.

tire esta linha e verifique se funciona