Ik was van plan nu eens een keer NIET naar Got
te vluchten op het moment dat het niet lukte ..
maar na 26 uur naar het zelfde beeld te hebben
gekeken ben ik het zat en ben ik weer hier
zit dus zo volgende code:
Bovenstaand gedeelte (bericht weg schrijven) werkt als een trein,
en onderstaand gedeelte rekent eerst even voor mij uit
welke datums er in de tabel moeten komen en maakt vervolgens
een array met sql-query's en die zouden dan in de laatste for lus weg geschreven
moeten worden maar nee hoor, ik kijk al voor de 2e dag naar de zelfde
fout melding..
ik weet dat
"Microsoft JET Database Engine error '80040e0c'
Command text was not set for the command object.
/intrascripts/lichtkrant/addtodb.asp, line 103"
inhoud dat ik gewoon een domme fout heb gemaakt,
maar ik kom er echt niet meer uit dus vandaag dat ik
hier mijn heil kom zoeken ..
te vluchten op het moment dat het niet lukte ..
maar na 26 uur naar het zelfde beeld te hebben
gekeken ben ik het zat en ben ik weer hier
zit dus zo volgende code:
ASP:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
| <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Option Explicit %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> <!-- #INCLUDE FILE="connection.asp" --> <!-- #INCLUDE FILE="..\..\..\i&ascripts\adovbs.inc" --> <% server.scripttimeout=15 Response.Buffer = true OpenConnection Dim cmdUpdate, strSQL, objParam, RecSet Dim AutoNr, strSqlList(120) Dim Schedule, Datum, DatumDiff, x, t Set cmdUpdate = Server.CreateObject("ADODB.Command") strSQL = "INSERT INTO Bericht (Titel, TitelColor, TitelBgr, BanTop, BanTopPos, BanBot, BanBotPos, Msg, MsgColor, MsgBgr, MsgPos, MsgFont, Img, ImgPos) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)" cmdUpdate.ActiveConnection = strConnect cmdUpdate.CommandText = strSQL cmdUpdate.CommandType = adCmdText Set objParam = cmdUpdate.CreateParameter("@Title", adVarChar, adParamInput, 80, Request.Form("Title")) cmdUpdate.Parameters.Append objParam Set objParam = cmdUpdate.CreateParameter("@TitleColor", adVarChar, adParamInput, 7, Request.Form("TitleColor")) cmdUpdate.Parameters.Append objParam Set objParam = cmdUpdate.CreateParameter("@TitleBgr", adVarChar, adParamInput, 7, Request.Form("TitleBgr")) cmdUpdate.Parameters.Append objParam Set objParam = cmdUpdate.CreateParameter("@BanTop", adVarChar, adParamInput, 100, Request.Form("BanTop")) cmdUpdate.Parameters.Append objParam Set objParam = cmdUpdate.CreateParameter("@BanTopPos", adVarChar, adParamInput, 7, Request.Form("BanTopPos")) cmdUpdate.Parameters.Append objParam Set objParam = cmdUpdate.CreateParameter("@BanBot", adVarChar, adParamInput, 100, Request.Form("BanBot")) cmdUpdate.Parameters.Append objParam Set objParam = cmdUpdate.CreateParameter("@BanBotPos", adVarChar, adParamInput, 7, Request.Form("BanBotPos")) cmdUpdate.Parameters.Append objParam Set objParam = cmdUpdate.CreateParameter("@Msg", adLongVarChar, adParamInput, 8000, Request.Form("Msg")) cmdUpdate.Parameters.Append objParam Set objParam = cmdUpdate.CreateParameter("@MsgColor", adVarChar, adParamInput, 7, Request.Form("MsgColor")) cmdUpdate.Parameters.Append objParam Set objParam = cmdUpdate.CreateParameter("@MsgBgr", adVarChar, adParamInput, 7, Request.Form("MsgBgr")) cmdUpdate.Parameters.Append objParam Set objParam = cmdUpdate.CreateParameter("@MsgPos", adVarChar, adParamInput, 7, Request.Form("MsgPos")) cmdUpdate.Parameters.Append objParam Set objParam = cmdUpdate.CreateParameter("@MsgFont", adVarChar, adParamInput, 100, Request.Form("MsgFont")) cmdUpdate.Parameters.Append objParam Set objParam = cmdUpdate.CreateParameter("@Img", adVarChar, adParamInput, 100, Request.Form("Img")) cmdUpdate.Parameters.Append objParam Set objParam = cmdUpdate.CreateParameter("@ImgPos", adVarChar, adParamInput, 7, Request.Form("ImgPos")) cmdUpdate.Parameters.Append objParam Response.Write strSQL cmdUpdate.Execute 'tot hier werkt het als een trein -------< strSQL = "SELECT @@IDENTITY" cmdUpdate.CommandText = strSQL cmdUpdate.CommandType = adCmdText Set RecSet = cmdUpdate.Execute AutoNr = RecSet(0) ' ^^ ook dit is getest en werkt goed ^^ ' maar dan het volgende .. ik heb getest wat de uitkomst van ' de queries waren en die zijn goed ' maar zodra ik .execute doe gaat het fout! If( Request.Form("schedule") = "Once" ) Then strSqlList(0)="INSERT INTO datum (bericht_id, bericht_datum) VALUES (" & AutoNr & "," & Datum & ")" Else t = 1 Datum = Request.Form("StartDate") DatumDiff = DateDiff("d",Datum,Request.Form("EndDate")) If( DatumDiff > 0) Then While( DatumDiff >= 0) If( Request.Form("schedule") = "Weekly" ) Then for x=1 to Request.Form("WeekDay").count If( Weekday(Datum) = CInt(Request.Form("WeekDay")(x)) ) Then strSqlList(t)="INSERT INTO datum (bericht_id, bericht_datum) VALUES (" & AutoNr & "," & Datum & ")" t = t + 1 End If next ElseIf( Request.Form("schedule") = "Daily" ) Then strSqlList(t)="INSERT INTO datum (bericht_id, bericht_datum) VALUES (" & AutoNr & "," & Datum & ")" End If t = t + 1 Datum = DateAdd("d", 1, Datum) DatumDiff = DateDiff("d",Datum,Request.Form("EndDate")) Wend Else Response.Write "De einddatum ligt VOOR de begindatum" End If End If For t=0 to UBound(strSQLList) cmdUpdate.CommandText = strSQLList(t) cmdUpdate.CommandType = adCmdText Response.Write strSQLList(t) cmdUpdate.Execute Next Set cmdUpdate = Nothing Set RecSet = Nothing CloseConnection %> |
Bovenstaand gedeelte (bericht weg schrijven) werkt als een trein,
en onderstaand gedeelte rekent eerst even voor mij uit
welke datums er in de tabel moeten komen en maakt vervolgens
een array met sql-query's en die zouden dan in de laatste for lus weg geschreven
moeten worden maar nee hoor, ik kijk al voor de 2e dag naar de zelfde
fout melding..
ik weet dat
"Microsoft JET Database Engine error '80040e0c'
Command text was not set for the command object.
/intrascripts/lichtkrant/addtodb.asp, line 103"
inhoud dat ik gewoon een domme fout heb gemaakt,
maar ik kom er echt niet meer uit dus vandaag dat ik
hier mijn heil kom zoeken ..
[ Voor 11% gewijzigd door intrix op 13-02-2004 09:33 ]
welcome my son, welcome to the machine