MIGRAR ACCESS 97 PARA 2003 VIA CODIGO
OLÃ!
PRECISO SABER SE TERIA COMO REALIZAR A MIGRAÇÃO DE UMA BASE ACCESS 97 PARA ACCESS 2003 VIA CÓDIGO?
OBRIGADO
PRECISO SABER SE TERIA COMO REALIZAR A MIGRAÇÃO DE UMA BASE ACCESS 97 PARA ACCESS 2003 VIA CÓDIGO?
OBRIGADO
neste site tem a solução.
http://rubensfarias.blogspot.com/2001/05/converter-banco-de-dados-access-para_5255.html
Const Jet10 = 1
Const Jet11 = 2
Const Jet20 = 3
Const Jet3x = 4
Const Jet4x = 5
DoConvertMDB [Ô]C:\data\MyDB97.MDB[Ô], [Ô]C:\data\MyDB2000.MDB[Ô], Jet4x
Sub DoConvertMDB(SourceDB, DestDB, Format)
Dim Engine
Set Engine = CreateObject([Ô]JRO.JetEngine[Ô])
Engine.CompactDatabase [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & SourceDB, _
[Ô]Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=[Ô] & Format & [Ô];Data Source=[Ô] & DestDB
End Sub
http://rubensfarias.blogspot.com/2001/05/converter-banco-de-dados-access-para_5255.html
Const Jet10 = 1
Const Jet11 = 2
Const Jet20 = 3
Const Jet3x = 4
Const Jet4x = 5
DoConvertMDB [Ô]C:\data\MyDB97.MDB[Ô], [Ô]C:\data\MyDB2000.MDB[Ô], Jet4x
Sub DoConvertMDB(SourceDB, DestDB, Format)
Dim Engine
Set Engine = CreateObject([Ô]JRO.JetEngine[Ô])
Engine.CompactDatabase [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & SourceDB, _
[Ô]Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=[Ô] & Format & [Ô];Data Source=[Ô] & DestDB
End Sub
Tópico encerrado , respostas não são mais permitidas