codeman2001

moin,

hat das schon mal wer in VB realisiert?

Der LPT port gibt ja 0 (0V) oder 1 (5V) aus. Mit dem Signal und einem Relais könnte man dann einen 230V~ Verbraucher Schalten, z.B. eine Lampe oder der gleichen...

gruß :confused:

jo :uli

:marine :marine

danke

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

Laufzeitfehler 91:

Objektvariable oder With-Blockvariable nicht festgelegt

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

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

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

ausführlicher wäre die Schreibweise wenn

"modVerbindung.gConnection".

Das zweite hat nicht funktioniert, da die Open-Methode des ADODB.Recordsets als 2. Parameter eine aktive Connection benötigt (ADODB.Connection), die Funktion "ConnectionOpen" aber einen Boolean zurückgibt.

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...?

Kann ihm nicht einfach jemand sagen, wie er an die gewünschten Informationen kommt ? Das dies zu datenschutzrechtlichen Problemen führen könnte, weiß er ja jetzt und damit ist es später doch sein Problem, ob er die Informationen verwerten kann oder nicht.

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

Laufzeitfehler 3001

Die Argumente sind vom falschen Typ, liegen außerhalb des Gültigkeitsbereiches, oder sind miteinander unvereinbar

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ß

Hi,

deklarier die Connection in einem Modul :

Public g_DBConnection As ADODB.Connection

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

'-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

'-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....

ok dann frag ich mal .Was willst du mit den Informationen.Du erfährst dann beispielsweise das Herr XY von 7 Uhr an 3 Stunden auf Ebay war und nebenbei die neuesten Sportergebnisse abgerufen hat.Nur leider darfst du diese Information nicht nutzen da du durch das erlangen dieser Information gegen das Datenschutzgesetz verstossen hast.

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

hab was gefunden....

Macht es euch nicht so schwer... Es gibt ein Programm, das folgendes kann:

Das programm heißt:

iOpus STARR PC & Internet Monitor

Aber Achtung: Das mitloggen von diesen Daten verstößt u.a. gegen das Datenschutzgesetz.

Viel Spaß beim spionieren!!! :wink:

Das ganze mitzuloggen dürfte technisch kein Problem darstellen jedoch darfst du es wohl aus datenschutzrechlichen Gründen nicht tuen bzw verwerten.

Erinner einfach alle nochmal daran das privates surfen untersagt ist und von nun an mitprotokolliert wird und das ein Löschen von Cookies und Verlauf nicht ausreicht .

Davon mal abgesehen fallen mir nur ganz wenige Gründe ein warum man bei der Feuerwehr aus dienstlichen Gründen einen Internetzugang braucht.Und diese Gründe betreffen die Vorgesetzten die sich kaum reinreden lassen werden bzw ihren eigenen PC haben.

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ß

Naja, dann kannst Du Deinem Ausbilder sagen, dass diese Art der Aktualiserung nicht sicher und performant ist.

Ich kenne genug Anwendungen, bei denen es damit Probleme gab und ich bewege mich in der Sprache jetzt schon einige Jahre und kenne genug Beispielgeschichten von Programmierern, die VB schon seit VB 1 oder 3 machen.

Ist nur ein gutgemeinter Rat, denn wenn Du auf andere DB - Systeme oder mit einer anderen Programmiersprache den Kram machst, dann wirst Du um SQL nicht herum kommen...

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ß

Ein bißchen selber nachdenken muss man schon, man sollte die Variablennamen auch beachten:

--> Dies ist Dein formweites Recordset, welches für die Property zuständig ist 'Private WithEvents rsKFZ As ADODB.Recordset

' wird zu 

Private WithEvents [b]m[/b]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

Zudem immer noch keine Antwort auf diese Frage:

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!