ABRIR EM MODO EXCLUSIVO ADO X ACCESS

MOACIRPFAU 19/01/2010 21:03:11
#332352
Olá!

Como eu consigo abrir uma conexao em ADO com ACCESS, em modo exclusivo?

Obrigado
MASTER2020 19/01/2010 21:56:58
#332358
este ado vc quer conectar com access no codigo ou usar vb 6 com base dados sendo access
MOACIRPFAU 19/01/2010 22:03:49
#332359
Aplicativo em VB6 conectando uma base access
MARCOSLING 19/01/2010 22:05:30
#332360
Citação:

:
este ado vc quer conectar com access no codigo ou usar vb 6 com base dados sendo access



Como é que é ?!?!?
ONBASS 19/01/2010 22:11:20
#332361
Ado, exclusivo, ainda n vi.... assim serve?

Citação:


Dim acObj As New Access.Application

acObj.OpenAccessProject caminho, True

*** onde True = exclusivo
MOACIRPFAU 19/01/2010 23:31:56
#332366
Ola!

Tenho um processo que tenho que realizar no banco de dados que é demorado, e durante esse tempo, ninguem pode acessa-lo, por isso quero abrir em modo exclusivo.
E o melhor seria em ADO, pois já abro a conexao para realizar o processo dessa maneira.
ONBASS 20/01/2010 00:29:29
#332368
entendo...creio q algum colega poderá te ajudar melhor, pesquisei aqui e nao achei nda sobre ADO x Exclusivo, exceto acesso com senha e tal, no teste q fiz aqui é possível abrir o banco em exclusivo e realizar comandos SQL, no caso fiz inserção, mas vc poderia executar a partir de sua rotino em ADO fazendo uma POGzinha básica..rsrs, bom se servir de alguma coisa , lá vai.... aqui funfou!

Citação:


Dim acObj As New Access.Application

acObj.Visible = False
acObj.DoCmd.SetWarnings False
acObj.OpenCurrentDatabase [Ô]d:\bd1.mdb[Ô], True [ô]abre o bd no caminho como exclusivo
acObj.DoCmd.RunSQL [Ô]INSERT INTO clientes(Nome,Data) VALUES([ô]Firmino[ô],[ô]1/1/09[ô])[Ô] [ô]insere alguns valores na tab clientes
acObj.DoCmd.SetWarnings True

MsgBox [Ô]Arquivos cadastrados[Ô]
DANIKULL 20/01/2010 10:59:15
#332387 Resposta escolhida
MOACIRPFAU, bom dia,

Citação:

:
Olá!

Como eu consigo abrir uma conexao em ADO com ACCESS, em modo exclusivo?

Obrigado



Veja se é isto que você quer:

Toda vez que você vai executar uma query sql você tem que abrir o banco então faça desta forma abaixo?

Option Explicit
Public ERPConn As ADODB.Connection   [ô]Variável de conexão ADO

 Set ERPConn = New ADODB.Connection
    With ERPConn
        .Provider = [Ô]Microsoft.JET.OLEDB.4.0[Ô]
        .ConnectionString = (Diretório + [Ô]\[Ô] + Base_de_dados.mdb)
        .Mode = adModeShareExclusive  [ô]Torna a abertura em modo exclusivo, bloqueando outro usuário de abri-lo
        .Open
    End With


Veja se te ajuda, ok???
WEBMASTER 20/01/2010 12:43:41
#332395
Uma boa dica tambem eh procurar no http://www.connectionstrings.com la pode ter algo a respeito.
ONBASS 20/01/2010 15:06:02
#332413
bom dia,

DANIKULL, boa idéia hen, não conhecia!!
Tópico encerrado , respostas não são mais permitidas
Voltar