vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
vb@rchiv Offline-Reader - exklusiv auf der vb@rchiv CD Vol.4  
 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
Re: unsichtabere Spalte/Zelle im DataGrid ermitteln 
Autor: Surfine2001
Datum: 09.07.03 07:57

Guten Morgen.

Danke für deine Antwort.

Funktioniert irgendwie nicht. Wenn ich auf das DataGrid klicke, dann zeigt mir meine MsgBox nur den ersten Recordset, egal welche Zeile ich anklicke.

So sieht mein Code aus:

Private Sub DataGridFuellen()
 
 ' Recordset wird geschlossen, wenn es noch offen ist
 If rstGebEigentuemer.State = adStateOpen Then rstGebEigentuemer.Close
 
    rstGebEigentuemer.Open "SELECT Gebaeude_Id, Strasse, PLZ, Ort FROM Gebaeude" & _
      "WHERE R_Eigentuemer_Id=" & EigentuemerId, ADOcn, adOpenStatic
 
         ' DataGrid1 füllen
         With DataGrid1
              Set .DataSource = rstGebEigentuemer
 
              .Columns("Gebaeude_Id").Visible = False
 
         End With
End Sub
' Öffnet frmGebaeude und übergibt Daten an die Combo1 und Textboxen
Public Sub DataGrid1_Click()
 
    strQuelle = "Gebaeude"
 
 MsgBox EigentuemerId
 
    ' Recordset wird geschlossen, wenn es noch offen ist
    If rstGebEigentuemer.State = adStateOpen Then rstGebEigentuemer.Close
    rstGebEigentuemer.Open "SELECT * FROM Eigentuemer WHERE Eigentuemer_Id=" & _
      EigentuemerId, ADOcn, adOpenStatic
 
    frmGebaeude.Combo1.Text = rstGebEigentuemer.Fields(3) & " " & _
      rstGebEigentuemer.Fields(2)
 
 
    ' Aktuelle Gebäude_Id mittels SQL-Abfrage ermitteln
    If rstGebEigentuemer.State = adStateOpen Then rstGebEigentuemer.Close
    rstGebEigentuemer.Open "SELECT Gebaeude_Id FROM Gebaeude WHERE" & _
      "R_Eigentuemer_Id=" & EigentuemerId, ADOcn, adOpenStatic
 
    Gebaeude_IdDataGrid = rstGebEigentuemer.Fields("Gebaeude_Id")
 
     ' Recordset wird geschlossen, wenn es noch offen ist
    If rstGebaeude.State = adStateOpen Then rstGebaeude.Close
 
    ' Soll bei einer bestimmten Zeile, den entsprechenden Datensatz anzeigen.
    rstGebaeude.Open "SELECT * FROM Gebaeude WHERE Gebaeude_Id=" & _
      Gebaeude_IdDataGrid, ADOcn, adOpenStatic
 
    With rstGebaeude
        frmGebaeude.text1(0).Text = .Fields("ObjektNr")
        frmGebaeude.text1(1).Text = .Fields("Name")
        frmGebaeude.text1(2).Text = .Fields("ObjektTyp")
        frmGebaeude.text1(3).Text = .Fields("Strasse")
        frmGebaeude.text1(4).Text = .Fields("PLZ")
        frmGebaeude.text1(5).Text = .Fields("Ort")
        frmGebaeude.text1(6).Text = .Fields("Hausmeister")
        frmGebaeude.text1(7).Text = .Fields("Baujahr")
    End With
 
    Unload Me
    frmGebaeude.Show
 
End Sub
Weiß leider nicht wie ich es mit ColEdit oder Row machen soll. Vielleicht kannst du mir weiter helfen? Oder kennst noch eine andere Möglichkeit?

Vielen Dank schon mal im voraus.

Gruss
Agnes

------------------------------------
Wenn wir heut gemeinsam starten
und wir alle viel erwarten,

denken wir an jedem Tag daran,
dass man es nur schaffen kann,

wenn wir fest zusammen stehen
und den Weg gemeinsam gehen.

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
unsichtabere Spalte/Zelle im DataGrid ermitteln512Surfine200108.07.03 16:31
Re: unsichtabere Spalte/Zelle im DataGrid ermitteln269ModeratorDieter08.07.03 21:51
Re: unsichtabere Spalte/Zelle im DataGrid ermitteln263Surfine200109.07.03 07:57
Re: unsichtabere Spalte/Zelle im DataGrid ermitteln280Surfine200109.07.03 09:29

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