vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Blitzschnelles Erstellen von grafischen Diagrammen!  
 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

Allgemeine Diskussionen
Grid-Problem 
Autor: Espana
Datum: 20.06.01 11:10

Ich habe folgendes gelöst :
mit ADO 2.6 habe ich Datenbank mit Tabellen erzeugt,geöffnet und in Grid1 zur Anzeige gebracht.
Wenn ich die Datensätze einzeln löschen will,wird ohne Problemleme gelöscht und dann sowohl in
Grid1 als auch in den oberen einzelnen Details-TextFenster angezeigt.
Also mit Grid1_Click liste ich alle DSäztze in den Grid1 auf.

Ich habe folgendes Problem:
Mit Grid1_DblClick soll der angklickte Datensatz in den oberen TextFeldern angezeigt werden.
Aber es wird immer - logischerweise - der letzter Datensatz angezeigt! ( aktueller Datensatz ist der
zuletzt gelesene bzw. in Grid1 aufgelistete Datensatz)

Frage:
Wie kann ich den angelickten Datensatz in die TextFelder schreiben lassen (vom Grid1):

Source:

FORM2:
If tb1.EOF = False Then
tb1.Delete
tb1.Update
DoEvents
If usrmain_tb.EOF = False Then usrmain_tb.MoveNext
If usrmain_tb.EOF = True Then usrmain_tb.MovePrevious
Call Form1.Grid1_Texte
Call Form30.Füllen
end if
FORM1:
Function Grid1_Seek() 'neu_juni
If usrmain_tb.EOF = False And usrmain_tb.BOF = False Then
Text1(0).Text = tb1!NAME
Text1(1).Text = tb1!ALTER
Text1(2).Text = tb1!Telefon
Exit Function
End Function
Function Füllen
Dim MySqlString As String
On Error GoTo Fehler
SQLString = "SELECT NAME, ALTER, Telefon "FROM FreundenTabelle ORDER BY NAME"
' Öffnen der Tabelle.
Set MyTable = New ADODB.Recordset
Set MyTable.ActiveConnection = MyADO
MyTable.CursorType = adOpenKeyset
MyTable.LockType = adLockReadOnly
MyTable.Open SQLString, , , , adCmdText
Call Grid1Konfig 'Grid1-Konfigurationen (sind OK)
Call Grid1_Click
DoEvents
Exit Function
Fehler:
Call AlleFehler
End Function

------------------------------
Also es geht ja nur um die Aktualisierung der Textfelder von Text1(0 bis 3)
Wenn ich einen bestimmten Datensatz in den TextFeldern anzeigen
will (mit do-loop),klappt's wunderbar,nur mit DoppelKlick nicht !!!
Was fehlt denn?
Vielen Dank im Voraus!
Espana.
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Grid-Problem101Espana20.06.01 11:10

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