|
| |
Fragen & Antworten rund um sev-Komponenten| sevDG2 Ansicht updaten | |  | | Autor: vb__ | | Datum: 25.09.04 16:55 |
| Hallo Dieter,
folgende Prozedur benutze ich um das sevDG upzudaten (gekürzt, strSQL ist meistens "SELECT * FROM Adressen"):
Public Sub LadeDaten(strSQL As String)
With frmMain.sdgAdressliste
.LockUpdate True
.Clear
.CreateClone = False
Rs.Open strSQL, Cn, adOpenStatic, adLockOptimistic
Set .Recordset = Rs
.LockUpdate False
.Refresh
Set RsTemp = Cn.Execute("SELECT COUNT(ID) AS Anzahl FROM Adressen")
lngMaxCount = RsTemp.Fields("Anzahl")
If lngMaxCount > 0 And bMove1 Then .Row = 1 Else .Row = _
lngDatensatzZeiger
End With
End SubJetzt möchte ich natürlich auch irgendwann Daten in der Datenbank ändern. Das geschieht zum Beispiel so (gekürzte Fassung, es geht ums Prinzip):
With frmMain
strSQL = "UPDATE Adressen SET " & _
"Kategorie = '" & .cboKategorie.Text & "', " & _
"Nummer = '" & .txtNummer.Text & "', " & _
"Anrede = '" & .cboAnrede.Text & "', " & _
"Titel = '" & .cboTitel.Text & "', " & _
"WHERE ID = " & .lblID
Cn.Execute strSQL
End WithAnschließend sollten die aktualisierten Daten auch wieder angezeigt werden. Dazu wird dann natürlich LadeDaten() aufgerufen. Seltsamerweise bleiben aber die alten Daten erhalten und er holt sich nicht die aktualisierten Daten noch mal neu aus der Datenbank raus. Erst wenn ich die Anwendung schließe und das Programm neu starte werden auch die aktualisierten Daten abgerufen.
Die Frage ist nun, wie die Prozedur LadeDaten() verändert werden muss, sodass die Daten immer direkt aus der Datenbank (ohne Neustart der Anwendung) geladen werden können und wie das mit sevDG2 funktioniert.
Vielen Dank für deine Bemühungen.
MfG
vb__
PS: Die Sache mit den Abstürzen habe ich so in den Griff bekommen, dass ich das sevMenuXP v1 nicht mehr benutze. | |
 | 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 |
 |
|
Neu! sevEingabe 3.0 
Einfach stark!
Ein einziges Eingabe-Control für alle benötigten Eingabetypen und -formate, inkl. Kalender-, Taschenrechner und Floskelfunktion, mehrspaltige ComboBox mit DB-Anbindung, ImageComboBox u.v.m. Weitere InfosTipp des Monats  Oktober 2025
Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) 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 EURWeitere Infos
|
| |
|
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
|
|
Sie sind aktuell nicht angemeldet.
