|
|
Postada em 24/01/2010 20:47 hs
ola pessoa estou desenvolvendo uma pequena aplicaçao em vb mais esta dando um erro de conexao com o banco de dados. em um dos modulos
mostrando a seguinte mensagem:
run-time error 3709= a conexao nao pode ser usada para realizar esta operaçao. ela esta fechada ou é invalida neste contexto.
as linhas de codigo sao as seguinte
Sub main()
With base
.CursorLocation = adUseClient
.Open "provider=microsoft.jet.OLEDB.4.0;data source=" & App.Path & "usuario.mdb; persist security info=false"
frmlogin.Show
End With
Sub usuario()
With Rsusuario
If .State = 1 Then .Close
.Open "select * from senha", base, adOpenStatic, adLockPessimistic
End With
End Sub
e na linha: ''.Open select * from senha", base, adOpenStatic, adLockPessimistic
e onde da o problema se alguem souber me falar como conserto isso ficarei muito grato.
MUITO OBRIGADO!!!
|
|
|
|
|
|
Omar
|
MONTES CLAROS
MG - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 25/01/2010 14:46 hs
José Antônio Andre de Felipe use dessa forma. With Base
.CursorLocation = adUseClient
.Open "provider=microsoft.jet.OLEDB.4.0;data source=" & App.Path & "usuario.mdb; persist security info=false"
frmlogin.Show
End With Compare com o outro e vc vai ver o seu erro.ok Valeu |
|
|
|
Omar
|
MONTES CLAROS
MG - BRASIL
|
|
Postada em 25/01/2010 14:47 hs
desculpe foi errado. valeu vai outra |
|
|
|
Omar
|
MONTES CLAROS
MG - BRASIL
|
|
Postada em 25/01/2010 14:49 hs
É essa aki With Base
.CursorLocation = adUseClient
.Open "provider=microsoft.jet.OLEDB.4.0;data source=" & App.Path & "usuario.mdb; persist security info=false"
frmlogin.Show
End With
|
|
|
|
|
|
Postada em 25/01/2010 15:45 hs
oi omar muito obrigado pela iniciativa mais infelizmente as linhas que vc me passou sao identicas as minhas se puder comparar para min outra vez agradeço muito
Obrigado.
|
|
|
|
Omar
|
MONTES CLAROS
MG - BRASIL
|
|
Postada em 26/01/2010 11:18 hs
Andre Felipe não sei o que aconteceu, a barra não foi envida como o meu teste.Vou tentar de novo.Se não der olhe seu Email que vou enviar por ele. With Banco
.CursorLocation = adUseClient
.Open "provider=microsoft.jet.OLEDB.4.0;data source=" & App.Path & "usuario.mdb; persist security info=false"
frmlogin.Show
End With |
|
|
|
