vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
SEPA-Dateien erstellen inkl. IBAN-, BLZ-/Kontonummernprüfung  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

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

Visual-Basic Einsteiger
DB-Mehrbenutzer Sperren 
Autor: berd01
Datum: 25.02.02 09:13

Hallo Leute,

ich hätt da gerne ma nen Problem. Kann ich mit folgendem Listing bewirken, das der zu Bearbeitende Datensatz nur einmal zu öffnen ist? Ich habe lediglich den zweiten Parameter beim öffnen de DB auf True(Exclusiv) gesetzt. Und was wird passieren, hat der jenige der den selben Datensatz öffnen will dann wenigstens Lesezugriff!?

für euer Hilfe Dank im vorraus!

Marcel

(Ausschnitt des Listings!):
--------------------------------------------------------------------------------------------------------
Private Sub cmd_EditDataOK_Click()
Dim intCounter As Integer
Dim CheckedItem As ListItem

'Datenbank öffnen
Opendatabase

'Aktuellen Datensatz suchen
Tabelle.FindFirst "Pos = " & CStr(lngPos)

Tabelle.Edit
Set CheckedItem = frm_TrayFastadress.lsv_ShowRecordset.SelectedItem
'Formular Bearbeiten mit Datensatz füllen
For intCounter = 1 To 10
If intCounter = 1 Then
CheckedItem.Text = txt_EditData(intCounter).Text
Else
CheckedItem.SubItems(intCounter - 1) = txt_EditData(intCounter).Text
End If
'Datensatz mit neuen Inhalten versehen
Tabelle(intCounter) = txt_EditData(intCounter).Text
Next

Tabelle.Update
frm_TrayFastadress.cmd_ShowListView = True

Unload Me
End Sub
---------------------------------------------------------------------------------------------------------
Private Sub cmd_EditDataCANCEL_Click()
'Ändern und Löschen Menü/Buttons deaktivieren
ButtonsOFF
Unload Me
End Sub
-----------------------------------------------------------------------------------------------------------
Private Sub Opendatabase()
strDataBaseFile = App.Path + "Adress.MDB"
Set DataBase = Workspaces(0).Opendatabase(strDataBaseFile, True, False)
Set Tabelle = DataBase.OpenRecordset("SELECT * FROM Adressen")
End Sub
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
DB-Mehrbenutzer Sperren65berd0125.02.02 09:13
Re: DB-Mehrbenutzer Sperren319ModeratorDieter25.02.02 09:24
Re: DB-Mehrbenutzer Sperren51berd0125.02.02 09:27
Verwendung von .LockEdits?48berd0125.02.02 10:47
Sorry, so´n Quatsch!44berd0125.02.02 11:34
Hab ne andere Idee.....53berd0125.02.02 13:50

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übersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
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