Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Noch nicht geschafft
Autor: Winy
Datum: 19.02.02 07:16
Hallo Dieter Leider habe ich es noch immer nicht geschafft, einen Dialog zu öffnen, der den in einem MSHFlexGrid selektierten Datensatz aufgrund der Schlüsselspalte anzeigt. Ich habe Dir etwas Code geschickt, von den beteiligten Teilen des Programms. Vielleicht befinde ich mich ja grundsätzlich auf dem falschen Weg. /////////////////////////////////////////////////////////////////////////////////////// Klassenmodul für die Connection (DatClass1) Public con As Connection Option Explicit Private Sub Class_Initialize() Set con = New Connection con.CursorLocation = adUseClient con.Provider = "Microsoft.Jet.OLEDB.4.0" con.Open App.Path & "AV180102.mdb" End Sub //////////////////////////////////////////////////////////////////////////////////////// Modul Kunde Private datObj As DatClass1 Dim rs As Recordset Option Explicit Public Sub Laden() Set datObj = New DatClass1 Dim comm As New Command comm.CommandText = "Select Kunde_Id,Name,Strasse,Plz,Ort from tblKunde" comm.CommandType = adCmdText Set comm.ActiveConnection = datObj.con Set rs = New Recordset Set rs = comm.Execute(, , adCmdText) Set frmMain.FlexGrid1.DataSource = rs End Sub /////////////////////////////////////////////////////////////////////////////////////// Dialog (sollte beim Öffnen den im FlexGrid selektierten Datensatz anzeigen) Private datObj As DatClass1 Dim rs As Recordset Option Explicit Private Sub Form_Load() Set datObj = New DatClass1 Set rs = New Recordset Dim KundeId As String KundeId = frmMain.FlexGrid.Recordset(0) Dim comm As New Command comm.CommandText = "Select Name,Strasse,Plz,Ort from tblKunde where Kunde_Id = " & KundeId comm.CommandType = adCmdText Set comm.ActiveConnection = datObj.con Set rs = comm.Execute Me.txtName.Text = rs.Fields(0).Value Me.txtStrasse.Text = rs.Fields(1).Value Me.txtPlz.Text = rs.Fields(2).Value Me.txtOrt.Text = rs.Fields(3).Value End Sub ///////////////////////////////////////////////////////////////////////////////// Gruss Winy

Zugriff auf Zellen in MSHFlexGrid	49	Winy	18.02.02 12:32
Re: Zugriff auf Zellen in MSHFlexGrid	413	Dieter	18.02.02 12:53
Re: Zugriff auf Zellen in MSHFlexGrid	37	Winy	18.02.02 13:00
Noch nicht geschafft	38	Winy	19.02.02 07:16
Re: Noch nicht geschafft	375	Dieter	19.02.02 10:08
Vielen herzlichen Dank	26	Winy	19.02.02 10:21
es will nicht	29	Winy	20.02.02 12:09

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

Suchen