AW: Automatisch Export aus Datenbanken anstoßen
20.05.2005 13:50:29
Silvia
erst mal vielen Dank für die bisherigen Antworten.
ich hab mal das folgende probiert:
Sub DatenbankImport()
With ActiveSheet.QueryTables.Add(Connection:=Array( _
"OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=doersi2t;Data Source=\\fthw9g7a\PACS_ : Products;Mode=Share Deny Write;Extended " _
, _
"Properties="""";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";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("D21"))
.CommandType = xlCmdTable
.CommandText = "select distinct T1.dbid,T1.id_num,T1.state_num,T1.priority,T1.no_,T1.summary,T1.label,T1.found_in,T1.category,T1.keyword_1,T1.real_version,T1.mess_name,T1.remain_name from Defect T1,rr_alias_client T3,rr_alias_default T4,rr_alias_product T5 where T1.client_access = T3.dbid and T1.default_access = T4.dbid and T1.product_access = T5.dbid and (T1.dbid <> 0 and ((T1.real_version like '%VB20A%' and T1.prod_proc like '%SIRIUS%' and T1.no_ like '%ssc%'))) and ((T3.dbid in (-1)) or (T4.dbid in (-1)) or (T5.dbid in (34204604,34303445,34151943,33907988,34204757))) order by T1.id_num ASC"
.Name = "Export"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
End Sub
Beim Ausführen kommt beim Refresh ein MS Jet Ole DB-Initialisierungsinformationsfenster
Wenn ich hier dann mein Passwort eingebe kommt folgende Fehlermeldung:
"Die Anwendung kann nicht gestartet werden. Die Informationsdatei für die Arbeitsgruppe fehlt oder ist exklusiv von einem anderen Benutzer geöffnet".
So, nun blinken in meinen Augen viele Fragezeichen.
Was kann das denn heißen?
Wird die DB nicht gefunden?
Bitte helft mir weiter...