🚀 go-pugleaf

Hoi.

In een VB programma maak ik gebruikt van een adodc control 'adoFiles' en een
datagrid control 'dgrdFiles'.

Ik maak tijdens runtime als volgt een verbinding met de database:

adoFiles.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
& "mijndb.mdb" & ";Persist Security Info=False"

De datagrid wordt daarna aan de adodc verbonden:

Set dgrdFiles.DataSource = adoFiles

Op die manier worden alle resultaten van de queries die uitgevoerd worden op
de adodc
getoond in de datagrid. Tot hiertoe geen probleem. Ik wil echter de
gebruiker de keuze geven de database te comprimeren. Dit gebeurt in het
programma in een functie als volgt (in strDBFilename zit de databasenaam):

' comprimeren
DBEngine.CompactDatabase strDBFilename, strDBFilename & "COMPACT"
' oude database vervangen door de gecomprimeerde
Kill strDBFilename
Name strDBFilename & "COMPACT" As strDBFilename

Het probleem is dat het comprimeren niet lukt. VB geeft een foutmelding
omdat de adodc en datagrid verbonden zijn met de database, en daarom krijgt
de toepassing niet de toestemming om de database te comprimeren. Het komt er
dus op aan om voor het comprimeren de adodc en datagrid terug van de
database los te koppelen (de connectie dus te verbreken). Hoe doe je dit? Ik
heb het volgende geprobeerd:

adoFiles.ConnectionString = ""
adoFiles.Refresh
Set dgrdFiles.DataSource = Nothing

Maar dan klaagt VB, want een verbinding met "" gaat eigenlijk niet. Het
positieve is dat het comprimeren nadien wel werkt.

Mijn vraag is dus: hoe kan ik de connectie tussen de adodc en datagrid en de
database verbreken (dus de database terug vrij maken), ZONDER foutmeldingen.

Dank bij voorbaat!

Emulov.