| |
![zurück](../images/b_zurueck.gif)
Allgemeine DiskussionenRe: Programmänderung | | ![](../images/trans.gif) | 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 | ![](../images/trans.gif) |
![](../images/48x48/info.gif) | 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 |
![nach oben](../images/b_top.gif) ![zurück](../images/b_zurueck.gif) |
|
sevISDN 1.0 ![sevISDN f?r VB/VBA und VB.NET](../images/werbung/sevisdn_100x116.gif)
Überwachung aller eingehender Anrufe!
Die DLL erkennt alle über die CAPI-Schnittstelle eingehenden Anrufe und teilt Ihnen sogar mit, aus welchem Ortsbereich der Anruf stammt. Weitere Highlights: Online-Rufident, Erkennung der Anrufbehandlung u.v.m. Weitere InfosTipp des Monats Neu! sevPopUp 2.0 ![sevPopUp für VB/VBA und VB.NET](../images/werbung/sevpopup_100x100.jpg)
Dynamische Kontextmenüs!
Erstellen Sie mit nur wenigen Zeilen Code Kontextmenüs dynamisch zur Laufzeit. Vordefinierte Styles (XP, Office, OfficeXP, Vista oder Windows 8) erleichtern die Anpassung an die eigenen Anwendung... Weitere Infos
|
|
|
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
|
|