Access Datenbanken in VB einbinden?

Naja, also ich würde Dir auf alle Fälle mal die Zugtriffsmöglichkeit über die ADO-Schnittstelle empfehlen.

Dim dbVerbindung As ADODB.Connection
Dim Felder As ADODB.Recordset

dann der Zugriff...

    Datei = App.Path & "\kunden.mdb"
    Set dbVerbindung = New ADODB.Connection
    strdb = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Datei & ";" & _
    "Jet OLEDB:Database
dbVerbindung.Open (strdb)
    Set Felder = New ADODB.Recordset
    Felder.CursorType = adOpenStatic
    Felder.LockType = adLockOptimistic
    Felder.Open "SELECT * FROM KUNDEN", dbVerbindung

so, und mit Felder.MoveFirst/Last/Next/Previous hangelst Du Dich durch die ganzen Felder.
Auf einen Wert greisft Du einfach mit Felder.Fields("feldname") zu, naja, musst Du halt mal schauen was es da alles für Methoden gibt.
Achso, und Du musst noch einen Verweis auf die "Microsoft ActiveX Data Objects 2.7 (o.höher) Library" anlegen. (Menü PROJEKT->Verweise...)

Mario

Danke für den Tipp!

Ist alles aber doch recht kompliziert. Fällt dir vielleicht ein Workshop ein den man machen könnte um schnell an dieses Ziel zu kommen?? Dieser Onlineworkshop sollte mir alles langsam Schritt für Schritt erklären.

THX

Hi, ich mach auch gerade so etwas, vielleicht hilft dir das weiter:

Zunächst brauchst du einen Verweis. Den findest du
unter glaub ich "Extras oder Ansicht -- Verweise"
Microsoft data 3.6 DAO ( so ähnlich)

Datenbank öffnen
set mdbDatenbank = opendatabase("Datenbank.mdb")
(wenn die Datenbank im gleichen Ordner ist, ansonsten
("..\Datenbank.mdb")
set mtbTabelle = mdbDatenbank.openrecordset("Tabelle", dbopendynaset)

Deklaration:
dim kunde as string
dim Datenbank as database
dim Tabelle as recordset

Einlesen der Daten
kunde = tfkunde.text

Verarbeitung
mtbTabelle.findfirst Kundennummer= "'& kunde & "'"
[Tabelle]            [dort sucht er]

if mtbTabelle.nomatch then ( wenn er nichts findet)
   msgbox"Keine Datensätze vorhanden"
   Exit sub
Else ( Auslesen der Daten, falls er etwas findet)
   artikel = mtbTabelle!Artikelnummer
   Name = mtbTabelle!Name
   Anschrift = mtbTabelle!Anschrift
   lfanzeige.additem artikel & space(3) name usw.
   [Ausgabe in einem bsp. Listenfeld]
End if


Den gleichen Ablauf machst du, wenn du die Aufträge suchst.

Bei der Suche von mehrern Datensätzen nimmst
du "Seek"

Bsp
mtbTabelle.index="Primarykey"
mtbTabelle.seek"=", auftrag

!!!!!Datenbank dann mit , dbopentable öffnen!!!!!

( den Primärschlüssel auf die Spalte setzen, wo du auch suchst, dann passt dieser Befehl, ansonsten den Spaltennamen statt "Primarykey" eingeben.)

Bei der Suche von einem bestimmten Datensatz wie z.B.
Kundennummer ( die ja nur einmal vorkommt)
nimmst du" Findfirst"

Bsp. Siehe oben.

Ich hoffe ich konnte dir ein wenig weiterhelfen

Gruß cleo

Klar gibt es Workshops,
in dem hier hab ich das auch gelernt.

http://www.vbarchiv.net/workshop/workshop05.php

Mario