Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Daten aus Excel in Access schreiben |
14.08.2020 15:52:31 |
Stefan |
|
|
|
15.08.2020 15:07:50 |
Ulrich |
|
|
|
15.08.2020 16:56:55 |
Mase |
|
|
|
15.08.2020 17:58:00 |
volti |
|
|
|
15.08.2020 22:29:12 |
Mase |
|
|
|
15.08.2020 22:51:46 |
Gast54923 |
|
|
Von:
Stefan |
Datum:
14.08.2020 15:52:31 |
Views:
870 |
Rating:
|
Antwort:
|
Thema:
Daten aus Excel in Access schreiben |
Hallo zusammen,
ich probiere daran herum, Daten in Excel einzugeben und diese per Mausklick in eine Accessdatenbank zu übergeben. Die Lösung ist vermutlich extrem einfach, ich kriege es aber irgendwie nicht auf die Kette.
Zum Üben habe ich eine Tabelle mit Namen "tbl_Namen" angelegt und per SQL
INSERT INTO tbl_Namen (Vorname, Nachname) VALUES ('Max', 'Mustermann')
dieser Tabelle hinzugefügt.
Nun habe ich folgenden Code in Excel:
Private Sub cmd_einlesen_Click()
Dim strDB As String
Dim strCon As String
Dim SQL As String
Dim objCon As Object
Dim objRst As Object
strDB = ThisWorkbook.Path & "\Test_Datenbank.accdb"
Set objCon = CreateObject("ADODB.CONNECTION")
Set objRst = CreateObject("ADODB.Recordset")
strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strDB & _
";Persist Security Info=False;"
objCon.Open strCon
SQL = "Insert Into tbl_Namen(Vorname, Nachname) Values ('" & Tabelle1.Range("H4").Value & "','" & Tabelle1.Range("I4").Value & "');"
objCon.Execute SQL
objRst.Close: objCon.Close
Set objRst = Nothing: Set objCon = Nothing
End Sub
Wenn ich dies ausführe, erscheint jedoch ein Laufzeitfehler
Was mache ich falsch?
Vielen dank und viele Grüße
Stefan
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Daten aus Excel in Access schreiben |
14.08.2020 15:52:31 |
Stefan |
|
|
|
15.08.2020 15:07:50 |
Ulrich |
|
|
|
15.08.2020 16:56:55 |
Mase |
|
|
|
15.08.2020 17:58:00 |
volti |
|
|
|
15.08.2020 22:29:12 |
Mase |
|
|
|
15.08.2020 22:51:46 |
Gast54923 |
|
|