vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevAniGif - als kostenlose Vollversion auf unserer vb@rchiv CD Vol.5  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

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

Allgemeine Diskussionen
Re: Programmänderung 
Autor: _Alf_
Datum: 13.11.08 13:50

Hallo nochmal

Selbst im alten Prog. funktioniert die anfrage nicht.

Das ist die alte SQL abfrage.
es existieren die Tabellen

Shifts
ComboTexte
ShiftNames


sSql = ""
sSql = sSql & " SELECT Shifts.*, ComboTexte.Text, ComboTexte.Nummer, ShiftNames.ShiftName, ComboTexte2.Text as C2Text"
sSql = sSql & " FROM ((Shifts LEFT OUTER JOIN ComboTexte ON Shifts.KennungID = ComboTexte.ID) LEFT OUTER JOIN ShiftNames ON Shifts.ShiftID = ShiftNames.ID)"
sSql = sSql & " LEFT OUTER JOIN ComboTexte2 ON Shifts.Combo2ID = ComboTexte2.ID"

If tDate = 0 Then
sSql = sSql & " WHERE Shifts.Date >= " & ToSql(ToDate(DateAdd("d", -1, Now)))
ElseIf cmbSchicht.ListIndex > 0 Then
sSql = sSql & " WHERE Shifts.Date >= " & ToSql(DateSerial(Year(tDate), Month(tDate), Day(tDate)))
tDate = DateAdd("d", 1, tDate)
sSql = sSql & " AND Shifts.Date < " & ToSql(DateSerial(Year(tDate), Month(tDate), Day(tDate)))
sSql = sSql & " AND Shifts.ShiftID = " & ToSql(cmbSchicht.ItemData(cmbSchicht.ListIndex))
Else
sSql = sSql & " WHERE Shifts.Date >= " & ToSql(DateSerial(Year(tDate), Month(tDate), Day(tDate)))
tDate = DateAdd("d", 1, tDate)
sSql = sSql & " AND Shifts.Date < " & ToSql(DateSerial(Year(tDate), Month(tDate), Day(tDate)))
End If
sSql = sSql & " ORDER BY Shifts.BereichNr, Date"
Set rsShift = OpenRS(sSql)

Neue Tabellennamen

2Shifts
2ComboTexte
2ShiftNames

Ich habe im Code einfach eine 2 vor den Namen gestellt
das klappt aber so nicht.
Was kann da die Ursache sein, darf man da nicht überall ändern ?

Gruß
Alf
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
Programmänderung1.171_Alf_13.11.08 11:58
Re: Programmänderung692wb-soft13.11.08 12:22
Re: Programmänderung719_Alf_13.11.08 12:33
Re: Programmänderung743wb-soft13.11.08 12:50
Re: Programmänderung728_Alf_13.11.08 12:54
Re: Programmänderung766_Alf_13.11.08 13:50
Re: Programmänderung717wb-soft13.11.08 17:03
Re: Programmänderung661_Alf_13.11.08 18:09

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-2024 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