NECESSITO DE AJUDA - BLOQUEIO DE REGISTRO ACCESS

USUARIO.EXCLUIDOS 23/03/2005 02:39:30
#74403
Preciso de Ajuda: Tenho uma aplicação em VB6 que faz algumas consultas em um bando de dados Access. O problema é o seguinte: Quando faço uma consulta, o sistema gera um arquivo .ldb (informações sobre o bloqueio do acces), não permitindo acessar o arquivo .mdb durante este período. O arquivo .ldb só é excluído quando fecho o aplicativo. Alguém poderia dar uma Luz??? Segue o código:

Private Sub Form_Load()
arquivo = FormAux.TxtDirCons.Text & "\" & FormAux.TxtTipoCons.Text

With FormAuxConsulta.AdoCons
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & arquivo & _
";Mode=ReadWrite;Persist Security Info=False"

.CommandType = adCmdTable
.RecordSource = FormAux.TxtTipo.Text



Set FormAuxConsulta.TxtIDAlarme.DataSource = AdoCons
FormAuxConsulta.TxtIDAlarme.DataField = "ID"
Set FormAuxConsulta.TxtTag.DataSource = AdoCons
FormAuxConsulta.TxtTag.DataField = "TAG"
Set FormAuxConsulta.TxtDesc.DataSource = AdoCons
FormAuxConsulta.TxtDesc.DataField = "Descrição"
Set FormAuxConsulta.TxtIndic.DataSource = AdoCons
FormAuxConsulta.TxtIndic.DataField = "Indicação"
Set FormAuxConsulta.TxtValor.DataSource = AdoCons
FormAuxConsulta.TxtValor.DataField = "Valor"
Set FormAuxConsulta.TxtData.DataSource = AdoCons
FormAuxConsulta.TxtData.DataField = "Data"
Set FormAuxConsulta.TxtHora.DataSource = AdoCons
FormAuxConsulta.TxtHora.DataField = "Hora"
End With
End Sub
WEBMASTER 23/03/2005 02:55:30
#74404 Resposta escolhida
Ao fechar a conexão com o banco de dados (Conn.Close), o arquivo em questão será excluído.
WEBMASTER 23/03/2005 03:01:57
#74406
Após fechar a string de conexão tente setá-la para "nada".


Conn.Close
Set Conn=Nothing


Vale ressaltar que Conn está tomada com o nome da variante que abre a conexão em seu sistema !
Tópico encerrado , respostas não são mais permitidas
Voltar