SQL Update met lege datum string

[tuning4you]

Momenteel ondervind ik problemen met het invoegen van een databaserecord via VB6.
De datum werd namelijk niet opgegeven waardoor er niets van gegevens in de string staan. Hierdoor kan er in het veld van de database die in dateformaat staat niets weggeschreven worden.

Hoe kan ik dit best oplossen.

 

[That Guy]

eerst alle velden valideren
(aangenomen dat je velden gebruikt voor de invoer)

zoiets:

if len(textDatum.text) < 1 then
[COLOR="SeaGreen"]'Dit kan, dan stopt het script gelijk[/COLOR]
msgbox "De datum is niet ingevuld!
exit sub/function
[COLOR="seagreen"]'Of zoiets:[/COLOR]
textDatum.text = "01-01-2001"
end if

zo niet, dan kan je alsnog de "len" functie gebruiken.

 

[tuning4you]

Sorry dat is geen oplossing. Het is een routine dat loopt en de gegevens uit bestanden leest, dus dit mag niet vastlopen.

Heb dit als volgt opgelost:

If sGeboorteDatum = "" Then
sGeboorteDatum = "Null"
Else
sGeboorteDatum = "'" & CDate(sGeboorteDatum) & "'"
End If

En in mijn INSERT SQL plaats ik dan gewoon sGeboorteDatum. Indien dit een string zal worden wordt dit '05-11-2007' indien dit leeg is wordt dit Null zonder dus de '. Dit lukte.