-
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
-
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
-
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!
-
where do i get some translator ???
not for pay !!!!!! for download !!!!
-
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
-
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. :)
-
http://translate.lhsl.com/
Dies ist Lernout und Hauspies Übersetzer. Es ist nicht sehr gut, sondern es funktioniert.
-
Wenn das Wetter nicht so gut ist, gehe ich zum VB-World :p
