SELECT EM BD NA REDE COMO RESOLVER

USUARIO.EXCLUIDOS 12/04/2004 16:51:20
#20094
Pessoal veja a conexão.


Function Connect()

Set BD = New ADODB.Connection

    BD.CursorLocation = adUseClient
    BD.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + pathBase + ";Persist Security Info=True"
    BD.Open


End Function


Aqui minha Instrução

Function PesqSQLChkRefresh(SQL As String)

     Set TBChkRefresh = New ADODB.Recordset
    TBChkRefresh.Open " " + SQL + "", BD.ConnectionString, adOpenStatic, adLockOptimistic


End Function


Tem um timer que fica de um em um segundo verificando só que quem abre primeiro Blz.
Quando outro abre fica dando erro dizendo que o usuário está utilizando.

Tem como resolver?
USUARIO.EXCLUIDOS 12/04/2004 17:03:03
#20102 Resposta escolhida
Bom, ter, tem. Sempre tem, de alguma forma.
Minha primeira sugestão é: Você precisa REALMENTE do objeto Connection? Se precisa, altere a linha:

TBChkRefresh.Open " " + SQL + "", BD.ConnectionString, adOpenStatic, adLockOptimistic

para

TBChkRefresh.Open " " + SQL + "", BD, adOpenStatic, adLockOptimistic

Caso contrário, se não precisa, faça somente uso do Recordset, como em:

Function PesqSQLChkRefresh(SQL As String)
Set TBChkRefresh = New ADODB.Recordset
TBChkRefresh.CursorLocation = adUseClient
TBChkRefresh.ActiveConnection = ."Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + pathBase + ";Persist Security Info=True"
TBChkRefresh.Open " " + SQL + "", , adOpenStatic, adLockOptimistic
End Function
Tópico encerrado , respostas não são mais permitidas
Voltar