Aus Excel auf Access-Abfrage zugreifen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Jean,
1. die Replace-Funktion löscht in diesem Fall sämtliche Leerzeichen, die der User in die Zelle mit dem Namen 'PersNr' mit eingegeben hat, egal an welcher Stelle es sich befindet. Und bei der Auswertung von Benutzereingaben muß man mit 'Allem' rechnen. (wie heißt es doch so schön: "Irrtum sprach der Igel - und sprang von der Drahtbürste")
2. ADODB ist eine definierte Zugriffsmethode, mit der man Daten aus einer Datenbank auslesen, aber auch inhaltlich verändern kann.
Mit ADOX kann die Struktur der Datenbank-Objekte verändert werden; Spalten in 1 Tabelle löschen / hinzufügen. Dazu besitzt jedes Objekt 1 Katalog, den man dazu verändern muß.
In Deinem Fall wird der SQL-Text der Access-Abfrage geändert, und deshalb müssen diese Objekt-Variablen definiert werden. In Access kann man 1 Abfrage mit dem Assistenten erstellen, im Hintergrund bastelt Access aber daraus 1 SQL-String, der beim Starten der Abfrage ausgewertet wird. So einen SQL-String erstellen wir in Excel-Vba und schreiben ihn direkt in die Access-Abfrage. Und dazu braucht man ADOX. Man könnte natürlich auch in Excel über 'Daten-externe Daten...' eine Excel-Abfrage an die Access-Datenbank schicken (auch dafür gibt es Vba-Befehle), aber sowas ist uncool und etwas für Leute, die sich nicht mit Vba auseinandersetzten wollen.
Wenn schon Excel-Access mit Vba, dann gleich die richtige Dröhnung und das volle Paket. Und Du siehst ja, die Anzahl der Programmzeilen hält sich in Grenzen.
Mit beiden Methoden kann man nicht nur Access anzapfen, sondern auch MS-SQL-Server, Oracle, Informix usw.
Für Excel-Vba und ADODB kannst Du hier mehr erfahren: http://support.microsoft.com/kb/257819
3. Um mit ADODB/ADOX auf 1 Datenbank zugreifen zu können, wird ein fest definierter Eröffnungs-String benötigt; wozu auch der Pfad und der Name der Datenbank gehört. In diesem Fall stehen beide Angaben in je 1 String-Variablen, die mit Hilfe der Verkettungs-Funktion '&' zusammengefügt werden.
4. Wenn in eine Excel-Zelle Werte geschrieben werden, egal ob per Hand oder mit Vba, dann reagiert Excel auf diese Eingabe mit Ereignis-Prozeduren. Wenn man Massendaten in die Exceltabellen schreibt, dann sollte man diese Ereignis-Prozeduren vorübergehend abschalten, um das Schreiben nicht zu verzögern, weil Excel mein, hier nach jeder Eingabe reagieren zu müssen.
Diese 3 'Stör'-Methoden habe ich in eine eigenständige Prozedur zusammengefaßt (GetMoreSpeed) und übergebe beim Aufruf jeweils einen Parameter:
True --> Methode einschalten (Excel darf wieder normal reagieren)
False --> Methode vorrübergehend abschalten
Gruß von Luschi
aus klein-Paris

Hallo Jean,
zu 1)
Das ist die Bedingungsdefinition: obwohl xPNr eine Variable von Typ String (Text) ist und wir in einem Textfeld der Accesstabelle suchen, muß man den Inhalt der Variable als Text markieren.
So sieht der Suchstring dann in der Access-Abfrage aus:
SELECT * FROM tblPERSONAL WHERE tblPERSONAL.PNr = '135';
Wäre das Feld PNr als Zahl definiert worden, dann sähe die Befehlszeile so aus:
SELECT * FROM tblPERSONAL WHERE tblPERSONAL.PNr = 135;
Die restlichen Anführungsstriche sind Pflicht, da der Gesamtausdruck in 1 Stringvariable (s1) geschrieben wird.
zu 2)
'cursortype' und 'locktype' sind ADODB-typische Kennzeichen und bestimmen, was man mit dem Resordset (Rs) machen will:
cursortype:= adopenforwardonly --> die Datensätze in Rs können nur vorwärts durchlaufen werden
Normalerweise kann man vorwärts und rückwärts im Rs den Datensatzzeiger stellen, was aber den Resourcenverbrauch erhöht und die Geschwindigkeit verlangsamt
locktype:=adlockreadonly --> die Daten im Recordset sind schreibgeschützt und können nicht verändert werden
Beide Parameter zusammen in dieser Einstellung beschleunigen den Datenzugriff erheblich
zu 3. 'copyfromrecordset' ist eine Excel-Methode, um die Daten aus dem Recordset in die Excel-Tabelle zu schreiben. Man muß nur die Anfangszelle angeben (.cells(j,1) --> da j = 2 ist, ist es die Anfangszelle 'A2')
Dann schreibt Excel den Spallteninhalt des 1. Datensatzes nebeneinander in die Zellen und den nächsten Datensatzes eine Zeile tiefer bis zum letzten Datensatz.
Die Zeilen davor schreiben in Zeile 1 die Spaltenüberschriften der Accesstabelle!
Gruß von Luschi
aus klein-Paris

Beliebteste Forumthreads (12 Monate)

Aus Excel auf Access-Abfrage zugreifen

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Aus Excel auf Access-Abfrage zugreifen

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread