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