CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg
Cookie ikon
Avatar billede superinfojens Nybegynder
15. januar 2001 - 15:25 Der er 4 kommentarer og
1 løsning

Komprimer en access database i VB6

Jeg har prøvet med :

Private Sub Command1_Click()
DBEngine.CompactDatabase \"D:\\test.mdb\", \"D:\\DB2.mdb\"
Kill \"D:\\test.mdb\"
Dim OldName
Dim NewName
OldName = \"D:\\DB2.mdb\": NewName = \"D:\\test.mdb\"
Name OldName As NewName
End Sub

Jeg for en

Run-time error ´424

Óbject required

Er der nogle som har prøvet dette her før ?
Avatar billede swjensen Nybegynder
15. januar 2001 - 17:07 #1
Private Sub Compact()
 
Dim fso As New FileSystemObject
 
  Set engine = CreateObject(\"DAO.DBEngine.35\")
  engine.CompactDatabase \"db1.mdb\",\"db2.mdb\"
 
  fso.DeleteFile \"db1.mdb\"
  fso.MoveFile \"db2.mdb\", \"db1.mdb\"

Set fso = Nothing
Set engine = Nothing
End Sub
Avatar billede swjensen Nybegynder
16. januar 2001 - 04:42 #2
erstat
Dim fso As New FileSystemObject
med
set fso = CreateObject(\"Scripting.FileSystemObject\")
Avatar billede superinfojens Nybegynder
16. januar 2001 - 09:48 #3
Det virker perfeckt !!!

swjensen er bare superduper god....tusinde tak !!!
Avatar billede swjensen Nybegynder
16. januar 2001 - 21:28 #4
:-)
Avatar billede brock Nybegynder
21. juni 2001 - 08:57 #5
Hej, jeg leder efter en tilsvarende løsning, bare online. Hvis I har tid og kræfter kunne det være fedt. Det skal lige siges, at jeg har adgang til serverne, så hvis der skal installeres access for eksempelt for at få jeres script til at virke, bliver det gjort.

http://www.eksperten.dk/spm/83311

Mvh

Brock
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel Indlæg Oprettet Seneste aktivitet
Proxy server.. Af SommerFyr i Visual Basic 12 10/07/202417:34 12/07/202414:34
Opdatering af SAPgrid værdi Af dane022 i Visual Basic 3 25/04/202414:26 28/08/202419:09
overskrive datasæt hvis det allerede eksistere Af overisen i Visual Basic 0 08/12/202320:00 -
Manuel rotering af billedfil i en formular, 90 - 180 - 270 - 360 grader Af stejuu i Visual Basic 2 04/12/202320:07 09/12/202310:49
Erstat http med faktisk billede Af crjensen i Visual Basic 0 09/10/202309:14 -
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester



Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 17:06 Sort skærm Af luffe1955 i Windows
I dag 15:18 WM-bus Minomess Single Jet vandmåler Brunata/Zenner Af kulawig i Andet hardware
I dag 14:23 Navn i stifinder til ny bruger: C:\Users\defaultuser100000 Af Jørgen Kirkegaard i Windows
I dag 11:44 Sti og filnavn i sidefod Af boro23 i Word
I dag 11:02 Zyxel Multy U netværk Af jcr18 i Wifi
White papers
Flere white papers »


Premium
Teaser billede
Netcompany udsat for endnu et datalæk
Læs mere »
Leverandør til 50 danske kommuner ramt af ransomware: "Det er ikke sjovt," siger direktør Thomas à Porta
Norlys-kunder har store problemer efter sammenlægning af it-systemer: Internet, tv og telefoni crasher i lange baner
Meldes til politiet for grove GDPR-brud og elendig sikkerhed: Mere end 1.000 tidligere ansatte har haft fri adgang til centralt KMD-system
Se alle »
Computerworld
Teaser billede
Stort Microsoft-nedbrud rammer flere kunder: Problemer med Teams og mails
Læs mere »
Test: Den snusfornuftige Volkswagen ID.3 blevet til lidt af el-bisse
Kæmpe datalæk på hospital: 750.000 patienters fortrolige data lækket
Et ”mareridt for privatlivets fred”: Kontroversiel Windows-funktion er udkommet i en test-version
Se alle »
CIO
Teaser billede
Microsoft hæver priserne på M365: Sådan kommer de nye priser til at ramme
Læs mere »
Stort Microsoft-nedbrud rammer flere kunder: Problemer med Teams og mails
Konsulenthus vil rulle Microsoft 365 Copilot ud til 200.000 ansatte
Leverandør til 50 danske kommuner ramt af ransomware: "Det er ikke sjovt," siger direktør Thomas à Porta
Se alle »
Job & Karriere
Teaser billede
Microsoft klar med ny direktion for den danske forretning: Her er de nye direktører
Læs mere »
Efter skelsættende møde med sportscoach: Stor dansk it-arbejdsplads indfører fredags-fri og isbade i arbejdstiden
Linus Torvalds giver russiske Linux-udviklere sparket: Vil ikke have noget med dem at gøre
Twoday er rykket til et af de dyreste postnumre i Danmark – og det kan betale sig, siger topchef Lars Berthelsen
Se alle »
White paper
Teaser billede
Sæt turbo på din cloudperformance og minimér risikoen for DDoS-angreb
Læs mere »
Cyberangreb bliver mere kostbare: Er du forberedt?
Derfor kræver AI, cloud og sikkerhed et stærkere netværk
SMB og cybertrusler: Brug sikkerhedsressourcerne optimalt
Se alle »

Events
Flere events »
White papers
Flere white papers »
IT-Kurser
Se alle vores it-kurser »