codeman2001

hab ich geändert. Recordset ist immer noch leer.. Option Explicit Private WithEvents rsKFZ As ADODB.Recordset -------------------------------------------------------------------------- Public Property Set KFZ(ByRef rs As ADODB.Recordset) Set rsKFZ = rs End Property -------------------------------------------------------------------------- Public Property Get KFZ() As ADODB.Recordset Set KFZ = rsKFZ End Property -------------------------------------------------------------------------- Private Sub Form_Load() '- Überprüfung, ob Recordset aktiv ist If (Not (rsKFZ Is Nothing)) Then '- Springe zum ersten Datensatz rsKFZ.MoveFirst While Not rsKFZ.EOF Me.cboGastype_Value.AddItem (rsKFZ.Fields("F_Description")) rsKFZ.MoveNext Wend Else MsgBox "Fehler. Der Recordset ist leer" End If End Sub

nothing.

aber dann müsste ich doch unten im Form_Load() mein Recordset auch mrsKFZ nennen, oder? weil, wenn ich es nicht mache, sagt er mir, dass rsKZF nicht deklariert ist. wenn ich das rsKFZ in Form_Load in mrsKFZ umbenenne kommt wieder

ok, danke, aber ich meinte eigendlich das ganze mit set und get usw... wieso brauche ich rsKFZ(so soll der Recorset heißen), rs und mrsKFZ... sorry, wenn das flasch rüber gekommen ist. wieso funktioniert das ganze nicht? frmMAIN: Option Explicit Private WithEvents rsKFZ As ADODB.Recordset ---------------------------------------------------------------------- Private Sub cmdKFZ_Neu_Click() Call Load(frmKFZ_Neu) '- rsKFZ an USerofm frmKFZ_Neu.KFZ übergeben Set frmKFZ_Neu.KFZ = rsKFZ Call frmKFZ_Neu.Show End Sub frmKFZ_NEU: Option Explicit Private WithEvents rsKFZ As ADODB.Recordset ---------------------------------------------------------------------- Public Property Set KFZ(ByRef rs As ADODB.Recordset) Set mrsKFZ = rs End Property ---------------------------------------------------------------------- Public Property Get KFZ() As ADODB.Recordset Set rsKFZ = mrsKFZ End Property ---------------------------------------------------------------------- Private Sub Form_Load() '- Springe zum ersten Datensatz rsKFZ.MoveFirst While Not rsKFZ.EOF Me.cboGastype_Value.AddItem (rsKFZ.Fields("F_Description")) rsKFZ.MoveNext Wend End Sub

moin, packe jetzt die rs nicht in module. jedoch habe ich schon wieder ne frage. es hapert mal wieder an den grundkenntnissen von VB übergabe recordset an eine Userform: frmMain: Public WithEvents rsKFZ As ADODB.Recordset ------------------------------------------------------ Private Sub cmdKFZ_Neu_Click() Call Load(frmKFZ_Neu) Set frmKFZ_Neu.KFZ = rsKFZ Call frmKFZ_Neu.Show End Sub -> das ist klar, ich übergebe rsKFZ an frmKFZ_Neu frmKFZ_NEU: Option Explicit ------------------------------------------------------ Public WithEvents rsKFZ As ADODB.Recordset ------------------------------------------------------ Public Property Set KFZ(ByRef rs As ADODB.Recordset) Set mrsKFZ = rs End Property ------------------------------------------------------ Public Property Get KFZ() As ADODB.Recordset Set rsKFZ = mrsKFZ End Property ------------------------------------------------------ das 2. verstehe ich nicht so ganz.... wieso brauche ich da 3 variablen nur um den rsKFZ an die Form zu übergeben...? gruß und nicht peinigen

ok danke erst einmal. werde jetzt feierabend machen und da morgen drüber nachdenken. poste dann morgen nochmal.. cu und thx nochmal

achso, alles klar. danke sag mal würde es sinn machen einen recordset auch in einem modul zu speichern, so dass ich den recordset nicht immer über propperties zwischen den userformen hin und her geben muss...?

genau, deshalb verstehe ich auch nicht, wieso hier so manche so auf dem thema rumreiten? Die Frage war nur nach einem Tool, oder einer Methode. gruß

es funktioniert so, weil die variable gConnection ja durch das Modul global verfügbar ist. aber ich dachte, das 2. wäre quasi die gleiche schreibweise nur halt ausführlicher... aber es wäre schön, wenn du es mir erklären könntest

'-Überprüfung, ob Verbindung besteht If modVerbindung.ConnectionOpen(gConnection) = True Then '- Recordset anlegen und öffnen Set rsKFZ = New ADODB.Recordset rsKFZ.Open "T_KFZ", (modVerbindung.ConnectionOpen(gConnection)), adOpenDynamic, adLockPessimistic '-Springe zum ersten Datensatz rsKFZ.MoveFirst While Not rsKFZ.EOF Me.DBComboKFZ.AddItem (rsKFZ.Fields("F_RegNum")) Me.DBComboKFZI_ID.AddItem (rsKFZ.Fields("I_ID")) rsKFZ.MoveNext Wend End If rsKFZ.Open "T_KFZ", (modVerbindung.ConnectionOpen(gConnection)), adOpenDynamic, adLockPessimistic :confused: ich komme der sache näher dank dir habe ich endlich mal ein erfolgserlebnis ***EDIT*** Ich habs, das muss lauten: rsKFZ.Open "T_KFZ", gConnection, adOpenDynamic, adLockPessimistic und nicht rsKFZ.Open "T_KFZ", (modVerbindung.ConnectionOpen(gConnection)), adOpenDynamic, adLockPessimistic ***/EDIT***

'-Verbindung zur Datenbank herstellen Private Sub cmdConnect_Click() '-Überprüfung, ob Verbindung besteht If [b]Connection.State = 1 Then[/B] '- Recordset anlegen und öffnen Set rsKFZ = New ADODB.Recordset rsKFZ.Open "T_KFZ", [b]Connection[/b], adOpenDynamic, adLockPessimistic '-Verbindung zur Datenbank herstellen Private Sub cmdConnect_Click() '-Überprüfung, ob Verbindung besteht If V[B]erbindung.Connection.State = 1[/B] Then '- Recordset anlegen und öffnen Set rsKFZ = New ADODB.Recordset rsKFZ.Open "T_KFZ", [b]Verbindung.Connection[/b], _ adOpenDynamic, adLockPessimistic Das Modul heisst Verbidung. Die Funktion in dem Modul Verbindung heisst ConnectionOpen. Wie spreche ich jetzt die Verbindung aus den Form herraus an...? das ware die frage.

eine flatrate würde sich nicht lohnen, wenn man alle 2 Wochen Dienst hat. ich möchte nur herausfinden, ob in der Zeit, in der kein Dienst ist, auch gesurft wird - auf privaten seiten. gruß

moin, das hier steht in meinem Modul: Option Explicit Public Connection As ADODB.Connection Public Sub Verbindung() '-Verbindung zur Datenbank herstellen Set Connection = New ADODB.Connection With Connection .ConnectionString = ".\Fahrbereitschaft.mdb" .Provider = "Microsoft.Jet.OLEDB.4.0" 'für Access 2000/XP/2003 .CursorLocation = adUseClient Call .Open End With End Sub und das hier steht in meinen Hauptprogramm: Variante 1: '-Verbindung zur Datenbank herstellen Private Sub cmdConnect_Click() '-Überprüfung, ob Verbindung besteht If Connection.State = 1 Then '- Recordset anlegen und öffnen Set rsKFZ = New ADODB.Recordset rsKFZ.Open "T_KFZ", Connection, adOpenDynamic, adLockPessimistic '-Springe zum ersten Datensatz rsKFZ.MoveFirst While Not rsKFZ.EOF Me.DBComboKFZ.AddItem (rsKFZ.Fields("F_RegNum")) Me.DBComboKFZI_ID.AddItem (rsKFZ.Fields("I_ID")) rsKFZ.MoveNext Wend Else MsgBox ("Fehler beim Verbinden der Datenbank") End If End Sub Variante2: '-Verbindung zur Datenbank herstellen Private Sub cmdConnect_Click() '-Überprüfung, ob Verbindung besteht If Verbindung.Connection.State = 1 Then '- Recordset anlegen und öffnen Set rsKFZ = New ADODB.Recordset rsKFZ.Open "T_KFZ", Verbindung.Connection, _ adOpenDynamic, adLockPessimistic '-Springe zum ersten Datensatz rsKFZ.MoveFirst While Not rsKFZ.EOF Me.DBComboKFZ.AddItem (rsKFZ.Fields("F_RegNum")) Me.DBComboKFZI_ID.AddItem (rsKFZ.Fields("I_ID")) rsKFZ.MoveNext Wend Else MsgBox ("Fehler beim Verbinden der Datenbank") End If End Sub gruß :e@sy

ich möchte das hier nicht in eine sinnlose diskussion ausarten lassen. ich habe mir schon genau überlegt, wie und warum ich das mache danke für eure mithilfe! :e@sy

moin, sag mal wie mache ich das,dass ich eine globale connection habe? kann ich die irgendwie in einmodulpacken? möchte gerne von mehreren user formsauf die verbindung zugreifen. gruß

wenndas programm startet, kommt automatisch eine mitteilung das internetbesuche etc. geloggt werden....

ihn gezielt drauf ansprechen, ohne groß trouble zu machen...

hab was gefunden....

wir sind nur ein kleiner löschzug der pc soll für alle zugänglich sein, und er wird an einem dienstabend genutzt. jedoch haben viele leute enen schlüssel für die wache und somit könnte man theoretisch immer ins netz gehen, wann man will.... sagen wir es so: ich verwerte die daten nicht, mich würde es nur interessieren ob, und wie es möglich wäre kann ich den usern bei windows nicht soweit die rechte klauen, dass eine löschung der Cookies, der Verlaufes und der Temps nicht mehr möglich ist? Das wäre ja auch ne Lösung....

moin, es geht ja darum, dass vielleicht privat gesurft wird. es geht dabei nich unbedingt um 0190er oder 0900er nummern, sondern heraus zu finden ob auf "privaten" seiten gesufrt wurde und dann der verlauf und die temps gelöscht wurden... gruß

moin, kennt einer von euch ein programm, mit dem ich die URL's von besuchten I-Net Seiten mitloggen kann? Problem: Die Telefonrechnung bei dem Rechner in unserer Feuerwehr ist "relativ" hoch... Verlauf und Temp files sind immer gelöscht... will da mal nach gucken, wo da so gesurft wird... gruß

kann ich ja verstehen... aber ich soll die ****e jetzt erst einmal so machen. es kann sein, dass das ganze dann optional noch auf SQL umgestellt werden soll... *ausbilderhalt* gruß

weil mein ausbilder das so möchte... danke!!! jetzt funktioniert das... muss mir das nochmal genau abgucken, um zu begreifen, was das jetzt genau abläuft!

geht immer noch nicht frmMain: Call Load(frmKFZ_Neu) Set frmKFZ_Neu.KFZ = rsKFZ Call frmKFZ_Neu.Show End Sub frmKFZ_Neu: Option Explicit Dim clsGUID As cGUID Private WithEvents rsKFZ As ADODB.Recordset Public Property Set KFZ(ByRef rs As ADODB.Recordset) Set mrsKFZ = rs End Property Public Property Get KFZ() As ADODB.Recordset Set rsKFZ = mrsKFZ End Property Private Sub cmdOK_Click() Set clsGUID = New cGUID rsKFZ.AddNew rsKFZ!I_ID = clsGUID.NewGuid rsKFZ!F_RegNum = Me.txtRegNum_Value.Text rsKFZ!F_Manufact = Me.txtManufact_Value.Text rsKFZ!F_KFZType = Me.txtKFZType_Value.Text rsKFZ!F_YearOfBuild = Me.txtYearOfBuild_Value.Text rsKFZ!L_GasType = Me.cboGastype_Value.Text rsKFZ!F_BuyDate = Me.txtBuyDate_Value.Text rsKFZ!F_BuyKM = Me.txtBuyKM_Value.Text rsKFZ!F_ActualKM = Me.txtActualKM_Value.Text rsKFZ!F_TankCapacity = Me.txtTankCapacity_Value.Text rsKFZ.UpdateBatch End Sub Private Sub Form_Terminate() Set rsKFZ = Nothing End Sub Fehler: Variable nicht definiert. mrsKFZ :confused:

ich möchte über eine userform inhalte neu einpflegen... will das ohne sql befehle machen hab jetzt den code hier.. frmMain: Private Sub cmdCreateData_Click() Call Load(frmKFZ_Neu) Set frmKFZ_Neu.Recordset = rsKFZ <- Methode nich gefunden Call frmKFZ_Neu.Show End Sub frmKFZ_Neu Option Explicit Private WithEvents rsKFZ As ADODB.Recordset Public Property Set KFZ(ByRef rs As ADODB.Recordset) Set mrsKFZ = rs End Property Public Property Get KFZ() As ADODB.Recordset Set rsKFZ = mrsKFZ End Property Private Sub cmdOK_Click() rsKFZ.AddNew rsKFZ!I_ID = me.txtID_Value.text rsKFZ!F_RgNum = Me.txtRegNum_Value.Text rsKFZ!F_Manufact = Me.txtManufact_Value.Text rsKFZ!F_KFZType = Me.txtKFZType_Value.Text rsKFZ!F_YearOfBuild = Me.txtYearOfBuild_Value.Text rsKFZ!L_GasType = Me.cboGastype_Value.Text rsKFZ!F_BuyDate = Me.txtBuyDate_Value.Text rsKFZ!F_BuyKM = Me.txtBuyKM_Value.Text rsKFZ!F_ActualKM = Me.txtActualKM_Value.Text rsKFZ!F_TankCapacity = Me.txtTankCapacity_Value.Text rsKFZ.UpdateBatch End Sub Private Sub Form_Terminate() Set rsKFZ = Nothing End Sub