codeman2001

hab da nochmal ne frage... irgendwann verzweifle ich daran :confused: ich habe jetzt noch eine userform (frmKFZ_Neu) und an diese Userform möchte ich mein Recordset und meine Verbindung übergeben...

jo danke. ich habe es jetzt Set gvRs = New ADODB.Recordset With gvRs .ActiveConnection = gvConnection .CursorLocation = adUseClient .LockType = adLockBatchOptimistic .Source = "SELECT T_KFZ.F_registrationnumber, " & _ "T_KFZ.F_manufacturer, " & _ "T_KFZ.F_type " & _ "FROM T_KFZ " & _ "WHERE T_KFZ.I_ID = '" & lngID & "';" Call .Open End With Me.txtManufacturer.Text = gvRs!F_manufacturer Me.txtType.Text = gvRs!F_type bzw noch einfacher: gvRs.Filter = "I_ID like '" & Me.DBComboKFZI_ID.Text & "'" Me.txtManufacturer.Text = gvRs!F_manufacturer Me.txtType.Text = gvRs!F_type

das wäre nett. jedoch bin ich morgen früh erst wieder "on" ... ich hoffe du kannst mit meinem Quelltext etwas anfangen... :mod:

das habe ich bis jetzt: Option Explicit Dim gvConnection As ADODB.Connection Dim gvRs As ADODB.Recordset Dim lngComboIndex As Long '-Verbindung zur Datenbank herstellen Private Sub cmdConnect_Click() '-Comboboxen leeren Me.DBComboKFZ.Clear Me.DBComboKFZI_ID.Clear Set gvConnection = New ADODB.Connection With gvConnection .ConnectionString = ".\Fahrbereitschaft.mdb" .Provider = "Microsoft.Jet.OLEDB.4.0" .CursorLocation = adUseClient Call .Open End With If gvConnection.State = 1 Then '-Status: rot unvisible, gruen visible Me.lblNichtVerbunden.Visible = False Me.lblVerbunden.Visible = True Set gvRs = New ADODB.Recordset gvRs.Open "T_KFZ", gvConnection, adOpenDynamic, adLockReadOnly '-Springe zum ersten Datensatz gvRs.MoveFirst lngComboIndex = 0 While Not gvRs.EOF Me.DBComboKFZ.AddItem (gvRs!F_registrationnumber), lngComboIndex Me.DBComboKFZI_ID.AddItem (gvRs!I_ID), lngComboIndex gvRs.MoveNext lngComboIndex = lngComboIndex + 1 Wend Else MsgBox ("Fehler beim Verbinden der Datenbank") '-Status: gruen unvisible, rot visible Me.lblVerbunden.Visible = False Me.lblNichtVerbunden.Visible = True End If End Sub ----------------------------------------------------------------- Private Sub DBComboKFZ_Click() '-Index mit dem Kennzeichen abgleichen Me.DBComboKFZI_ID.ListIndex = Me.DBComboKFZ.ListIndex Set gvRs = New ADODB.Recordset gvRs.Open "T_KFZ", gvConnection, adOpenDynamic, adLockReadOnly With gvRs Set .ActiveConnection = gvConnection .Source = "SELECT T_KFZ.F_registrationnumber, _ T_KFZ.F_manufacturer, _ T_KFZ.F_type _ FROM T_KFZ _ WHERE T_KFZ.I_ID=" & Me.DBComboKFZI_ID.ListIndex & ";" Me.txtManufacturer.Text = gvRs!F_manufacturer Me.txtType.Text = gvRs!F_type End With End Sub mach nicht viel mit VB.... bin dabei das alles zu lesen, aber so richtig finde ich da nicht, was ich brauche... gruß

geht aber trotzdem noch nicht...

also ich habe eine access datenbank, in der ein fuhrpark eingepflegt ist. Aufbau: T_KFZ - I_ID - F_Kennzeichen - F_Marke - F_Modell In einer combo box sollen jetzt die Autos nach ihrem kennzeichen aufgelistet werden (funktioniert bereits). Wenn ich jetzt ein kennzeichen in der combobox auswähle, sollen die dazugehörigen daten (F_Kennzeichen, F_Marke, F_Modell) in Textboxen (txt1 - txt3) eingetragen werden. ist wahrscheinlich relativ simpel, aber ich komme einfach nicht mehr weiter... gruß ***EDIT*** zusammengebastelt Set gvRs = New ADODB.Recordset With gvRs Set .ActiveConnection = gvConnection .Source = "SELECT T_KFZ.F_registrationnumber, " & _ "T_KFZ.F_manufacturer, " & _ "T_KFZ.F_type, " & _ "FROM F_KFZ " & _ "WHERE I_ID=Me.DBComboKFZI_ID.ListIndex;" 'Listindex ist ID des Datensatzes 'Call .Open Me.txtManufacturer.Text = gvRS!F_manufacturer Me.txtType.Text = gvRs!F_type

Set gvRs = New ADODB.Recordset gvRs.Open "T_KFZ", gvConnection, adOpenDynamic, adLockReadOnly '-Springe zum ersten Datensatz gvRs.MoveFirst Me.DBComboKFZ.AddItem (gvRs!F_registrationnumber) so nehme ich ja den ersten datensatz und von diesem das feld F_registrationnumber wie kann ich denn den 2. datensatz auswählen?

wenn es geht ja, oder ist es mit ADO einfacher? konnte mir den link noch nicht durchlesen...

bis jetzt habe ich mir folgendes quelltext gebaut. geht das nicht auch mir "normalen" VB Quelltext? Private Sub Form_Load() Dim db As Database Dim rs As Recordset '-Datenbank implementieren Set db = OpenDatabase(".\Fahrbereitschaft.mdb") '-Tabelle auswaehlen Set rs = db.OpenRecordset("T_KFZ") '-Ersten Datensatz auswählen rs.MoveFirst '-Wiederhole solange nicht EOF (End of File) ist. Combo Box füllen. Zum nächsten Daten '-satz springen While Not rs.EOF DBComboKFZ.AddItem (rs!F_registrationnumber) rs.MoveNext Wend '-Datenbank schließen db.Close End Sub Damit fülle ich eine Combo Box (bsp. Auto Kennzeichen) mit den Inhalten einer Datenbank. Jetzt kann ich einen Datensatz auswählen und es werden die dazugehörigen werte (Marke, Modell....) in textfeldern ausgegeben. gruß

hab nur 4 kleine Fragen. 1. Wie Spreche ich bestimme Datensätze und dann bestimmte Werte des Datensatzes an? 2. wie lese ich datensätze aus einer MS-Access (.mdb) Datei aus? 3. wie füge ich neue datensätze ein? 4. wie ändere ich bestehende datensätze? gruß

vielleicht habe ich ja glück und die nehmen 2 Ergebnisse...:helau:

1. auf welche aufgaben gibt es teilpunkte? und wenn ja wie viele? Anzahl der 2,... / Anzahl der Lösungen? 2. und wie sieht es mit dem Runden aus? Habe z.B bei der Ausgabe mit dem Stromkosten 5,08 geschrieben. warum auch immer... richtige lösung ist ja 5,07 3. was ist jetzt bei 3.8 richtig? gruß

ich denke das 3 richtig ist.

hab meine lösung aufm aufgabenzettel. schreibe die aufgabe eben ab.. ich auch Aufgabe 2.9 -Spezial Scanner Hardware für Dental Röntgenfilm - Panoramafilme 18x24, 12x30 und [b]15 x 30 cm [/B] - 8 Bit Grauwerttiefe 300 dpi (15/2,54*300)*(30/2,54*300) * 8 ----------------------------------- 8 * 1024 *9 = 551,74 KByte = 552 KByte ----------------------------------- 100

fertig!!! und wie fandet ihr es?

mein IT handbuch ist voll mit den transparenten post-It's. garantiert 60 stück falls sie doch nciht erlaubt sind, was ich aber nicht glaube, kann ich diese schnell entfernen. sas ist eine sache von einer minute... für die 20 EUR trinke ich dann lieber am abend nach der prüfung 8 bierchen :marine gruß

moin, suche ZP's von Fachinformatikern. Relativ Aktuell. Bitte mailen an: muetze-alv at gmx.de Danke schonmal im Vorraus...