Compactar BD Access via VB6

[caezar 0]

Olá amigos,

 

Estou usando VB6 para acessar uma base e realizar uma série de consultas. Porem a cada termino de excução de uma consulta eu preciso compactar e reparar o BD antes de iniciar a próxima consulta.

 

alguém teria uma idéias para esse código?

 

Obrigado

[gabrieldb 5]

Dá uma olhada aqui brother e vê se ajuda

http://office.microsoft.com/pt-br/access/H...55831046.aspx#3

[caezar 0]

Eu fiz de uma outra forma. Mas tenho uma outra dúvida:

 

E para executar uma querie ja montada no Access? Alguma idéias?

 

Eu estava tentando com esse código, mas ele me retoma um erro dizendo que a operação foi cancelada:

 

Function ExecutaQueries(path As String, querieNome As String)

 

Dim myDSN As ODBCTool.Dsn

Set myDSN = New ODBCTool.Dsn

myDSN.CreateDSN "dsn_name", "Microsoft Access Driver (*.mdb)", "", "", "Admin", "Do not put password here", "Description", True, path

 

Dim vCon As ADODB.Connection

Set vCon = New ADODB.Connection

vCon.Provider = "MSDASQL.1"

vCon.Open "dsn_name", "Admin", "USE REAL PASSWORD HERE"

 

vCon.Execute querieNome

 

vCon.Close

 

Set vCon = Nothing

 

 

End Function

[Claudio Neto 3]

Caezar, veja se é disso que precisa:

 

http://forum.imasters.com.br/index.php...consulta+access