Office: Tabelle exportieren nach myPhpAdmin und überschreiben?

bullenhai1968 · 1. November 2020

Hallo...

Aus Access 2019 wird eine Tabelle (funktioniert sowohl über Befehl *externe Daten* --> *gespeicherte Exporte* als auch über VBA code) an myPhpAdmin übermittelt.

Die erstmalige Übermittlung erfolgt problemlos. Sobald die Vorgang ein zweites Mal durchgeführt wird, kommt die Fehlermeldung (siehe Anhang), dass "ODBC Aufruf fehlgeschlagen.... Table ... already exists (#1050)...

"Händisch löschen" in phpMyAdmin der Tabelle notwendig --> dann funktioniert die neuerliche Übermittlung der Tabelle aus Access wieder.

Wie kann ich diesen Vorgang (löschen oder überschreiben der Tabelle in phpMyAdmin) mittels VBA Code in Access automatisch durchführen?

Läuft derzeit mit Xampp!

VBA Code:

PHP:

Private Sub Befehl4_Click() DoCmd.TransferDatabase acExport, "ODBC", "ODBC;DRIVER={MySQL ODBC 8.0 Unicode Driver};SERVER=127.0.0.1;DATABASE=test001;OPTION=16395;PWD=;PORT=3307;UID=root", acTable, "anmeldung", "anmeldung_lokal" End Sub

:)

knobbi38 · 2. November 2020

Hallo,

du könntest vorher mit "DROP TABLE " per SQL Anweisung die Zieltabelle löschen.

Ulrich

bullenhai1968 · 2. November 2020

\@knoppi38

Danke... ich finde trotz suchen keinen passenden vba code, damits funktioniert

(ich hatte schon einige Fehlversuche hinter mir...)

Hast du vielleicht einen VBA-Ansatz dazu?

ebs17 · 2. November 2020

Für das Löschen der Tabelle benötigst Du einen direkten Zugriff auf das Backend. Da Du die ODBC-Verbindungsdaten hast, wäre ein OpenDatabase per DAO geeignet. Siehe Dir dazu genauer die Hilfe an, in der OpenDatabase kann man auch die Verbindungsdaten einbringen.

Mit einem solchen DB-Zugriff könnte man alternativ die Tabelle per Löschabfrage leeren und per Anfügeabfrage füllen, ggf. auch differenzierter: Grundlagen - SQL ist leicht (4) - Aktualisierung einer Tabelle

knobbi38 · 3. November 2020

Hallo,

Air Code mit Verweis auf ADO Library:
Code:

Dim cnn as ADODB.Connection

Set cnn = new ADODB.Connection
cnn.Open ""

cnn.Exceute "Drop Table ;", , adExecuteNoRecords
cnn.Close
set cnn = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Den Connectionstring und Tabellennamen hast du ja, fehlt nur noch eine entsprechende Fehlerbheandlung.

Ulrich

bullenhai1968 · 3. November 2020

\@eps17 & @knoppi38 *Smilie

Dank an euch beide... Löschen der Tabelle am Server funktioniert

Code:

Private Sub test_Click()

' Verweis auf ADO Access - Achten auf notwendige Bibliotheken!!!!
Dim cnn As ADODB.Connection
Set cnn = New ADODB.Connection

' Verbindungsaufbau zu phpMyAdmin (xampp) lokal am PC
cnn.ConnectionString = "Driver={MySQL ODBC 8.0 Unicode Driver};Server=127.0.0.1;Database=test001;PWD=;PORT=3307;UID=root;Trusted_Connection=Yes;"

cnn.Open
If cnn.State = adStateOpen Then

MsgBox "Success" ' zeigt an, dass die Verbindung zustande gekommen ist
cnn.Execute "Drop Table anmeldung_lokal;", , adExecuteNoRecords ' löschen der Tabelle anmeldung_lokal in phpMyAdmin

Else

MsgBox "Fail" ' zeigt an, dass die Verbindung fehlgeschlagen ist

End If
cnn.Close
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: Tabelle exportieren nach myPhpAdmin und überschreiben?

Tabelle exportieren nach myPhpAdmin und überschreiben?

Tabelle exportieren nach myPhpAdmin und überschreiben?

Tabelle exportieren nach myPhpAdmin und überschreiben?

Tabelle exportieren nach myPhpAdmin und überschreiben? - Similar Threads - Tabelle exportieren myPhpAdmin

Exportieren einer Excel-Tabelle nach SharePoint

Tabelle in pdf exportieren und dann zusammen mit excel-datei per E-MAIL verschicken

Exportieren von Access Web App-Tabellen in eine Access-Desktopdatenbank

Exportieren einer Tabelle oder Abfrage in eine SharePoint-Website

Verwenden einer Sprachausgabe, um eine Access-Tabelle in eine Excel-Arbeitsmappe zu exportieren

Verwenden einer Sprachausgabe, um eine Access-Tabelle in eine Textdatei zu exportieren

Exportieren von Access Web App-Tabellen nach SharePoint