vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Blitzschnelles Erstellen von grafischen Diagrammen!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB & Datenbanken
Re: Urlaubverwaltung 
Autor: MacGyver
Datum: 29.06.05 13:28

hy
okay
dan erkläe ich mein problem ich hab in dem programm eine formular bei in dem man
eine neue mitarbeiter anleget und vor dem anlegen soll überprüft werden ob es
den arbeiter schon gibt

wolte des mit findfirst mach hab dazu nix gefunde

und hab im workshop das mit den idexes gelesen und dacht das ist eigentlich das was ich brauch

also hab ich die 2 datenfelder vorname und name

zum index vornamename zusammegefasst

und dan wollte ich den index zur der tabell hinzufügen wie im workshop beschrieben

nur klappt das
nicht

also die datenbank liegt auf dem sql server
und die dateanbank sprech ich über das data element an das es im vb 6 gibt
an

und ich hab zwei tabellen employess und vacancy

und zu der tabell employess soll der index hinzugefügt


und ich dacht ich löse das so


Private Sub hinzu_Click()
Dim vorname As String
Dim nachname As String
Dim telefon As String
Dim urlaubtage As Integer
Dim Handy As String
Dim Index As New Index
txtvorname(1).Text = vorname
txtnachname(1).Text = nachname
txttelefon.Text = telefon
txturlaubtage.Text = urlaubtage
txthandy(1).Text = Handy




'Data1.Recordset.FindFirst vorname & nachname
Index.name = "VornameName"
Index.Primary = False
Index.Unique = True
Index.Fields = "Vorname;Name"

'Hinzufügen zur Indexes-Auflistung
Data2.tabeldef("employess").Indexes.Append Index die zeile verursacht fehler
Set Index = Nothing

Data1.Recordset.Index = "VornameName"
Data1.Recordset.Seek "=", vorname And nachname




If vorname = " " And nachname = " " And urlaubtage = " " Then
MsgBox "Sie müssen Vorname, Nachname und Urlaubtage"
ElseIf Data1.Recordset.NoMatch Then
Data1.Recordset!vorname = vorname
Data1.Recordset!name = nachname
Data1.Recordset!Passwort = nachname
Data1.Recordset!telefon = telefon
Data1.Recordset!maxvac = urlaubtage
Data1.Recordset!Handy = Handy
Data1.Recordset.Update
Data1.Recordset.Close
Else
MsgBox "Mitarbeiter gibt es schon"
End If
End Sub

suche Wasser K?hlung f?r meine Kopf

alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Urlaubverwaltung2.022MacGyver29.06.05 09:43
Re: Urlaubverwaltung1.209MacGyver29.06.05 10:22
Re: Urlaubverwaltung1.254MacGyver29.06.05 11:14
Re: Urlaubverwaltung1.220MacGyver29.06.05 11:41
Re: Urlaubverwaltung1.267BasTler29.06.05 13:13
Re: Urlaubverwaltung1.329MacGyver29.06.05 13:28
Re: Urlaubverwaltung1.184MacGyver29.06.05 14:52
Re: Urlaubverwaltung1.213Zero-G.29.06.05 15:01
Re: Urlaubverwaltung1.161MacGyver29.06.05 15:19
Re: Urlaubverwaltung1.208Zero-G.29.06.05 15:21
Re: Urlaubverwaltung1.218MacGyver29.06.05 15:23
Re: Urlaubverwaltung1.175MacGyver29.06.05 15:26
Re: Urlaubverwaltung1.196MacGyver29.06.05 15:27
Re: Urlaubverwaltung1.275Zero-G.29.06.05 15:29
Re: Urlaubverwaltung1.221MacGyver29.06.05 15:30
Re: Urlaubverwaltung1.219MacGyver30.06.05 09:46
Re: Urlaubverwaltung1.162Zero-G.30.06.05 09:54
Re: Urlaubverwaltung1.190MacGyver30.06.05 10:13
Re: Urlaubverwaltung1.213Zero-G.30.06.05 10:21
Re: Urlaubverwaltung1.263MacGyver30.06.05 10:29
Re: Urlaubverwaltung1.237MacGyver30.06.05 10:51
Re: Urlaubverwaltung1.175MacGyver30.06.05 10:53
Re: Urlaubverwaltung1.201Zero-G.30.06.05 11:05
Re: Urlaubverwaltung1.212MacGyver30.06.05 11:15
Re: Urlaubverwaltung1.167Zero-G.30.06.05 11:37
Re: Urlaubverwaltung1.233MacGyver30.06.05 12:12
Re: Urlaubverwaltung1.258Zero-G.30.06.05 12:54
Re: Urlaubverwaltung1.228MacGyver30.06.05 13:47
Re: Urlaubverwaltung1.160MacGyver30.06.05 14:00
Re: Urlaubverwaltung1.500MacGyver01.07.05 09:04
Re: Urlaubverwaltung1.199MacGyver01.07.05 09:11
Re: Urlaubverwaltung1.261MacGyver01.07.05 09:29
Re: Urlaubverwaltung1.196MacGyver01.07.05 09:38
Re: Urlaubverwaltung1.634BasTler01.07.05 14:31
Re: Urlaubverwaltung1.322Zero-G.02.07.05 10:37

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übersichtSuchen 

nach obenzurück
 
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel