Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1076to1080
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1076to1080
1076to1080
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

multiple Access SQL Query INSERT

multiple Access SQL Query INSERT
31.05.2009 19:59:56
hackelberg
Hallo,
ich habe ein kleines Problem. Ich füttere eine Access Datenbank per Excel VBA mit INSERT Daten.
Nach so 80-90 Datensätzen kommt eine Unterbrechung im Excel VBA code und er fragt die Quelltabelle an.
Wenn ich Debugge und weiter mache nimmt er problemlos die nächsten 80-90 Sätze.
Also kein Fehler drin. Warum stoppt Excel VBA ?
cu Hackelberg

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: multiple Access SQL Query INSERT
31.05.2009 20:18:12
hackelberg 

Sub sql_query_access_iph(blatt As Variant, loeschen_flag As Variant, db_pfad As Variant,  _
db_datei As Variant, sql_frage_1 As Variant, Optional sql_frage_2 As Variant = "", Optional sql_frage_3 As Variant = "", Optional sql_frage_4 As Variant = "")
' SQL Abfrage Access IPH
' nicht immer ein neues Blatt
gp_wkb = wkb_gp()
Workbooks(gp_wkb).Activate
Sheets(blatt).Select
If loeschen_flag = True Then
loesch_zeile = 5000
Rows("1:" & loesch_zeile).Select
Selection.Delete Shift:=xlUp
Else
Rows("1:1").Select
Selection.Delete Shift:=xlUp
Range("A1").Value = ""
End If
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DSN=Microsoft Access-Datenbank;DBQ=" & db_pfad & db_datei & ";DefaultDir=" &  _
db_pfad & _
";DriverId=25;FIL=MS Access;MaxBufferSize=2048;P)," & "ageTimeout=5;" _
, Destination:=Range("A1"))
.CommandText = Array(sql_frage_1, sql_frage_2, sql_frage_3, sql_frage_4)
.Name = "Abfrage IPH"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = True            ' False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.refresh BackgroundQuery:=True  ' geaendert von false
End With
Sheets(blatt).Select
End Sub


Anzeige
Betreff korrekt ?
31.05.2009 23:08:38
Ramses
Hallo
Deine Frage ist falsch.
Du behauptest eine "ACCES DB" mit SQL Daten und INSERT zu füttern
Dein Beispielcode HOLT aber nur Daten ab ?
Gruss Rainer
AW: Betreff korrekt ?
31.05.2009 23:38:06
hackelberg
Das ist richtig, der Code ist für SELECT Abfragen.
Ich habe die gleiche Procedur für INSERT und DELETE Queries genutzt und es funktioniert.
Allerdings nicht oefter als 80-90 mal, dann stockt der Makro.
Ich habe irgendwie das Gefühl ein Buffer ist voll.
Er will dann per Dialogfenster eine Microsoft Access Datenbank öffnen.
Noch offen. Tut mir leid...
31.05.2009 23:45:25
Ramses
Hallo
... das ist mir zu hoch.
Der Code, wie von dir gezeigt, ist eine simple EXCEL interne ODBC Datenabfrage zum einfügen von Daten aus einer AccesDB in eine Tabelle einer EXCEL-MAPPE.
Wie mit DIESEM Code INSERTS und DELETE Commandos auszuführen sind, verstehe ich nicht.
Gruss RAiner
Anzeige
AW: Noch offen. Tut mir leid...
01.06.2009 01:28:37
hackelberg
Hast Du einen Code für INSERT oder DELETE Abfragen,
ich habe schon das Gefühl das dieser Code nicht geeignet ist.
AW: Noch offen. Tut mir leid...
01.06.2009 12:38:18
Case
Hallo,
schau Dir mal folgendes als Ansatz an:
Excel - Access - Excel
Servus
Case

299 Forumthreads zu ähnlichen Themen

Befehlsschaltfläche zum Versenden einer e-Mail
Roland

Hallo. Ich habe eine für mich sehr harte "Nuss" zu knacken. Ich habe über Excel ein Rechnungsprogramm erstellt. jetzt möchte ich diese Rechnung immer per e-mail versenden. Ich brauche eine Befehlsschaltföläche, die einen bestimmten Bereich als e_mail versendet. Also.... Die Schaltfläche sollte...
11.08.2008 13:17:00
Thread-ID: 1000827
2 Beiträge
Anzeige
Email per Hyperlink aus Zelle mit Formel
Frank

Hallo und schönen guten Morgen zusammen,
neues kleines Problem!
Ich möchte mit Hilfe eines Hyperlink per klick eine Email öffnen!
Soweit so gut und kein Problem!
Jetzt steht die Email Adresse aber nicht wirklich in der Zelle sondern diese hole ich mir per
Sverweises aus ein...
21.08.2008 09:22:45
Thread-ID: 1003367
3 Beiträge
Access Datei in csv Datei speichern
Fred

Hallo zusammen
Ich habe ein Problem und hoffe mir kann jemand helfen. Ich importiere in meine Tabelle csv.Dateien.
Vorher muss ich aber immer Access Tabellen in das csv.Format exportieren. Ich suche ein Makro was dieses für mich automatisch auf Button klick machen würde.
Also Datei...
25.08.2008 20:27:50
Thread-ID: 1004581
5 Beiträge
Anzeige
Hyperlink Email aus Feld mit Sverweis
Frank

Hallo zusammen,
Eine Frage hätte ich da noch zu dem Hyperlink!
Richard hatte mir schon geholfen…
danke für deine Hilfe!! Du bist auf dem richtigen Weg!!
Deine Formel ist gut!!
(Na ja und hier kannst du die Daten auch per SVERWEIS ziehen.)
Was ich meine ist genau aus eine...
28.08.2008 09:34:00
Thread-ID: 1005298
3 Beiträge
Outlook Email einlesen/löschen
Peter

Ich bin zwar in der Lage Emails von Excel/VBA via Outlook abzusenden.
Jetzt würde ich jedoch gerne via VBA/Excel Emails einlesen, den Header der eingehenden Email auslesen und danach die Email wieder löschen.
Danke für die Unterstützung.
Grüße
Peter
29.08.2008 15:07:44
Thread-ID: 1005850
3 Beiträge
Zeilenumbruch, wenn Textbox in Mail eingefügt wird
a_ke

Hallo,
ich versende mit dem folgenden Code ( von Rene Holtz - Danke !!!)
eine Mail mit Outlook.
Private Sub CommandButton2_Click() '* 11.01.2008, 15:50:00 * '* erstellt von Rene Holtz, http://www.rholtz-office.de _ a> '* rene.holtz@rholtz-office....
05.09.2008 12:00:39
Thread-ID: 1007636
4 Beiträge
Off-Topic: Namen von Queries in Access nach Excel
Queries

Tach auch,
ich soll zu den ca. 200 existierenden Queries in unserer Access-Datenbank Beschreibungen abliefern und Kurzbeschriebe, was das Ziel der Query ist, auflisten. Da würde ich mir gerne die Arbeit ersparen jede Query einzeln den Namen kopieren zu müssen.
Gibt es eine Möglichkeit...
24.09.2008 11:24:00
Thread-ID: 1012003
4 Beiträge
Hilfe: Hyperlink auf email setzen?
Mike

Hi Leute,
Mein Problem bzw. Frage ist folgende:
Ich möchte in einer Exceltabelle einen Hyperlink setzen,
mit dem automatisch das Excelfile, in dem der Link sitzt,
an eine bestimmte email-Adresse versandt werden soll.
(bzw. durch den sich Outlook öffnet und der Empfänger...
21.10.2008 10:14:00
Thread-ID: 1017882
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
2
2
4
2
2
2
3
3
2
6
2
1
7
2
1
2
8
2
2
4
2
1
6
6