Visual Basic Forum

ZiG_ · Überflieger Anmeldedatum: 07.03.2007 Beiträge: 1248

Hallo Leute.

Hab mir mal gedacht ich setze mich wieder an ein Tutorial.
Diesmal geht es über das programmieren mit Datenbanken.
Das kann ja oft sehr nützlich sein und erleichtert einem auch sehr das Leben. Wink

In diesem Tut werde ich euch zeigen wie man mit einer Access Datenbank und der Schnittstelle „DAO 3.6“ umgeht. Diese Schnittstelle dient uns als Kommunikationsmittel mit der eigentlichen Datenbank.

„DAO“ ist zwar schon älter, wird aber sehr häufig eingesetzt und bei der Geschwindigkeit kann man sehr hohe Werte erreichen.

Ihr müsst euch keine Sorgen machen, dass es zu schwierig wäre mit Datenbanken zu arbeiten.
Es ist wirklich sehr einfach und es hat viele Vorteile gegenüber einer .ini bzw. einer .txt Datei oder der Registry.

Also fangen wir an.

1. Datenbank erstellen und Verweis auf DAO 3.6
Als erstes brauchen wir einen Verweis auf DAO 3.6.
http://www.imagebanana.com/img/krm2he2b/verweis.gif

Und nun erstellen wir eine Datenbank mit dem „Visual Data Manager“ direkt in VB.
Wichtig ist, dass ihr eindeutige Namen wählt.

Als Beispiel werde ich hier eine DB erstellen, in der man seine Mail Accounts + Passwort speichern kann.

Als erstes erstellen wir mal die Datenbank auf der Festplatte.
Dann machen wir eine Tabelle mit dem Namen „mailaccounts“ und den Spalten „mail“, und „password“. Außerdem wollen wir noch dass den Einträgen der Spalte „mail“ ein Index zugewiesen wird. Das ermöglicht uns eine sehr schnelle Suche der Einträge. Nennt den Index einfach „MailIndex“.
http://www.imagebanana.com/img/gckdfcyd/datenbank.gif

Nachdem ihr das gemacht habt, könnt ihr den Visual Data Manager schließen.

2. Datenbank laden/öffnen.

Um eine Datenbank und ihre Tabellen anzusprechen brauchen wir erstmal zwei Variablen, die global deklariert werden.(Ganz oben schreiben. Außerhalb der Subs)

Viktor · Verfasst am: 06.08.2007, 13:49

Da hier keiner Postet schreib ich dir mal was dazu.

Ich finde dein Paper wie die anderen auch mehr als gelungen.
Hab dabei selber noch viel gelernt, da ich mich mit Datenbanken noch nicht beschäftigt habe.

Bleibt nur die Frage warum keiner antwortet, villeicht weil es nichts mit Viren, Trojanern oder Floodern zu tun hat? Rolling Eyes

Mach auf jeden Fall weiter so, ich freu mich schon auf dein nächstes Paper.

MfG,
enco

Amethyst_ · Poster Anmeldedatum: 24.02.2007 Beiträge: 172

Jo ganz vergessen zu antworten. Surprised

Man sieht, dass du dir echt Mühe gegeben hast. Man versteht alles, und ich denke auch, dass DAO ein wichtiges Thema ist.

Freue mich auf dein nächstes Tut!
_________________

Bahamut_ · « Moderator » Anmeldedatum: 12.12.2006 Beiträge: 250

Viktor · Verfasst am: 06.08.2007, 13:58

r4z3r_ · « Webmaster » Anmeldedatum: 06.02.2007 Beiträge: 252

ok dann bekommste deinen post;)

habs mir nicht durchgelesen weil ich im urlaub war
und nach den ferien war der thread dann anscheinend ganz weit unten^^

habs aber nachgeholt, dein paper ist echt gut! man versteht so ziemlich alles Very Happy

hoffe da kommen bald weitere von dir

mfg

ZiG_ · Überflieger Anmeldedatum: 07.03.2007 Beiträge: 1248

Hoppla! Was ist denn hier los?
Doch ein paar die sich dafür interessieren.^^
_________________
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)

TheCoder_ · Verfasst am: 11.08.2007, 19:07

Wer hätts gedacht das ich sowas mal brauche, aber naja wirklich ein gutes Tut Zig (wie immer im grunde)
allerdings hab ich ein paar fragen. Ich hab mir jetzt auch ne Datenbank gemacht und muss diese auslesen/durchsuchen.
Wofür sind .index und was muss man setzen bei anderen Datenbanken und warum immer !mail oder !password
EDIT;// das mit dem index is geklärt aber was macht man wenn man ne Table ohne index hat oder wie findet man das überhaupt raus?
_________________

ZiG_ · Überflieger Anmeldedatum: 07.03.2007 Beiträge: 1248

Wenn du eine Datenbank per Visual Data Manager öffnest, müsstest du sehen können ob ein Index für eine oder mehrere Spalten erstellt wurde oder nicht.
Ob man das im Programm irgendwie auslesen kann weiß ich nicht.

Per "Seek" kann man nur in Indexierten Spalten suchen. Dafür ist diese Methode aber extrem schnell.
Wenn du keinen Index benutzen willst, dann mußt du eine andere Methode wählen, wie du die Datenbank öffnest.

Normal benutzt man "OpenDynaset". Und zum suchen dann die Funktionen "FindFirst, FindNext, FindLast, FindPrevious" etc.

Beispiel:
[vb:1:0b3b9dc0b9]
Set Tb = Db.OpenRecordset("MailAccounts", dbOpenDynaset)
Tb.FindFirst ("Spaltenname=" & "'" & WonachGesuchtWerdenSoll & "'")
If Tb.NoMatch Then
'Nicht gefunden
Else
'Gefunden
End If
[/vb:1:0b3b9dc0b9]

Die Schreibweise !mail nutze ich, da es angeblich noch etwas schneller sein soll als, tb.Fields("mail"). Bei beiden Schreibweisen greift man auf die Spalte mail zu, auf die der Zeiger in der Datenbank gerade zeigt.

Edit//
Einen Index in der Datenbank zu benutzen erhöht die Geschwindigkeit übrigens enorm.
Wäre schon wichtig einen zu setzen.

mfg
_________________
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)

TheCoder_ · Verfasst am: 11.08.2007, 20:14

Ok danke. Werd mal schauen wie sich das verhält. Bei fragen wirste nochmal von mir hören ^^

EDIT:// hoffe mal das du das noch liest ^^
Ich hab das jetzt mit den Index verstanden und benutzt und ja du hast recht es ist erheblich schneller. Meine frage wäre jetzt wie kann man mehrere Spalten aufeinmal durchsuchen. ICh hab erst mehrere indexiert nur dann kam immer nicht gefunden. Wenn ich eine Indexiere geht es vorrausgesetzt es ist die richtige. Also wie könnte ich jetzt alle durchsuchen?
_________________

Elrohir_ · Tutorial Leser Anmeldedatum: 10.09.2007 Beiträge: 59

Hallo und erst einmal danke für das Tutorial.
Hat zumindest mir sehr weitergeholfen, vor allem, da ich gerade an einem Projekt arbeite, wo ich datenbanken benötige...

Ich habe auch alles verstanden, und hinbekommen ausser den letzten Abschnitt...
an der Stelle beim auflisten des Inhaltes der Datei sagt er mir an der stelle

r4z3r_ · « Webmaster » Anmeldedatum: 06.02.2007 Beiträge: 252

Du musst für Listitems auch einen Index angeben:

[vb:1:ff335a142e] lv_Friendlist.ListItems(Index).SubItems(1) = "Text" [/vb:1:ff335a142e]

Also hat dein Problem nix mit der db zu tun sondern mit dem lv^^, egal

ps: mein instinkt sagt mir das du danach ein neues Problem haben wirst xD
_________________

ZiG_ · Überflieger Anmeldedatum: 07.03.2007 Beiträge: 1248

Nein er muß keinen Index angeben, da er ja einen Eintrag im ListView erstellt.

Ich würde mal eher sagen, dass du im ListView einfach vergessen hast die nötigen Spalten zu erstellen, oder es in der Datenbank einfach nicht die Spalte "IP" gibt.

@TheCoder

Hast recht. Ich habs nicht mehr gelesen^^.
Ich weiß es leider auch nicht genau. Hab ich bisher nicht gebraucht.
Aber ich denke schon, das man beim Index erstellen einfach mehrere Spalten angibt.
Das darf man ja auch, also muß es ja irgendwie so gehen.
_________________
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)

r4z3r_ · « Webmaster » Anmeldedatum: 06.02.2007 Beiträge: 252

hmm hast recht, hat nichts mit dem Index zu tun.
_________________

Alpha63_ · Newbie Anmeldedatum: 05.12.2007 Beiträge: 2

nice tut

frage mit dem listeview

wie geht das also ist das ein botton oder ein label oder was ist damit gemeind???

und kann man die datenbank auch anschliesend an eine e-mail adresse senden so ne art backup versteht sich

ZiG_ · Überflieger Anmeldedatum: 07.03.2007 Beiträge: 1248

Was mit ListView gemeint ist?
Ist einer ListBox ähnlich.
Findest du bei den "Microsoft Common Controls 6.0"

Die Datenbank ist eine Datei. Also kannst du die Datei auch versenden.
_________________
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)

regenz11_ · Coder Anmeldedatum: 29.07.2007 Beiträge: 77

Also Zig macht die besten Tutorials die ich jeh im meinem Leben gesehen habe ! Immer 1a ! Danke !
_________________

Maybe_ · Newbie Anmeldedatum: 17.03.2008 Beiträge: 2

bei dem "Set" kommt bei mir Compile Error: Invalid outsite procedure?

dachte das hat was mit dem verweis zu tun, aber den habe ich bereits überprüft und der ist korrekt.

ZiG_ · Überflieger Anmeldedatum: 07.03.2007 Beiträge: 1248

Schreibst du den Teil auch innerhalb einer Prozedur?
_________________
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)

Maybe_ · Newbie Anmeldedatum: 17.03.2008 Beiträge: 2

wie meinst du das? ich dachte ich soll das mit den anderen befehlen ganz an den anfang stellen und daraufhin die anderen sachen machen. ich hab dich mal in icq geaddet, hab noch nicht soviel erfahrung und will mich hier nicht unbedingt zum deppen machen Razz

. vielleicht kannst du mir da ja antworten

ZiG_ · Überflieger Anmeldedatum: 07.03.2007 Beiträge: 1248

swordfish123456_ · Tutorial Leser Anmeldedatum: 15.08.2007 Beiträge: 66

ich finde dein tutorial auch super gelungen ^^
ne , sehr gut sogar xD

aber mich würde das ganze noch mit MySQL interessieren =O

falls jemand mal zeit & lust , bzw zeit & zeit hat könnte er ja genau so ein tutorial wie Zig machen ,bloss mit MySql =)

das wäre nicq Wink

mfg
super tutorial =)
mfg

marcel1994_ · Coder Anmeldedatum: 08.02.2008 Beiträge: 202

so ich programmiere gerade ein kleines kassensystem mit diesem TuT hier. Ich finds auch super Zig muss ich echt sagen! Also, was mein problem ist, ist, dass ich nicht weiß, wie ich einen eintrag löschen soll. Hier mein Code dazu (denke mal völlig falsch, also lachen erlaubt xD):

ZiG_ · Überflieger Anmeldedatum: 07.03.2007 Beiträge: 1248

Nur ".Delete" genügt.
Du mußt den richtigen Eintrag vorher natürlich suchen, oder zumindest den Zeiger in der Db per Movefirst, last, next oder previous an die richtige position bewegen.
Dann einfach .Delete und der Eintrag ist gelöscht.

Un ähmm, ja. Wenn noch nichts drinnen ist, wird das löschen natürlich nicht gehen.
_________________
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)