vb@rchiv · Diskussionsforen · Ado+VB 6.0 · Fortgeschrittene Programmierung

VB Classic
VB.NET
ADO.NET
VBA
C#

NEU! sevCoolbar 3.0 - Professionelle Toolbars im modernen Design!

HOME WORKSHOPS TIPPS & TRICKS BEFEHLSREFERENZ API-REFERENZ FAQ

··· FORUM

Forenübersicht Suchen Forumsregeln

Allgemeine Foren

Allgemeine Fragen Fragen zur vb@rchiv CD Tipps & Workshops Suche VB Code

VB.NET, C#

Ein-/Umsteiger Fortgeschrittene ADO.NET/Datenbanken ASP.NET/WebServices C# Ecke

VB Classic 5/6, VBA

Einsteiger Fortgeschrittene ActiveX Datenbanken Windows API VB Skript (VBS)

Sonderforen

sev-Komponenten Jobs Suche/Gesuche Projekte & Betatester

DOWNLOAD TOOLBESPRECHUNG BÜCHERECKE MARKETPLACE GRAFIK & DESIGN VB-SEITEN

[366 User online]
[350 im Forum]

Partnerseiten
Top 5 Partnerlinks

Weitere...

Entwickler / Welt

··· Diskussionsforen · Fortgeschrittene Programmierung

Sie sind aktuell nicht angemeldet. Funktionen: Einloggen | Neu registrieren | Suchen

Fortgeschrittene Programmierung

Ado+VB 6.0

Autor: Joerg12
Datum: 17.01.05 16:36

Hallo, ich habe eine Access-Datenbank mit 3 verschiedenen Access-Tabellen und nutze VB 6.0 + Ado Recordsets um darauf zuzugreifen. Da mein Projekt recht gross ist, wird die Datenbank in verschiedenen Formen immer wieder neu angesprochen, editiert, geupdatet und wieder geschlossen. Nachdem ich diese Routine nun in mehreren Formen eingebaut habe musste ich einen recht erheblichen Geschwindigkeitsverlust des gesamten Programmablaufs feststellen. Ich vermute stark, dass dies mit der grösseren Anzahl der gleichzeitig geöffneten Datenbankverbindungen (und Recordsets) zusammenhängt, weiss es jedoch nicht genau. In jeder Form, in der eine Datenbank geöffnet wird habe ich folgenden Eingangs-Code verwendet um die Datenbank anzusprechen: Set Cn = New ADODB.Connection With Cn .CursorLocation = adUseClient .Mode = adModeShareDenyNone .Provider = "Microsoft.Jet.OLEDB.4.0" .Properties("Data Source") = App.Path & "\db1.mdb" .Open End With Set Rs = New ADODB.Recordset With Rs .ActiveConnection = Cn .CursorLocation = adUseClient .CursorType = adOpenKeyset .LockType = adLockOptimistic .Source = "SELECT * FROM tbl_Fahrzeuge" .Open End With Kann mir jemand sagen, ob ich hier irgend etwas falsch gemacht habe und/oder verbessern kann, damit die Gesamtperformence wieder zunimmt? Die Datenbank enthält wie gesagt 3 verschiedene Tabellen auf die andauernd zugegriffen wird. Bin für jeden Tip dankbar. MfG Jörg.

alle Nachrichten anzeigen

Gesamtübersicht | Zum Thema | Suchen

Thema

Views

Autor

Datum

Ado+VB 6.0	666	Joerg12	17.01.05 16:36
Re: Ado+VB 6.0	433	StoneX	18.01.05 08:57
Re: Ado+VB 6.0	437	Prian0815	18.01.05 09:11
Re: Ado+VB 6.0	409	StoneX	18.01.05 10:15
Re: Ado+VB 6.0	403	Dirk	18.01.05 10:33
Re: Ado+VB 6.0	421	Prian0815	18.01.05 12:02

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen | Neu registrieren

Funktionen: Zum Thema | Gesamtübersicht Suchen

sevGraph (VB/VBA)

Grafische Auswertungen
Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig!

Weitere Infos

Tipp des Monats

Oktober 2025
Matthias Kozlowski

Umlaute konvertieren

Ersetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.)

Details

Access-Tools Vol.1

Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB

Nur 24,95 EUR
Weitere Infos

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel