Re: FOXPRO Datenbank auslesen
12.06.2003 12:46:58
IVAN
hi
schau dir das mal an
erstellt mit dem macroeditor du kanst es aber nicht 1:1 übernehmen da passwort anders ist und pfad anders ist als bei dir,name der beispiel db ist ACN.db!
1.neues macro erstellen(MACROEDITOR)
2.DATEN
3.externe daten importiern
4.arbeitsmappe speichern
5.entwicklungsumgebung öffnen
6.diese arbeitsmappe doppelklick
7.dein macro das du erstellt hast einfügenPrivate Sub Workbook_Open()
Application.ScreenUpdating = False
' Erstellt die verknüpfung per vba
With ActiveSheet.QueryTables.Add(Connection:=Array( _
"OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=G:\!Privat\MDB\ACN.mdb;Mode=Share Deny Write;Extended Pro" _
, _
"perties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password=62343;Jet OLEDB:Engine Type=5;Jet" _
, _
" OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database P" _
, _
"assword="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;" _
, "Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False"), _
Destination:=Range("A1"))
.CommandType = xlCmdTable
.CommandText = Array("KLIENTEN")
.Name = "ACN"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.SourceDataFile = "G:\!Privat\MDB\ACN.mdb"
.Refresh BackgroundQuery:=False
End With
Application.ScreenUpdating = True
UserForm1.Show 'falls du sie benötigst
End Sub
wobei du einstellungen true oder false deinen bedürfnissen anpassen mußt.
ich hoffe das hilft dir
ivan