Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
224to228
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
224to228
224to228
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Update einer Access-Tabelle

Update einer Access-Tabelle
27.02.2003 16:01:56
Stefan
Hallo zusammen,

ich habe eine Access-Datenbank in der eine Tabelle "Hardware" existiert. Diese Tabelle besteht aus den Feldern "Name" und "Port". Ich möchte nun anhand einer Excel-Datei, die auch die beiden Spalten besitzt einen Ableich vornehmen. D.h. in der Access-Tabelle ist das Feld "Name" überall leer, dieses will ich füllen anhand der Excel-Referenzdatei. Wie gehe ich da am besten vor? Ich habe schon eine Lösung mit ADO gestrickt, diese funktioniert aber nicht, ich kann nur auslesen, aber nicht importieren. Bitte um Hilfe!!!!!

(ein Teilauszug aus dem Tool:)

SQL = "SELECT Ports.Nummer, Hardware.Namen " & _
"FROM HardwareTypen INNER JOIN (Ports " & _
"INNER JOIN (Aufträge INNER JOIN Hardware " & _
"ON Aufträge.Auftrag_ID = Hardware.Auftrag_ID) " & _
"ON Ports.Port_ID = Aufträge.Port_ID) ON HardwareTypen.HardwareTyp_" & _
"ID = Hardware.HardwareTyp_ID;"

Set RS = Conn.Execute(SQL)

For I = 2 To LstRef
PIDRef = Workbooks(RefDat).Sheets(1).Cells(I, 2).Value
PIDRef = Left(PIDRef, 8)
RNamRef = Workbooks(RefDat).Sheets(1).Cells(I, 1).Value
Do Until RS.EOF
PIDDB = RS.Fields("Nummer")
RS.MoveNext
If PIDDB = PIDRef Then
NameDB = RS.Fields("Namen")
If NameDB = "" Then
RS.Fields("Namen") = RNamRef
End If
End If
Loop
Application.StatusBar = I & " von " & LstRef & " Datensätzen importiert..."
Next I


1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Update einer Access-Tabelle
27.02.2003 18:19:29
Gert Seler

Hallo Stefan,
du solltest zuerst die xls-Tabelle nach mdb importieren oder
mit mdb verknüpfen.
Diese neue Tabelle über eine Abfrage die gesuchten Werte filtern.
Der obige Auszug beginnt mit einer SQLAbfrage(Inner Join)bevor
die xls-Tabelle geöffnet ist.
Such mal in der ACCESS-HILFE nach "Tabellen importieren".
mfg
Gert

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige