schreiben / lesen in Access-Datenbank

With ScanArchiv lRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 .Cells(lRow, 1).Value = UF_Scan.TB_Barcode.Value .Cells(lRow, 2).Value = UF_Scan.ListBox_Station.Value .Cells(lRow, 3).Value = Now .Cells(lRow, 3).NumberFormat = "m/d/yyyy h:mm" .Cells(lRow, 4).Value = UF_Scan.TextBox_Comment.Value End With

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Dieter und alle anderen,
bitte verzeiht dass ich hier jetzt Access fragen stelle - aber ich spreche es aus Excel heraus an, also ist es im Thema :-)
Dieter hat mir ein Beispielmakro geschickt, das funktioniert. Ich schreibe es gerade auf meine Bedürfnisse um, komme aber an dieser Stelle nicht weiter:

Set rs = New ADODB.Recordset
rs.Index = "Primärschlüssel"

Was ist denn ein ADODB.Recordset.Index? Und was muss ich hier angeben statt "Primärschlüssel"? Ich habe eine "blanke" Access Datenbank erstellt, meine erste Überschrift heisst "CRM" und in der ersten Spalte steht "ID".
rs.Index = "ID" sowie rs.Index = "CRM" habe ich ausprobiert, hat beides nicht geklappt.
Wer kennt sich mit Access aus und kann helfen?
LG,
Klaus M.
gesamtes Makro (von Dieter):

Option Explicit
Sub Neue_Artikel_hinzufügen_SQL()
Const pfad As String = "H:\access test"
Const dbName As String = "\ScanArchiv.accdb"
Const WSName As String = "ScanBox"
' Die in der Tabelle "Scanbox"
' aufgeführten Scans werden zur
' Access-Tabelle "ScanBox" hinzugefügt
Dim betrSätze As Long
Dim cmd As ADODB.Command
Dim con As ADODB.Connection
Dim datei As String
Dim rs As ADODB.Recordset
Dim sql As String
Const titel As String = "ScanBox hochladen"
Dim ws As Worksheet
Dim ze As Integer
datei = pfad & dbName
If Dir(datei) = "" Then
MsgBox "Datei '" & datei & "' existiert nicht!"
Exit Sub
End If
Set con = New ADODB.Connection
con.Open ConnectionString:= _
"Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=" & datei & ";" & _
"Mode=Share Exclusive"
Set cmd = New ADODB.Command
cmd.ActiveConnection = con
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseServer
rs.Open Source:="ScanArchiv", _
ActiveConnection:=con, _
CursorType:=adOpenStatic, _
LockType:=adLockPessimistic, _
Options:=adCmdTableDirect
Set ws = ThisWorkbook.Worksheets(WSName)
rs.Index = "Primärschlüssel"
'Neue Scans hinzufügen
ze = 2
Do Until IsEmpty(ws.Cells(ze, 1))
sql = "INSERT INTO Artikel" & "(CRM, Station, Uhr, Datum, Aktivität, Redo) " & _
"VALUES(" & ws.Cells(ze, 1) & ", " & "'" & ws.Cells(ze, 2) & "'," & "'" & ws.Cells(ze, _
3) & "'," & ws.Cells(ze, 4) & "," & ws.Cells(ze, 5) & "," & ws.Cells(ze, 6) & ");"
cmd.CommandText = sql
cmd.Execute RecordsAffected:=betrSätze, _
Options:=adCmdText + adExecuteNoRecords
If betrSätze  1 Then
MsgBox "Fehler beim Einfügen von Satz " & "" & _
vbNewLine & betrSätze
GoTo Ende
End If
ze = ze + 1
Loop
'Fertigmeldung
MsgBox Prompt:=ze - 2 & " neue Scans der Datenbank " & _
"hinzugefügt.", _
Title:=titel
Ende:
Set cmd = Nothing
con.Close
Set con = Nothing
End Sub

Option Explicit Sub NewScanAccess(myCRM As Long, myStation As String, myUhr, myDatum, myAktivität As String, _ myRedo As Boolean, myKommentar As String, myMonatsindex As String) Const pfad As String = "H:\access test" Const dbName As String = "\ScanArchiv.accdb" ' Die in der Tabelle "Scanbox" ' aufgeführten Scans werden zur ' Access-Tabelle "ScanBox" hinzugefügt Dim con2 As ADODB.Connection Dim datei As String Dim rs As ADODB.Recordset datei = pfad & dbName If Dir(datei) = "" Then MsgBox "Datei '" & datei & "' existiert nicht!" Exit Sub End If Set con2 = New ADODB.Connection con2.Open ConnectionString:= _ "Provider=Microsoft.ACE.OLEDB.12.0;" & _ "Data Source=" & datei & ";" & _ "Mode=Share Exclusive" Set rs = New ADODB.Recordset rs.CursorLocation = adUseServer rs.Open Source:="ScanArchiv", _ ActiveConnection:=con2, _ CursorType:=adOpenStatic, _ LockType:=adLockPessimistic, _ Options:=adCmdTableDirect 'rs.Index = "Primärschlüssel" rs.AddNew rs!CRM = myCRM rs!Station = myStation rs!Uhr = myUhr rs!Datum = myDatum rs!Aktivität = myAktivität rs!Redo = myRedo rs!Kommentar = myKommentar rs!Monatsindex = myMonatsindex rs!Code = myCRM & "#" & myStation rs.Update Ende: rs.Close Set rs = Nothing con2.Close Set con2 = Nothing End Sub

Hallo Klaus, hallo Thomas,
vielen Dank für eure freundlichen Rückmeldungen.
Ich habe die Dateien aus meinem schon etwas älteren Bestand reaktiviert und ich versuche, mich da wieder so einigermaßen zu orientieren.
@Klaus
Zum Primärschlüssel schlage ich vor, es einmal mit
rs.Index = "PrimaryKey"
zu versuchen. Ich glaube, dass die Schreibweise abhängig ist von der Access-Version, in der die Datenbank erstellt wurde.
In Access kannst du prüfen, ob die Tabelle "ScanArchiv" einen Primärschlüssel hat.
Du stellst die Tabelle in der Entwurfsansicht dar (links einen Rechtsklick auf den Tabellennamen, Auswahl von "Entwurfsansicht").
In dem grauen Kästchen links neben dem Feld, welches der Primärschlüssel ist, ist ein kleines Schlüsselsymbol zu sehen.
Falls kein Schlüsselsymbol zu sehen ist, wählst du das gewünschte Schlüsselfeld aus und klickst dann im Menüband auf "Primärschlüssel".
Ich füge noch ein Analyseprogramm bei, welches die Schlüssel der verschiedenen Tabellen einer Datenbank auflistet. Vielleicht hilft das auch noch weiter.
https://www.herber.de/bbs/user/133379.xlsm
Ohne Prüfung, ob ein Satz mit dem Primärschlüssel schon vorhanden ist, erhälst du ggf. bei der Hinzufügung einen Laufzeitfehler.
Ich wünsche dir viel Erfolg mit dem Projekt.
Mit freundlichen Grüßen
Dieter

Const myDB As String = "Repair" 'DB-Tabellenname im Access Const myTable As String = "Tabelle1" 'in dieser Tabelle stehen die Daten für Access Sub Neue_Artikel_hinzufügen() Set ws = Sheets(myTable) rs.Open Source:=myDB, _ ActiveConnection:=con, _ CursorType:=adOpenStatic, _ LockType:=adLockPessimistic, _ Options:=adCmdTableDirect End Sub

Beliebteste Forumthreads (12 Monate)

schreiben / lesen in Access-Datenbank

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

3 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

schreiben / lesen in Access-Datenbank

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

3 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread