Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: SQL
Autor: mYd
Datum: 27.01.04 19:30
also ich habe vorname, nachname, u anmeldename drinne es geht ja auch wenn ich alles in ne andere textbox schreibe nur er meckert halt wenn ich das so schreibe Private Sub txtVerkäufer_KeyPress(KeyAscii As Integer) 'Bei Tastendruck im Eingabetextfeld Artikelnummer 'Falls Tasten-Code... Select Case KeyAscii Case vbKeyBack 'Zulässige Eingabe Case vbKeyReturn dbFile = App.Path + "\Verkäufer.mdb" Set Db = Workspaces(0).OpenDatabase(dbFile, False, False) sql = "SELECT * FROM Verkaufer WHERE Anmeldename LIKE '" + txtVerkäufer.Text + "'" Set rs = Db.OpenRecordset(sql) If rs.RecordCount > 0 Then txtVerkäufer.Text = Empty txtVerkäufer.Text = rs("Nachname") + " " + rs("Vorname") rs.Close txtArtikelnummer.SetFocus Else MsgBox "Fehler: Verkäufer nicht vorhanden !!!" 'MSG BOX falls SQL-Abfrage Erfolglos txtVerkäufer.Text = Empty 'Lösche Ihnalt von Artikelnummer txtVerkäufer.SetFocus 'Focus auf Artikelnummer End If End Select End Sub Mfg MyD

SQL	485	mYd	27.01.04 17:35
Re: SQL	305	Dieter	27.01.04 18:46
Re: SQL	264	mYd	27.01.04 19:03
Re: SQL	284	smither	27.01.04 19:09
Re: SQL	278	mYd	27.01.04 19:30
Re: SQL	273	smither	27.01.04 19:34
Re: SQL	284	mYd	27.01.04 19:43

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