Hallo Leute,
ich entwickle mit VB 6 ein Programm was durch eine Suchabfrage Datensätze aus einer Access Datenbank (EDIT: Die Access Datenbank wird durch eine Verknüpfte CSV befüllt) in eine ListView in VB einträgt.
Dies klappt soweit auch sehr gut wenn nur ein User eine Suchabfrage startet.
Jedoch soll das Programm von ca. 50 Personen benutzt werden und schon sobald 2 Leute gleichzeitig eine Suchabfrage starten läuft das Programm auf einen Fehler (Screenshot mit Fehlermeldung ist angehängt).
Die Access DB habe ich bereits auch schon in den Einstellungen so konfiguriert das er die Datenbank NICHT exklusiv öffnet.
Hier ist meine Connection zur Datenbank:
Der Fehler der beim Debuggen angezeigt wird liegt bei dem RecordSet da ich eine Funktion habe mit CountResults der die gefundenen Datensätze durch ein SQL Statement zählt:
In der Zeile " RS.Open SQL, Conn, adOpenDynamic" entsteht der Fehler wenn ein User z.B. eine Suchabfrage startet und ein anderer User über einen anderen PC auch eine Suchabfrage zur DB schicken will entsteht in der Zeile der Fehler.
Zugriff auf die Datenbank ist von allen PC's Problem los möglich und die User haben dort volle Rechte somit kann auch die .ldb Datei korrekt erstellt werden, nur leider finde ich den Fehler nun nicht bzw. finde keine Hilfe was für Anpassungen ich vornhemen muss
Danke schon mal im Voraus
ich entwickle mit VB 6 ein Programm was durch eine Suchabfrage Datensätze aus einer Access Datenbank (EDIT: Die Access Datenbank wird durch eine Verknüpfte CSV befüllt) in eine ListView in VB einträgt.
Dies klappt soweit auch sehr gut wenn nur ein User eine Suchabfrage startet.
Jedoch soll das Programm von ca. 50 Personen benutzt werden und schon sobald 2 Leute gleichzeitig eine Suchabfrage starten läuft das Programm auf einen Fehler (Screenshot mit Fehlermeldung ist angehängt).
Die Access DB habe ich bereits auch schon in den Einstellungen so konfiguriert das er die Datenbank NICHT exklusiv öffnet.
Hier ist meine Connection zur Datenbank:
Visual Basic-Quellcode
- Option Explicit
- Global Conn As New ADODB.Connection, RS As New ADODB.Recordset, Item As ListItemGlobal onTop As New clsOnTop, i As Integer, SQL As String, Cancel As Boolean
- Public Sub dbConnect()
- Set Conn = New ADODB.Connection Conn.ConnectionString = strConnConn.mode = adModeShareDenyNone Conn.Open End Sub
- Public Function strConn() As StringstrConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & frmMain.databasepfad & ";Persist Security Info=False" End Function
Der Fehler der beim Debuggen angezeigt wird liegt bei dem RecordSet da ich eine Funktion habe mit CountResults der die gefundenen Datensätze durch ein SQL Statement zählt:
Visual Basic-Quellcode
- Public Function countResults(theSQL2 As String) As Long
- Call dbConnectRS.Open SQL, Conn, adOpenDynamicIf Not RS.EOF Then RS.MoveFirst Do While Not RS.EOFcountResults = countResults + 1frmLoading.lblSub.Caption = "Inhalte werden geladen " & countResults RS.MoveNext DoEventsLoop End If RS.Close Conn.Close Set Conn = Nothing End Function
In der Zeile " RS.Open SQL, Conn, adOpenDynamic" entsteht der Fehler wenn ein User z.B. eine Suchabfrage startet und ein anderer User über einen anderen PC auch eine Suchabfrage zur DB schicken will entsteht in der Zeile der Fehler.
Zugriff auf die Datenbank ist von allen PC's Problem los möglich und die User haben dort volle Rechte somit kann auch die .ldb Datei korrekt erstellt werden, nur leider finde ich den Fehler nun nicht bzw. finde keine Hilfe was für Anpassungen ich vornhemen muss
Danke schon mal im Voraus
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „creeD202“ ()