Excel mit Acces DB
Hallo,
ich möchte bestimmte Felder in Excel über einen Button in eine Access DB schreiben.
Leider bekomm ich das mit dem Connection String und schreiben der Daten in die TB nicht hin.
Gibt es da eine Lösung zu?
MfG
Florian86
ich möchte bestimmte Felder in Excel über einen Button in eine Access DB schreiben.
Leider bekomm ich das mit dem Connection String und schreiben der Daten in die TB nicht hin.
Gibt es da eine Lösung zu?
MfG
Florian86
Kommentieren
Teilen
Auf Facebook teilen
Auf X (Twitter) teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 289995
Url: https://administrator.de/forum/excel-mit-acces-db-289995.html
Ausgedruckt am: 14.05.2025 um 20:05 Uhr
10 Kommentare
Neuester Kommentar
Set conn = CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Ordner\test.accdb;"
conn.Execute "Insert Into NAMEDERTABELLE (Artikelnr,Beschreibung) VALUES ('" & Range("B2").Value & "','" & Range("B3").Value & "')"
conn.CloseSQL Insert String einfach nach Bedarf anpassen ... usw.
Gruß grexit
Hey,
ich wird es ausprobieren und Rückinfo melden.
MfG
Florian86
ich wird es ausprobieren und Rückinfo melden.
MfG
Florian86
Hallo Grexit,
das mit dem String funktioniert super...
Leider habe ich das Problem bei Beschreibung kommen öfters Apostroph vor welche mir immer Fehler generieren.
Laufzeitfehler '-2147217900 (80040e14)':
Syntaxfehler ( fehlender Operator ) in Abfrageausdruck "Emmi's Probepackung"
kann ich das Irgendwie umgehen?
Mit freundlichen Grüßen
Florian86
das mit dem String funktioniert super...
Leider habe ich das Problem bei Beschreibung kommen öfters Apostroph vor welche mir immer Fehler generieren.
Laufzeitfehler '-2147217900 (80040e14)':
Syntaxfehler ( fehlender Operator ) in Abfrageausdruck "Emmi's Probepackung"
kann ich das Irgendwie umgehen?
Mit freundlichen Grüßen
Florian86
Zitat von @Florian86:
Hallo Grexit,
das mit dem String funktioniert super...
Leider habe ich das Problem bei Beschreibung kommen öfters Apostroph vor welche mir immer Fehler generieren.
Laufzeitfehler '-2147217900 (80040e14)':
Syntaxfehler ( fehlender Operator ) in Abfrageausdruck "Emmi's Probepackung"
kann ich das Irgendwie umgehen?
Ja, du musst die single quotes verdoppeln, kannst du mit Replace machenHallo Grexit,
das mit dem String funktioniert super...
Leider habe ich das Problem bei Beschreibung kommen öfters Apostroph vor welche mir immer Fehler generieren.
Laufzeitfehler '-2147217900 (80040e14)':
Syntaxfehler ( fehlender Operator ) in Abfrageausdruck "Emmi's Probepackung"
kann ich das Irgendwie umgehen?
strDescription = Replace(Range("B2").Value,"'","''")
Hallo Grexit,
ich habe das jetzt für alle so gemacht...
strDatum = Replace(Range("B1").Value, "'", "''")
strArtikelnr = Replace(Range("B2").Value, "'", "''")
strBeschreibung = Replace(Range("B3").Value, "'", "''")
strMengeKarton = Replace(Range("B4").Value, "'", "''")
strMengeBeutel = Replace(Range("B5").Value, "'", "''")
strMengeBeutel1 = Replace(Range("C21").Value, "'", "''")
strMengeBeutel2 = Replace(Range("C22").Value, "'", "''")
strMengeBeutel3 = Replace(Range("C23").Value, "'", "''")
strGewicht = Replace(Range("B6").Value, "'", "''")
strEingabe = Replace(Range("B7").Value, "'", "''")
strGruppe = Replace(Range("B8").Value, "'", "''")
strMarke = Replace(Range("B9").Value, "'", "''")
strLand = Replace(Range("B10").Value, "'", "''")
Set conn = CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\172.17.5.212\Buchhaltung_KH\01-Gemeinsame_Daten\11_DBASE-Projekt\DBASE.accdb;"
conn.Execute "Insert Into [tbl_daten] (Datum,Artikelnr,Beschreibung,MengeKarton,MengeBeutel,MengeBeutel1,MengeBeutel2,MengeBeutel3,Gewicht,Eingabe,Gruppe,Marke,Land) VALUES (strDatum,strArtikelnr,strBeschreibung,strMengeKarton,strMengeBeutel,strMengeBeutel1,strMengeBeutel2,strMengeBeutel3,strGewicht,strEingabe,strGruppe,strMarke,strLand)"
conn.Close
Leider bringt er mir jetzt .... das für einen Parameter kein Wert gefunden wurde!
Ich weis aber nicht an welcher Stelle er meint.
Könntest du nochmal drüber schauen?
MfG
Florian86
ich habe das jetzt für alle so gemacht...
strDatum = Replace(Range("B1").Value, "'", "''")
strArtikelnr = Replace(Range("B2").Value, "'", "''")
strBeschreibung = Replace(Range("B3").Value, "'", "''")
strMengeKarton = Replace(Range("B4").Value, "'", "''")
strMengeBeutel = Replace(Range("B5").Value, "'", "''")
strMengeBeutel1 = Replace(Range("C21").Value, "'", "''")
strMengeBeutel2 = Replace(Range("C22").Value, "'", "''")
strMengeBeutel3 = Replace(Range("C23").Value, "'", "''")
strGewicht = Replace(Range("B6").Value, "'", "''")
strEingabe = Replace(Range("B7").Value, "'", "''")
strGruppe = Replace(Range("B8").Value, "'", "''")
strMarke = Replace(Range("B9").Value, "'", "''")
strLand = Replace(Range("B10").Value, "'", "''")
Set conn = CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=\\172.17.5.212\Buchhaltung_KH\01-Gemeinsame_Daten\11_DBASE-Projekt\DBASE.accdb;"
conn.Execute "Insert Into [tbl_daten] (Datum,Artikelnr,Beschreibung,MengeKarton,MengeBeutel,MengeBeutel1,MengeBeutel2,MengeBeutel3,Gewicht,Eingabe,Gruppe,Marke,Land) VALUES (strDatum,strArtikelnr,strBeschreibung,strMengeKarton,strMengeBeutel,strMengeBeutel1,strMengeBeutel2,strMengeBeutel3,strGewicht,strEingabe,strGruppe,strMarke,strLand)"
conn.Close
Leider bringt er mir jetzt .... das für einen Parameter kein Wert gefunden wurde!
Ich weis aber nicht an welcher Stelle er meint.
Könntest du nochmal drüber schauen?
MfG
Florian86
Problem ist das er mir den ersten Apostroph nicht umwandelt
strBeschreibung = Replace(Range("B3").Value, "'", "")
kann man sagen das er das erste Apostroph - 1 nach links anfängt?
MfG
Florian86
strBeschreibung = Replace(Range("B3").Value, "'", "")
kann man sagen das er das erste Apostroph - 1 nach links anfängt?
MfG
Florian86
Ja neeee, du musst die String-Werte trotzdem noch in der SQL Query in einzelne Hochkommas einklammern !! Schau dir meinen Code oben nochmal ganz genau an! Und Datumswerte sind für Access gesondert zu handhaben und mit Rauten anstatt Hochkommas einzuklammern.
Wohl noch nie mit SQL zu tun gehabt ?
Dann empfehle ich dir das erst mal zu lesen:
http://www.w3schools.com/sql/
Wohl noch nie mit SQL zu tun gehabt ?
Dann empfehle ich dir das erst mal zu lesen:
http://www.w3schools.com/sql/
wenn ich 'strBeschreibung' eingebe, schreibt er mir das genau so in die DB.
Also steht dann in meiner DB nicht mein Text sondern strBeschreibung.
MfG
Florian86
Also steht dann in meiner DB nicht mein Text sondern strBeschreibung.
MfG
Florian86
Falsch du kannst nicht einfach Strings mit Variablen zusammen mischen! Schau doch meinen Post oben bitte noch mal ganz genau an !!!!
conn.Execute "Insert Into NAMEDERTABELLE (Artikelnr,Beschreibung) VALUES ('" & strArtikelnummer & "','" & strBeschreibung & "')"
Sorry das ich in der Materie nicht so fit bin.
Wills mir ja gerade aneignen mit so kleinen Projekten.
MfG
Florian86
Wills mir ja gerade aneignen mit so kleinen Projekten.
MfG
Florian86
