mam taka procedurę:
Procedure GenBase();
var i,v,s:string;
begin
if not login then
begin
Write('<form action="cgi1.exe" method="Get">Login<input type="text" name="user"/><br/>Hasło<input type="password" name="pass"/><br/><input type="submit" value="LogIn"/></form>');
exit;
end;
while arg.Count>0 do
begin
i:=arg.Names[0];
v:=arg.ValueFromIndex[0];
s:='INSERT INTO QUESTIONS (TEXT, ID) VALUES("'+v+ '","'+i+'")';
dm.ds.Open();
writeln ('Zapytanie: '+s+'<br>Count: ');
writeln (arg.Count);
write ('<br>');
dm.dc.ExecuteDirect(s);
dm.ds.Next();
arg.Delete(0);
end;
dm.ds.Close();
end;
bazę danych w której mam m.i tabelę
CREATE TABLE QUESTIONS
(
TEXT VARCHAR(255),
ANS VARCHAR(255),
ID VARCHAR(1)
);
Po uzupełnieniu odp. pol do generowania formularza zapytania są dobrze realizowane ponieważ wyświetla mi :
Zapytanie: INSERT INTO QUESTIONS (TEXT, ID) VALUES("Pytanie+1","1")
Count: 3
Zapytanie: INSERT INTO QUESTIONS (TEXT, ID) VALUES("Pytanie+2","2")
Count: 2
Zapytanie: INSERT INTO QUESTIONS (TEXT, ID) VALUES("Pytanie+3","3")
Count: 1
na stronie, ale nie zapisuja sie dane do bazy to. Pytanie czemu ?