wertübergebe von private sub`s

[rene123456]

hi

wie mache ich meiner private sub cmdsuchen_click klar was in optSuch für ein index gewählt ist ????

hier der text:

Option Explicit

Dim AnbindungADO As New ADODB.Connection
Dim KommandoADO As New ADODB.Command
Dim DatensatzADO As New ADODB.Recordset

Public Sub cmdEdit_Click(Index As Integer)

Select Case Index
Case 0
Unload frmVideoSuchen1
End Select

End Sub

Public Sub cmdsuchen_Click()

Dim Name As String
Dim x As String

'Name = txt1.text
'x = "Filmname LIKE '" & Name & "'"
'x = "Produzent LIKE '" & Name & "'"
'x = "Gesellschaft LIKE '" & Name & "'"
'x = "Schauspieler LIKE '" & Name & "'"
'x = "Genre LIKE '" & Name & "'"
'x = "Jahr LIKE '" & Name & "'"
'x = "Verliehen_an LIKE '" & Name & "'"
DatensatzADO.Filter = x

DatensatzADO.Requery
LiesDatensatz

End Sub

Private Sub Form_Load()

'datenbank öffnen

AnbindungADO.Provider = "Microsoft.Jet.OLEDB.3.51"
AnbindungADO.ConnectionString = "d:\eigene dateien\vb projekte\abschlussprojekt\multimediadatenbank.mdb"
AnbindungADO.Open

KommandoADO.ActiveConnection = AnbindungADO
KommandoADO.CommandText = "SELECT Nr,Filmname,Produzent,Gesellschaft,Schauspieler,Genre,Jahr,Verliehen_an FROM tblVideofilme"

DatensatzADO.CursorLocation = adUseClient
DatensatzADO.CursorType = adOpenDynamic
DatensatzADO.LockType = adLockPessimistic

DatensatzADO.Open KommandoADO
LiesDatensatz

cbosuchFuellen

DatensatzADO.MoveFirst

End Sub

Private Sub LiesDatensatz()

txtNr.text = LiesWert(DatensatzADO!Nr)
txtName.text = LiesWert(DatensatzADO!Filmname)
txtProd.text = LiesWert(DatensatzADO!Produzent)
txtGesellsch.text = LiesWert(DatensatzADO!Gesellschaft)
txtSchauspieler.text = LiesWert(DatensatzADO!Schauspieler)
txtGenre.text = LiesWert(DatensatzADO!Genre)
txtJahr.text = LiesWert(DatensatzADO!Jahr)
txtVerliehen.text = LiesWert(DatensatzADO!Verliehen_an)

lblAusgabe.Caption = "Datensatz " & DatensatzADO.AbsolutePosition _
& " von " & DatensatzADO.RecordCount

End Sub

Private Function LiesWert(feld As Field) As String

If IsNull(feld) Then
LiesWert = ""
Else
LiesWert = feld
End If

End Function

Private Sub cmdSteuern_Click(Index As Integer)
Select Case Index
Case 0
DatensatzADO.MoveFirst
Case 1
DatensatzADO.MovePrevious
If DatensatzADO.BOF Then
Beep
DatensatzADO.MoveFirst
End If
Case 2
DatensatzADO.MoveNext
If DatensatzADO.EOF Then
Beep
DatensatzADO.MoveLast
End If
Case 3
DatensatzADO.MoveLast
End Select

LiesDatensatz

End Sub

Private Function setzewert(kette As String) As Variant

If Trim(kette) = "" Then
setzewert = Null
Else
setzewert = Trim(kette)
End If

End Function


Private Sub optSort_Click(Index As Integer)

Select Case Index
Case 0
DatensatzADO.Sort = ""
Case 1
DatensatzADO.Sort = "Name"

Case 2
DatensatzADO.Sort = "Produzent"
Case 3
DatensatzADO.Sort = "Gesellschaft"
Case 4
DatensatzADO.Sort = "Schauspieler"
Case 5
DatensatzADO.Sort = "Genre"
Case 6
DatensatzADO.Sort = "Jahr"
Case 7
DatensatzADO.Sort = "Verliehen_an"
End Select

DatensatzADO.Requery
cmdSteuern_Click 1

End Sub

Public Sub optFilter_Click(Index As Integer)

Dim x As String
Dim Name As String

Select Case Index
Case 0
DatensatzADO.Filter = ""
Case 1
txt1.SetFocus
Case 2
txt1.SetFocus
Case 3
txt1.SetFocus
Case 4
txt1.SetFocus
Case 5
txt1.SetFocus
Case 6
txt1.SetFocus
Case 7
txt1.SetFocus
End Select

DatensatzADO.Requery
LiesDatensatz

End Sub

Private Sub cbosuchFuellen() 'form load

Dim i As Integer
Dim j As Integer
Dim x As Integer

x = 0

DatensatzADO.MoveFirst
cboSuch.AddItem LiesWert(DatensatzADO!Filmname)

For i = 1 To DatensatzADO.RecordCount
For j = 0 To cboSuch.ListCount
If cboSuch.List(j) = DatensatzADO!Filmname Then
x = 1
Exit For
End If
Next j

If x = 0 Then
cboSuch.AddItem LiesWert(DatensatzADO!Filmname)
End If

x = 0
DatensatzADO.MoveNext

If DatensatzADO.EOF Then
DatensatzADO.MoveLast
Exit Sub
End If
Next i

DatensatzADO.MoveFirst

End Sub

Private Sub cboSuch_Click()

Dim Name As String
Dim x As String
Dim anzahl As Integer

Name = cboSuch.text
x = "Name LIKE '" & Name & "'"
DatensatzADO.Filter = x

LiesDatensatz

End Sub

Public Function kennwort3() As String

Dim benutzer As String
Dim user As String
Dim regkey As Variant
Dim text As String

text = Space(255)

kennwort3 = RegOpenKeyEx(HKEY_CURRENT_USER, "Multimediadatenbank\Gastuser", 0, _
KEY_QUERY_VALUE, regkey)
If kennwort3 = 0 Then
kennwort3 = RegQueryValueEx(regkey, frmLogin2.txtPersonalName.text, 0, _
REG_SZ, text, Len(text))
kennwort3 = text
Else
kennwort3 = "Kein Zutritt !"
End If

RegCloseKey (regkey)

End Function

Private Sub tim1_Timer()

lblUhrzeit.Caption = Format(Time, "long time")
lblDatum.Caption = Format(Date, "long date")

End Sub

[Good Dreams]

Sorry, I only understand:

Portuguese/brazilian
English
American
French (a bit)
Hebrew (few words/sentences)

German I only know Die Nibelung Rang and to say Nien

[Dreamlax]

You spelt nein wrong!

Ich benutze einen Übersetzer. Sie sollten einen Übersetzer benutzen. Ich glaube nicht, daß viele Leute Deutsch in diesem Forum sprechen können!

[rene123456]

where do i get some translator ???
not for pay !!!!!! for download !!!!

[GUUS]

Hoi,

Versuche mal cmdsuchen_Click() anzurufen mit ein variable wie in folgendes Beispiel :

call cmdsuchen_Click(index???)

und definiere die subroutine zum beispiel als :

Public Sub cmdsuchen_Click(index??? as integer)

GUUS

[alex_read]

In english :

"how do I make clear my private sub cmdsuchen_click which in optSuch for an index am selected???? here the text: "

Altavista has a free translator - http://babelfish.altavista.com/

as for the question, I think Guus has answered that one.

[Dreamlax]

http://translate.lhsl.com/

Dies ist Lernout und Hauspies Übersetzer. Es ist nicht sehr gut, sondern es funktioniert.

[parksie]

Wenn das Wetter nicht so gut ist, gehe ich zum VB-World