[asp/vb] typemismatch

[spider]

Op de een of andere manier wilt hij niet werken, iemand een idee waar ik dom bezig ben

Zegt
Error Type:
Provider (0x80020005)
Type mismatch.
/_mdesk/_password/postweek.asp, line 15

iemand een idee, want ik krijg kom er niet uit.
eventueel, voledige code met database en form

<%
Dim opendata
Dim Constring
Dim rs
Dim strSQL
Set opendata = Server.CreateObject("ADODB.Connection")
Constring = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("urbackhand.mdb")
opendata.Open Constring
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT Werk.Datum, Werk.Werknemer, Werk.inlogname, Werk.Van, Werk.Tot, Werk.Uren, Werk.Overuren, Werk.Klant, Werk.Werkzaamheden, Werk.Klantnr, Werk.Projectnr, Werk.Callnr, Werk.Toelichting, Werk.Facturabel, Werk.Weeknr FROM Werk;"
rs.LockType = 4
rs.CursorType = 1
rs.Open strSQL, Constring
rs.AddNew
rs.Fields("Datum") = Request.Form("invdate")
rs.Fields("Werknemer") = Request.Form("invnaam")
rs.Fields("Van") = Request.Form("invvan")
rs.Fields("Tot") = Request.Form("invtot")
rs.Fields("Uren") = Request.Form("invuren")
rs.Fields("Overuren") = Request.Form("invoveruren")
rs.Fields("Klant") = Request.Form("invklant")
rs.Fields("Klantnr") = Request.Form("invklantnr")
rs.Fields("Projectnr") = Request.Form("invprojectnr")
rs.Fields("Callnr") = Request.Form("invcallnr")
rs.Fields("Werkzaamheden") = Request.Form("invwerkzaamheden")
rs.Update
rs.Close
Set rs = Nothing
Set opendata = Nothing
%>

[Verwijderd]

Als hier de fout zit

rs.Fields("Datum") = Request.Form("invdate")

is het vast dat het invoerveld geen datum bevat of in een verkeerde format... Mits je deze natuurlijk als date hebt gedefinieerd in de database.

[Blizard]

Inderdaad ff testen of alle velden wel correct zijn ingevult (= niet leeg zijn !) zou je probleem kunnen verhelpen. Is eenvoudig te schrijven hoor, als je daarbij hulp nodig hebt post je het maar eventjes.

[D2k]

wat is de regel enz enz
wat heb je al geprobeerd

[spider]

Ik heb effe een remark er voor gezet, nu gaat hij verder. enkel hij update helemaal niks. Ik btw in alle velden, de property's namen op text gezet en geen verplichte velden.
Dus ook al voer ik 1 veld in, hij moet een nieuwe record maken.

[Verwijderd]

Je zou het kunnen proberen met een SQL-statement... Misschien dat dat wel werkt

[spider]

Ik heb me er een tijd op lopen blindstaren, maar gevonden.
rs.LockType = 3 ipv 4 en werkzaamheden, bevat 50 tekens en dat moesten er 100 zijn. tevens was de Date property verkeerd ingetypt. Had 30-06-02 ipv 03-06-2002 zijn.
Gelijk maar een tweede vraag

kan ik een de datum van vandaag als standaard value neerzetten in een input box. Zo iets als
<input type=text value=date()> Werkt natuurlijk niet maar als voorbeeld

[Crazy D]

Op zondag 30 juni 2002 21:59 schreef spider het volgende:
<input type=text value=date()> Werkt natuurlijk niet maar als voorbeeld

Njah probeer het eens
Response.Write "<input type=""text"" value=""" & Date() & """>"
En dan kun je m met formatedatetime nog leuk formatteren ook

[spider]

Response.Write "<input type=""text"" value=""" & Date() & """>"

Dit is in ASP, maar als nu je form in html staat, wat dan

[-SaveMe-]

Op zondag 30 juni 2002 22:29 schreef spider het volgende:
Response.Write "<input type=""text"" value=""" & Date() & """>"

Dit is in ASP, maar als nu je form in html staat, wat dan

Pagina met de form opslaan als .asp en dan zoiets:
<input type="text" value="<%=Date()%>">

Of bedoel je dat niet ?

[spider]

Quick but dirty, thanks