Suche mit Excel soll auf Access zugreifen



Excel-Version: XL8
nach unten

Betrifft: Suche mit Excel soll auf Access zugreifen
von: Dieter
Geschrieben am: 03.05.2002 - 09:20:06

Hi Leute,

follgendes habe ich vor:

ich habe eine Datenbank mit ca. 20.000 Artikeln welche ich auf eine CD-Brennen möchte somit kann ich schon mal eine ASP-Site vergessen.
Ich möchte gerne ein Macro aufbauen was in der Datenbank sucht ohne diese zu öffnen , da ja nicht jeder Access auf den Rechner hat, und das Suchergebnis in einer Exceldatei ausgibt.
Wichtig ist auch das diese Datei geschützt ist.

Wer könnte mir hierzu einpaar tipps geben.

nach oben   nach unten

Re: Suche mit Excel soll auf Access zugreifen
von: Michael Scheffler
Geschrieben am: 03.05.2002 - 09:53:57

Hallo,

ich würde das an Deiner Stelle mit ADO machen, Beispiele für Connection Strings findest Du im Netz.

Gruß

Micha


nach oben   nach unten

Re: Suche mit Excel soll auf Access zugreifen
von: Hans W. Herber
Geschrieben am: 03.05.2002 - 09:58:14

Hallo Dieter,

es wäre zu lösen über eine Datenabfrage, womit der - vermutlich betriebsfremde - Anwender in der Regel überfordert ist.
20.000 Artikel sind ja nun nicht die Welt, möglicherweise wäre ein Speichern als Excel-, oder Textdatei sinnvoll.

hans


nach oben   nach unten

Re: Suche mit Excel soll auf Access zugreifen
von: Michael Huith
Geschrieben am: 03.05.2002 - 10:02:03

Das geht ganz einfach.
Im VBA-Fenster muß über Verweise die DAO3.6-Library angebunden sein, dann "kennt" Excel auch Access-Datenbanken und kann direkt darauf zugreifen.
Nachstehend ein kleines Beispiel. Wenn dann noch ein Filter davorgesetzt wird (oder Abfrage in Access), sind alle Möglichkeiten offen.


Sub datenbank_öffnen()
Dim db As database
Dim rs As Recordset
Dim i As Integer
Set db = opendatabase("d:\test1.mdb")
Set rs = db.openrecordset("Tabelle1", dbopendynaset)
Cells(1, 1).Select
i = 0
While Not rs.EOF
ActiveCell.Offset(i, 0).Value = rs![feld1]
ActiveCell.Offset(i, 1).Value = rs![feld2]
ActiveCell.Offset(i, 2).Value = rs![feld3]
i = i + 1
rs.movenext
Wend
End Sub

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Suche mit Excel soll auf Access zugreifen"