Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Ups, mehr INPUT ...
Autor: Dani
Datum: 20.08.01 17:20
Hallo Gott schau mal soeben hab ich es fertig natürlich hat mir jemand geholfen der code wenn jemand das gleiche problem hat grüsse dani Dim Abfrage As String Abfrage = "" If (cboLieferanten.Text <> vbNullString) Then Abfrage = Abfrage & "Lieferant like " & Chr(39) & cboLieferanten.Text & Chr(39) & " AND " End If If (cboModulart.Text <> vbNullString) Then Abfrage = Abfrage & "Modulart like " & Chr(39) & cboModulart.Text & Chr(39) & " AND " End If If (cboGroesse.Text <> vbNullString) Then Abfrage = Abfrage & "Simmgroesse like " & Chr(39) & cboGroesse.Text & Chr(39) & " AND " End If If (cboChip.Text <> vbNullString) Then Abfrage = Abfrage & "chipanzahl like " & Chr(39) & cboChip.Text & Chr(39) & " AND " End If If (cboFarbe.Text <> vbNullString) Then Abfrage = Abfrage & "PrintFarbe like " & Chr(39) & cboFarbe.Text & Chr(39) & " AND " End If If (cboEprom.Text <> vbNullString) Then Abfrage = Abfrage & "miteprom like " & Chr(39) & cboEprom.Text & Chr(39) & " AND " End If If (cboBestueckung.Text <> vbNullString) Then Abfrage = Abfrage & "Bestueckung like " & Chr(39) & cboBestueckung.Text & Chr(39) & " AND " End If ' -------------------------------------- If (Right(Abfrage, 5) = " AND ") Then Abfrage = " Where " & Left(Abfrage, Len(Abfrage) - 5) End If RSRamSeriennummer.Close sqlString1 = "SELECT * FROM RamSeriennummern " & Abfrage RSRamSeriennummer.LockType = adLockOptimistic RSRamSeriennummer.Open sqlString1, con If Not (RSRamSeriennummer.EOF) Then With RSRamSeriennummer .MoveFirst Do While Not (.EOF) ' Liste Füllen lstEintragGefunden.AddItem (.Fields("Nummer")) & " " & _ (.Fields("Lieferant")) & " " & _ (.Fields("Modulart")) & " " & _ (.Fields("simmgroesse")) ' Nächster Datensatz .MoveNext ' Zur Sicherheit (kannst auch weglassen) 'DoEventsLoop Loop End With End If

Wer hat mir ein Tipp ??	64	Dany	20.08.01 12:59
Ups, mehr INPUT ...	269	unbekannt	20.08.01 16:50
Re: Ups, mehr INPUT ...	35	Dani	20.08.01 17:20

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen