Programmierer-Gedanken

Datum zu Kalenderwoche in VB.NET

2012-01-25T09:10:00.000+01:00

Private Function StartDatumDerKW(ByVal Jahr As Integer, ByVal KW As Integer) As DateTime
' > der vierte Januar des gegebenen Jahres wird erst mal benötigt
Dim dteStartTag As New DateTime(Jahr, 1, 4)
' > hole den ersten Wochentag der ersten Woche
Dim intWochentag As Integer = ((Int(dteStartTag.DayOfWeek) + 6) Mod 7) + 1
' > die Kalenderwoche beginnt aber eventuell n Tage vorher
Dim dteErsterTag As DateTime = dteStartTag.AddDays(1 - intWochentag)
Return CDate(dteErsterTag.AddDays((KW - 1) * 7))
End Function

Kalenderwoche in Datum in ORACLE

2012-01-25T09:09:00.002+01:00

SELECT
TRUNC(TO_DATE('2511[Jahr]', 'DDMMYYYY'), 'IYYY') + ([KW] - 1) * 7 AS date_from,
TRUNC(TO_DATE('2511[Jahr]', 'DDMMYYYY'), 'IYYY') + ([KW] - 1) * 7 + 6 AS date_to
FROM sys.dual;

Splash-Screen-Problem in VB.Net

2010-11-02T14:45:00.000+01:00

Problem: Ein Formular das nach einem Splash-Screen gezeigt werden soll und nicht das Hauptformular ist (z.B. Login) erhält nicht den Fokus.

Lösung:
private m_FormLoaded as boolean

Private Sub frmLogin_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
    m_FormLoaded = True

    txtUserID.Text = String.Empty
End Sub

Private Sub txtUserID_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtUserID.GotFocus
'This hack ensures that the user id field receives focus.
'For some reason it appeared to have focus however was not responding until
'user clicked on the Form!

    If m_FormLoaded = False Then
        System.Windows.Forms.SendKeys.Send(ControlChars.Back)

        txtUserID.Text = String.Empty

    End If
End Sub
Quelle:
http://bytes.com/topic/visual-basic-net/answers/638041-application-startup-event-splash-login-screens

Access schneidet Memofeld ab

2010-08-06T16:17:00.000+02:00

Wenn in einer Anfügeabfrage ein Memofeld verwendet wird über das gruppiert wird, so wird der Text auf 255 Zeichen gekürzt!

.NET-Zauberzeug

2010-05-31T14:34:00.000+02:00

System.Diagnostics.Process.Start (BefehlAlsString)
scheint der extrem leistungsfähige Nachfolger des Shell-Befehls zu sein. Egal ob Excel, Word, Bild, Video, HTML-Adresse oder "mailTo"-Anweisung. Es wird immer das Programm gestartet dass unter Windows mit dem Dateityp verbunden ist.

Zauberzeug!

ORACLE und Kaufmanns-Und (&)

2010-04-27T07:38:00.000+02:00

Das habe ich in 256bit.org Blog gefunden:

Montag, 9. Oktober 2006

Oracle SQL und die Bedeutung verschiedener Sonderzeichen

Momentan arbeite ich an einem etwas größerem Data-Warehouse Projekt und verwalte dort die SQL-Scripte. Dabei kommt es schon vor, dass verschiedene Sachen in die Datenbank eingefügt werden müssen. Letztens stolperte ich dabei über das folgende Phänomen:

SQL> insert into temp_data(name, version) values ('A & P', 3);

Enter value for p: blah

old 1: insert into temp_data values ('A & P', 3)

new 1: insert into temp_data values ('A blah', 3)

1 row created.

Was passiert hier? Nun, Zeichenketten, die mit dem Kaufmannsund anfangen, werden von Oracle als Beginn von Variablennamen definiert. So kann man den Inhalt einer Variablen in ein Textfeld einfügen. Eine Variable kann z.B. so definiert werden:

col spoolfile new_value spoolfile

select '/tmp/logfile_'

to_char(sysdate,'yyyymmdd_HHMI')

'.txt' as spoolfile from dual;

spool &spoolfile

Hier wird in die Variable spoolfile der aktuelle Zeitstempel gespeichert und diese Variable nachher genutzt, um die Log-Datei festzulegen.

Bis hier ist es ok. Wie kann man jetzt ein '&' innerhalb eines Insert-Statements verwenden, obiges Statement funktioniert ja nicht? Man kann Oracle beibringen, dass es keine Variablen-Substitution machen soll. Dies geschieht über ein Set-Statement:

-- Ausschalten des Interpretierens von Variablennamen
-- Dadurch kann & innerhalb von SQL-Statements angegeben werden

set define off

Wenn man jetzt also ein Kaufmannsund braucht und Variablensubstitution nicht ausschalten möchte, ist das schwieriger zu erreichen. Die offensichtliche Lösung besteht darin ähnlich wie in den SELECT-Abfragen die Wildcards % und _ mittels ESCAPE-Zusatz zu maskieren. Die Zeichen % stehen für ein Match auf beliebig viele Zeichen, der Unterstrich matcht genau ein beliebiges Zeichen, wenn man jetzt nach dem Zeichen % sucht, muß man dieses dann eben escapen:

SELECT * FROM testtab WHERE textfeld LIKE '%20@%%' ESCAPE '@';

Hiermit würde man alle Felder finden, in denen die Zeichenkette "20%" vorkommt, egal ob am Anfang oder mittendrin oder am Ende.

Das funktioniert nur leider eben nicht für Insert-Statements:

SQL> insert into temp_data(name,version) values ('A @& P' ESCAPE '@', 3);

Enter value for p: blah

old 1: insert into temp_data values ('A & P', 3)

new 1: insert into temp_data values ('A blah', 3)

1 row created.

Wer sich jetzt fragt, warum ich darüber blogge, reicht doch ein einfaches set define off vor dieser Anweisung und evtl. hinterher ein set define on um die Variablensubstitution aus- und wieder einzuschalten, hat noch nicht folgendes probiert:

col version new_value version

select versionsnr into version from versionstabelle where status='aktiv';

SQL> insert into temp_data(name,version) values ('A & P', &version);

Enter value for p: blah

old 1: insert into temp_data values ('A & P', &version)

new 1: insert into temp_data values ('A blah', 3)

1 row created.

Nein, clevererweise hat sich Oracle hier etwas ganz besonderes einfallen lassen. ESCAPE wäre ja auch zu einfach gewesen. Möchte man unbedingt und auf jeden Fall sowohl Variablen, als auch das Kaufmannsund innerhalb eines Statements haben, muß man diese Zeichenkette als 2 Zeichenketten angeben und diese dann noch konkatenieren. Dabei muß das Kaufmannsund das letzte Zeichen des ersten Teils sein. Das obige Statement sähe dann etwa so aus:

col version new_value version

select versionsnr into version from versionstabelle where status='aktiv';

SQL> insert into temp_data(name,version) values ('A &' || ' P', &version);

old 1: insert into temp_data values ('A & P', &version)

new 1: insert into temp_data values ('A & P', 3)

1 row created.

Ja genau, auf sowas muß man erstmal kommen und in den Oracle-Dokus steht dazu nämlich garantiert nichts, zumindest nichts offensichtliches.

Disclaimer: alle obigen SQL-Statements sind aus meiner Erinnerung abgetippt. Sie sind evtl. nicht ganz syntaktisch korrekt, aber ich hab zuhause halt keine Oracle laufen und so muß ich mein Gedächtnis bemühen.

Ein Dank geht an "The Oracle (tm) Users' Co-Operative FAQ"

Pfad des Ausführenden

2010-01-15T16:49:00.002+01:00

In VB.NET:

Dim aPath As String
Dim aName As String

aName = _
System.Reflection.Assembly.GetExecutingAssembly. _
GetModules()(0).FullyQualifiedName

aPath = System.IO.Path.GetDirectoryName(aName)

'
' Or
'
aPath = System.Reflection.Assembly. _
GetExecutingAssembly.Location

Oder ganz einfach unter VB.NET:
My.Application.Info.DirectoryPath

Quelle: http://www.thescarms.com/dotnet/AppPath.aspx

Duck-Tape-Programming und Clean-Code

2009-11-17T09:05:00.009+01:00

Als auf der letzten PRIO der Begriff "Duck-Tape-Programming" fiel konnte ich mir sofort was drunter vorstellen - wer könnte das nicht.

Natürlich wurde diese Art der Programmierung als unprofessionell und schlecht gebrandmarkt.

Natürlich?? Warum eigentlich?

Wenn ich Duck-Tape höre fällt mir als erstes der Rally-Sport ein. Hier vollbringen Mechaniker mit Duck-Tape wahre Wunder. Für den Laien völlig zerstörte Fahrzeuge werden mit Duck-Tape, Draht und Spuke wieder zusammen geflickt, bestehen noch die nächste Prüfung und vielleicht gewinnt das Team sogar noch die Rally.

Arbeiten diese Mechaniker unprofessionell?
Sind sie schlecht?
Nein, schlecht sind sie garantiert nicht. Die besten Mechaniker schaffen es vielleicht mal Rally-Mechaniker zu werden.

Sie arbeiten nur unter sehr ungewöhnlichen Bedingungen. Ihre Arbeit erfolgt unter enormen Zeit- und Erfolgsdruck mit einem Ergebnis das nur eine sehr begrenzte Zeit durchhalten muss.

Den Gegenpart bildet der Mechaniker in der Werkstatt in die der Familienvater sein Auto bringt: Hier erwarten wir dass in Ruhe ein Ergebnis erzielt wird das "ewig" hält. Niemand will eine Reperatur die zwar schnell geht aber nur circa 100 km hält.

Und hier sehe ich den Zusammenhang zu unserer Arbeit: Die meisten Entwickler (wie auch die meisten Kfz-Mechaniker) arbeiten in einer "Werkstatt" in der es auf Zuverlässigkeit, Langlebigkeit und Robustheit ankommt. Und somit sollten sie so sauber und sorgfältig wie nur irgend möglich arbeiten. Das Ziel sollte immer das bestmögliche und bestwartbare Produkt sein.

Immer mal wieder ist aber auch eine Rally angesagt:
Wenn der Vorstand JETZT Zahlen haben will die einmalig für diesen Forecast gebraucht werden (für den nächsten gelten eh wieder andere Regeln) und man somit "Wegwerf"-Software baut oder Software JETZT um eine ganz spezielle Funktion erweitert werden muss für die Präsentation HEUTE NACHMITTAG - dann ist "Dranflicken" und Improvisieren angeagt. Duck-Tape-Programming ist dann angesagt - ob wir es so nennen oder nicht.

Aber wie auch bei jeder Rally sollte man nicht die Vor- und Nachbereitung vergessen! Rally-Teams bereiten sich mit einem ungeheuren Aufwand von Zeit und Geld auf die extremen Phasen vor. Und jede dieser Phasen wird hinterher ausgewertet und fließt in Verbesserungen und Veränderungen des Fahrzeugs ein.
Und auch das sollten wir uns zum Vorbild nehmen: Nach der letzten Wertungsprüfung alle mit Tape angeklatschten Teile abreißen und die Ursache analysieren warum sie abgerissen sind. Und diese Ursachen dann beheben.

Und damit sind wir wieder in unserer Werkstatt und arbeiten nach dem Clean-Code-Ansatz.

Bis zur nächsten Rally!

Clean-Code-Developer

2009-11-10T11:01:00.008+01:00

Manchmal ist man erstaunt, wenn man Dinge die man fühlt schwarz auf weiß irgendwo liest. Ich habe dann dieses "Genau-Das-Ist-ES"-Gefühl.

Und so geht es mir mit Clean-Code-Developer!
http://clean-code-developer.de/

Jetzt will ich nicht nur MCPD werden sondern auch noch Clean-Code-Developer! Mächtig viel Arbeit ;-)

Und hoffentlich kann ich dann bald immer mal wider diesen Stempel verwenden:

Access Wunderreperatur

2009-10-20T08:50:00.003+02:00

Wenn Access sich "komisch" verhält und die DB Code enthält kann es helfen die Datei mit dem Zeilenparameter /decompile zu öffnen, wieder zu schließen, nochmals mit diesem Schalter zu öffenen und dann zu komprimieren und reparieren.

Zum einen wird die Dateigröße merklich schrumpfen und zum anderen sind bisher (fast) alle Merkwürdigkeiten verschwunden.

Word: Winzige Schrift in der Dokumentstruktur

2009-10-19T12:50:00.003+02:00

Wenn auf einmal (?) die Schrift in der Dokumentenstruktur winzig wird hilft meistens folgendes Vorgehen:

unter ansicht auf gliederung wechseln
unter ansicht wieder auf seitenansicht wechseln
voila -- aber bitte nicht fragemn WARUM es klappt

Lösung gefunden bei http://www.office-loesung.de/ftopic24438_0_0_asc.php

Geniale Möglichkeit unter ORACLE fortlaufende Zahlen bzw. Datumsintervalle zu erzeugen

2009-10-01T14:52:00.004+02:00

Es gibt eine geniale Möglichkeit in ORACLE fortlaufende Nummern zu erzeugen. Die nachfolgend Anweisung erzeugt z.B. die Zahlen 1 bis 100:

select level
from dual
connect by level<=100

Und dies kann man nutzen um damit alle Datumswert in einem Bereich zu erzeugen:

select to_date('2009-07-01','yyyy-mm-dd')+level-1 datum
from dual
connect by level<=to_date('2009-08-01','yyyy-mm-dd')-to_date('2009-07-01','yyyy-mm-dd')

Dank an Uwe Simon!

Pass-Through doch als Excel exportieren

2009-02-04T17:03:00.005+01:00

Weder über das Kontextmenü noch über docmd.TransferSpreadsheet ist Access dazu zu bringen eine Pass-Through-Abfrage zu exportieren.

Wenn man jedoch eine lokale Abfrage "zwischenschaltet" dann geht es.

Name der Pass-Through: Pt1
SQL der lokalen Abfrage: Select * from Pt1

Wichtig ist noch, dass man die lokale Abfrage im SQL-Modus erstellt.

MS Access GetOption / SetOption

2009-01-30T12:24:00.002+01:00

Hier (http://www.access-im-unternehmen.de/fileadmin/download/AccessOptionen.pdf) findet man eine Liste von deutsch/englischen Angaben zu den Optionsnamen in MS Access.

Klasse und Danke an den Autor!

Excel ist kleinlich

2008-02-26T13:05:00.002+01:00

Soll von einem anderen Programm (z.B. Access) aus auf Excel zugegriffen werden, so muss jedes Range und Rows mit dem richtigen Worksheet-Objekt adressiert werden.

Sonst sucht sich Excel bei mehreren Instanzen und benannten Bereichen einen aus bzw. liefert einen Fehler mit ... für _Global fehlgeschlagen.

Tasks finden leicht gemacht

2008-02-26T13:02:00.003+01:00

Mit Word-VBA ist das Auffinden von Tasks sehr einfach:

Und hier weniger schön zum rauskopieren:
Sub ZeigeExcel() Dim tskJeder As Task For Each tskJeder In Tasks If InStr(LCase(tskJeder), "excel") Then tskJeder.Visible = True End If NextEnd Sub

Nützliche Funktionen

2008-02-04T13:01:00.001+01:00

Für die Ermittlung von Teilen eines Datums immer wieder gut zu gebrauchen:

EXTRACT (YEAR from sysdate)

Cache leeren:
ALTER SYSTEM FLUSH BUFFER_CACHE;

TOAD-Fehler bei Varchar2

2008-01-25T09:02:00.000+01:00

TOAD-Version: 8.0.0.47

Im TOAD-Debugger tritt ein Fehler (undeclared identifier) auf, wenn eine Varchar2-Variable mehr als 999 Zeichen enthält und man diese direkt oder mit Watches beobachtet.

Der Code läuft völlig problemlos solange man die Variablen nicht beobachtet.

Eine Lösung zu diesem Problem habe ich noch nicht gefunden.

Benutzerdefinierter Fehler beendet Ausführung und gibt dennoch Meldung aus

2008-01-25T09:00:00.000+01:00

Die Anweisung

raise_application_error (-20002, 'do_mcontract2baan - Kein Kundencursor geöffnet!');

erzeugt eine Fehlermeldung. Der Code wird dann nach dieser Meldung fortgesetzt.

Verwendet man

EXCEPTION WHEN others
THEN

so wird zwar die Bearbeitung beendet, aber leider auch die Meldung geschluckt.

Die Lösung:

Es wird ein eigener Fehler im PACKAGE definiert:

Fehler_Als_Meldung EXCEPTION;

und diesem dann die gewünschte Fehlernummer zugewiesen:

PRAGMA EXCEPTION_INIT (Fehler_Als_Meldung, -20002);

und eine Behandlungroutine wie folgt implementiert:

EXCEPTIONWHEN fehler_als_meldung
THEN
raise_application_error (-20003, SQLERRM);

Und schon wird die Ausführung des Code unterbrochen und die Meldung ausgegeben!

ORACLE-Doku im Netze

2008-01-18T11:12:00.001+01:00

http://download-uk.oracle.com/docs/cd/B10501_01/appdev.920/a96624/11_dynam.htm#4376

Native Dynamic SQL

2008-01-18T11:09:00.000+01:00

Genial! Einfach String als SQL ausführen!

"EXECUTE IMEDIATE" und "REF CURSOR".

Details:
Hier
Hier
Hier
Und Hier

n Werte in einer Spalte verknüpft

2008-01-11T13:06:00.001+01:00

Immer wieder möchte man die Werte eines Feldes aus n Datensätzen in einem Feld wiederbekommen.
Hier die Function dafür:

Und hier weniger schön formatiert zum rauskopieren:
CREATE OR REPLACE FUNCTION rowconcat(q in VARCHAR2) RETURN VARCHAR2 IS
ret VARCHAR2(4000);
hold VARCHAR2(4000);
cur sys_refcursor;
BEGIN
OPEN cur FOR q;
LOOP
FETCH cur INTO hold;
EXIT WHEN cur%NOTFOUND;
IF ret IS NULL THEN
ret := hold;
ELSE
ret := ret '; ' hold;
END IF;
END LOOP;
RETURN ret;
END;
/

Imp / Exp - Paramter

2007-12-13T09:38:00.000+01:00

Eine Beschreibung der Parameter:
http://www.datenbank-export.de/index.htm

Initialisierung für Datum das nicht NULL sein darf

2007-10-08T10:59:00.000+02:00

Für Datumsfelder die nicht NULL sein dürfen kann folgendes Datum als leerer Wert verwendet werden:

TO_DATE('-47120101','SYYYYMMDD')

ORACLE, TOAD und "&"

2007-08-17T14:50:00.000+02:00

Wird im Insert in TOAD das Zeichen "&" erkannt, so will Toad dort immer per Formular den einzusetzenden Wert vom User wissen. Vermeidung:
Ersetzen aller "&" durch

'││ Chr(38) ││'

Dies führt zum gewünschten Ergebnis - ohne blöde Nachfrage.

Login (NT) und OSUser (ORACLE)

2007-03-14T13:30:00.000+01:00

ACHTUNG!

Windows ignoriert beim Anmeldename Groß- und Kleinschreibung.
Die ORACLE-Funkton SYS_CONTEXT('USERENV','OS_USER') liefert den Namen aber in Großklein!

Wenn also mit einem Eintrag in einer Tabelle verglichen wird, sollte mit Lower gearbeitet werden:

... lower(login) = lower(SYS_CONTEXT('USERENV','OS_USER'))

Access ODBC-Timeout einstellen

2007-03-13T08:52:00.000+01:00

Die Einstellung kann über das Datenbank-Objekt getroffen werden (für ODBC-Direkt) oder einfacher in der Registry:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\3.5\Engines\ODBC\QueryTimeout

Login des aktuellen Benutzers unter ORACLE ermitteln

2006-11-24T09:29:00.000+01:00

Im klassischen Before-Row-Update-Trigger kann das Login des aktuellen Bearbeiters als Last Change User mit der folgenden Zeile ermittelt werden:

:new.LAST_CHANGE_USER_IST := SYS_CONTEXT('USERENV','OS_USER');

Abfangen von Indexverletzungen mit eigenen Meldungen

2006-01-20T13:48:00.000+01:00

Es gibt in AccessXP ein neues Formularereignis, dass es erlaubt, eine allgemeine Reaktion auf sogenannte Laufzeitfehler (meiner Meinung nach besser: Datenfehler) zu reagieren:
Private Sub Form_Error(DataErr As Integer, Response As Integer)
Select Case DataErr
Case 3022 'Indexverletzung
MsgBox "Eigene Meldung!"
Response = 0
Case Else
'Normale Meldung
End Select

Spezielle ORACLE-Anweisungen

2006-01-16T08:44:00.002+01:00

Gesammeltes zu ORACLE!

Anzeige der erteilten Berechtigungen:

select * from user_tab_privs_made

Quelle: http://www-it.desy.de/systems/services/databases/oracle/at_desy/user_objects.html.de

Hier eine Tabelle der ORACLE-Systemtabellen und -views: http://www.techonthenet.com/oracle/sys_tables/index.php

Datumsanteile:

trunc()

oder

extract (year from Feldname)

Listen in Datenbanken

2005-10-19T08:47:00.000+02:00

Klassischer Fall: Der Benutzersoll in einem Feld Werte erfassen, die aus einer Liste ausgesucht werden.
Sei es, das danach später gesucht werden soll und daher die anzahl der Einträge nicht endlos ausufern soll, sei es, dass nur bestimmte Werte erlaubt sein sollen.

Die klassische Lösung: Die Werte werden in einer eigenen Tabelle hinterle und in der ursprünglichen Tabelle wird die ID gespeichert.

Vorteil: Wird die Screibweise eines Eintrags geändert, ändert sich der Wert für alle - es ist ja die ID hinterlegt.
Nachteil: Jeder Wert, der eventuell verwendet werden soll, muss gepflegt werden - also muss eine Datenpflege geschaffen werden und wenn ein neuer Wert zulässig sein soll, muss dieser erst in der Domain-Tabelle erfast werden. Wurde die Eingbe über eine Liste gewählt, weil nur bestimte, vorgegebene Werte erwünscht sind, ist diese Lösung mt Sicherheit die richtige.

Erfolgt die verwendung der Liste dagegen aus Gründen der Komforsteigerung, so ist die reflexible bzw. selbtfüllende Liste eine bedenkenswerte Alternative: Hierbei wird die Liste mit einer Anweisung im Stile von "Select DiesesFeld from MeineTabelle group by DiesesFeld order by DiesesFeld" gefüllt. Somit stehen immer alle schon erfasten Werte zur Auswahl zur Verfügung.

Was aber nun, wenn über das Feld eine 1:n -Verknüpfung befüllt werden soll? Bei der klassischen, egen Koppelung ist es notwendig, erst alle Einträge zu erzeugen, auf die dann über de Liste referenziert werden soll.

Handelt es sich bei der Eingabe - die ja auch der Schlüssel der n-Seite ist - um einen Wert, der einen realen Bezug hat und an sich schon eindeutig ist, wie z.B. eine Raumnummer, so wäre doch auch ein Verfahren denkbar, dass ich mal die "verzögerte Tabellenbindung"nennen möchte.

Hierbei ist es möglich, die Raumnummer zu erfassen, auch wenn der Raum selber in der Raumtabelle noch nicht angelegt ist. Die Liste füllt sich mit den schon angelegten und den in der Tabele erfasten Raumnummern, also der UNION aus reflexibler Liste und echter Verweisliste.
In einem anderen Bearbeitungsschrit, auf einer anderen Maske, bekommt man dann die Raumnummern angezeigt, die zwar verwendet werden, aber in der Raumtabelle noch nicht angelget sind.

Alternativ kann bei jedem neuen Wert erst mal der Benutzer nach den restlichen Informationen gefragt werden und diese Daten dann in der Raumtabelle gespeichert werden. Der Nachteil dieser Vorgehensweise ist zum einen das Zerreißen der Datenerfassung und zm Anderen besteht die Möglichkeit, dass der Benutzer, der aktuell die Daten erfast, über die abgefragten Zusatzdaten nicht verfügt.

Die Auswahl der "richigen" Vorgehensweise ist von der konkreten Aufgabenstellung abhängig.

Werktage in gegebenen Zeitraum

2005-10-04T12:59:00.000+02:00

Prinzipiell ist dies mit einer Abfrage zu erledigen:
select count(*)
from (
select rownum rnum
from all_objects
where rownum <= mEnd - mStart + 1 )
where to_char(mStart + rnum - 1, 'D' ) not in ( '6', '7' ) ;

Dies funktioniert immer dann, wenn Ende und Start "richtig" herum liegen.
Daher ist das Verpacken in eine kleine Funktione ratsam.

Diese lautet für Oracle:

CREATE OR REPLACE FUNCTION FU_Number_Work_Days(
StartDate date,
EndDate date)
RETURN NUMBER IS
Ret number;
Signum number;
mStart date;
mEnd date;
BEGIN
IF EndDate < StartDate
THEN
mEnd := StartDate;
mStart := EndDate;
Signum := -1;
ELSE
mStart := StartDate;
mEnd := EndDate;
Signum := 1;
END IF;

select count(*) into ret
from (
select rownum rnum
from all_objects
where rownum <= mEnd - mStart + 1 )
where to_char(mStart + rnum - 1, 'D' ) not in ( '6', '7' ) ;

return Ret * Signum;
END FU_Number_Work_Days;
/

Dynamisches Einbinden von ODBC-Tabellen

2005-09-30T11:28:00.000+02:00

Das dynamische Einbinden hat so seine Tücken:
Je nach verwendetem ODBC-Treiber und Art der Änderung (z.B. bei ORACLE nur anderer User auf selber ODBC) kann es sein, dass die Einbindung nicht wirklich erneuert wird.
Erst ein Löschen der eingbundenen Tabellen, komprimieren und reparieren der DB und Neueinbinden führt dann zum Erfolg.
Und das Gemeine: Die Anzeige im Tooltip zeigt die neue Verbindung, die Tabelle "recycled" aber die alte Verbindung!!

MS Access und Outer-Join

2005-09-29T15:05:00.000+02:00

Eine kleine Eigenheit, die ich bis jetzt nur von ORACLE kannte:
Werden zwei Felder in einer Abfrage über einen Outer-Join verbunden und das "Quell"-Feld ist NULL, dann wird diese Zeile im Ergebnis nicht gezeigt! Es werden also nicht alle Zeilen der einen Seite angezeigt und nur die der anderen, die gefunden werden!