Preciso utilizar a opĆ§Ć£o de compactar base de dados do access...
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Como usar CompacDataBase no ADO?
Usa JRO (Jet and Replication Objects): The Vb code follows :
Dim oJro As JRO.JetEngine
Dim cnn1 As String, cnn2 As String
' Creamos un nuevo objeto JetEngine
Set oJro = New JRO.JetEngine
' Cadena de conexiĆ³n de origen
cnn1 = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data source=c:\Mis documentos\base97.mdb;" & _
"Jet OLEDB:Engine Type = 4;" & _
"Jet OLEDB:Database Password = ContraseƱa"
' Cadena de conexiĆ³n de destino
cnn2 = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data source=c:\Mis documentos\base2000.mdb;" & _
"Jet OLEDB:Engine Type = 5;" & _
"Jet OLEDB:Database Password = ContraseƱa"
' Compactamos la base de datos
oJro.CompactDatabase cnn1, cnn2
em visual basic em consegui. nĆ£o consigo fazer no xharbour
JRO stands for Microsoft Jet and Replication Objects 2.6 Library
Any error messages you want to share with us ?