=?iso-8859-2?q?problem_z_dat=B1_w_paradoxie?=
Zbycho - 23-01-2007 00:01
=?iso-8859-2?q?problem_z_dat=B1_w_paradoxie?=
Witam
mam taki problemik i nie mam juz pomysła co może być źle
pisze w paradoxie bazkę - nie działa mi ten insert:
DMMain.QueryRoboczy.Close;
DMMain.QueryRoboczy.SQL.Clear;
DMMain.QueryRoboczy.SQL.Add('Insert into uslugi(idklient,data)
values(:idklienta,:data)');
DMMain.QueryRoboczy.UnPrepare;
DMMain.QueryRoboczy.ParamByName('idklienta').asint eger:=
DMMain.CDSUslKlienci.FieldByName('id').AsInteger;
DMMain.QueryRoboczy.ParamByName('data').AsDate:=St rToDate(FormatDateTime('yyyy-MM-dd',DateTimePicker1.Date));
DMMain.QueryRoboczy.Prepare;
DMMain.QueryRoboczy.ExecSQL;
nie mam pojecia co jest nie tak - w kółko wyskakuje EDBEngineError
with message "Type mismatch in expression"
pomóżcie bo zaraz komp poleci przez okno :D
M. - 24-01-2007 00:01
Użytkownik Zbycho napisał:
> DMMain.QueryRoboczy.ParamByName('data').AsDate:=St rToDate(FormatDateTime('yyyy-MM-dd',DateTimePicker1.Date));
>
a probowales :
DMMain.QueryRoboczy.ParamByName('data').AsDate:=Da teTimePicker1.Date;
pozdrawiam M.
--
Motto e-poczy :
"Najlepsze pojecie nieskonczonosci daje ludzka glupota"
Zbycho - 24-01-2007 00:01
=?iso-8859-2?q?Re:_problem_z_dat=B1_w_paradoxie?=
M. napisał(a):
> Użytkownik Zbycho napisał:
>
> > DMMain.QueryRoboczy.ParamByName('data').AsDate:=St rToDate(FormatDateTime('yyyy-MM-dd',DateTimePicker1.Date));
> >
>
> a probowales :
> DMMain.QueryRoboczy.ParamByName('data').AsDate:=Da teTimePicker1.Date;
jasne - próbowałem - nie poszło więc wykombinowałem z
FormatDateTime
zarafiq@poczta.onet.pl - 24-01-2007 00:01
> Witam
> mam taki problemik i nie mam juz pomysła co może być źle
> pisze w paradoxie bazkę - nie działa mi ten insert:
>
> DMMain.QueryRoboczy.Close;
> * *DMMain.QueryRoboczy.SQL.Clear;
> * *DMMain.QueryRoboczy.SQL.Add('Insert into uslugi(idklient,data)
> values(:idklienta,:data)');
> * *DMMain.QueryRoboczy.UnPrepare;
> * *DMMain.QueryRoboczy.ParamByName('idklienta').asin teger:=
> DMMain.CDSUslKlienci.FieldByName('id').AsInteger;
>
> DMMain.QueryRoboczy.ParamByName('data').AsDate:=St rToDate(FormatDateTime
('yyyy-MM-dd',DateTimePicker1.Date));
> * *DMMain.QueryRoboczy.Prepare;
> * *DMMain.QueryRoboczy.ExecSQL;
>
> nie mam pojecia co jest nie tak - w kółko wyskakuje EDBEngineError
> with message "Type mismatch in expression"
> pomóżcie bo zaraz komp poleci przez okno :D
>
Niepotrzebnie kombinujesz z prepare i unprepare. Na próbę podstaw
do wartości parametrów stałe - może błąd jest w innym miejscu niż Ci się
wydaje.
DMMain.QueryRoboczy.Close;
DMMain.QueryRoboczy.SQL.Clear;
DMMain.QueryRoboczy.SQL.Add(
'Insert into uslugi(idklient,data) values(:idklienta,:data)');
DMMain.QueryRoboczy.ParamByName('idklienta').asint eger := 1;
DMMain.QueryRoboczy.ParamByName('data').AsDate := Now();
DMMain.QueryRoboczy.ExecSQL;
Pokaż pełną definicję tabeli.
Dlaczego w Paradoxie - czy Firebirdowi czegoś brakuje?
Pozdrawiam
zarafiq
--
Wysłano z serwisu OnetNiusy: http://niusy.onet.pl
Zbycho - 24-01-2007 00:02
=?iso-8859-2?q?Re:_problem_z_dat=B1_w_paradoxie?=
> Niepotrzebnie kombinujesz z prepare i unprepare. Na próbę podstaw
> do wartości parametrów stałe - może błąd jest w innym miejscuniż Ci się
> wydaje.
>
> DMMain.QueryRoboczy.Close;
> DMMain.QueryRoboczy.SQL.Clear;
> DMMain.QueryRoboczy.SQL.Add(
> 'Insert into uslugi(idklient,data) values(:idklienta,:data)');
> DMMain.QueryRoboczy.ParamByName('idklienta').asint eger := 1;
> DMMain.QueryRoboczy.ParamByName('data').AsDate := Now();
> DMMain.QueryRoboczy.ExecSQL;
hmmm zrobiłem tak jak napisałeś no i ciągle "Type mismatch in
expression"
moze faktycznie błąd jest gdzie indziej - no tylko nie mam pojęcia w
takim razie gdzie
> Pokaż pełną definicję tabeli.
Field Name Type Size key
1 Id + +
2 Idklient S
3 Data D
> Dlaczego w Paradoxie - czy Firebirdowi czegoś brakuje?
klient nasz pan - no i właśnie musi być w paradoxie
Zbycho - 24-01-2007 00:02
=?iso-8859-2?q?Re:_problem_z_dat=B1_w_paradoxie?=
jeszcze coś ciekawego zauważyłem
coś takiego mi poszło:
DMMain.QueryRoboczy.SQL.Add('Insert into Uslugi(Idklient)
values('+IntTOStr(21)+')');
ale juz coś tkaiego nie
DMMain.QueryRoboczy.SQL.Add('Insert into Uslugi(Idklient)
values(:idklienta)');
DMMain.QueryRoboczy.ParamByName('idklienta').AsInt eger:=21;
wyskakuje "Type mismatch in expression"
zarafiq@poczta.onet.pl - 25-01-2007 00:01
> jeszcze coś ciekawego zauważyłem
> coś takiego mi poszło:
> DMMain.QueryRoboczy.SQL.Add('Insert into Uslugi(Idklient)
> values('+IntTOStr(21)+')');
>
> ale juz coś tkaiego nie
> DMMain.QueryRoboczy.SQL.Add('Insert into Uslugi(Idklient)
> values(:idklienta)');
> DMMain.QueryRoboczy.ParamByName('idklienta').AsInt eger:=21;
> wyskakuje "Type mismatch in expression"
>
A to?
DMMain.QueryRoboczy.ParamCheck := True;
DMMain.QueryRoboczy.SQL.Add('Insert into Uslugi(Idklient)
values(:idklienta)');
DMMain.QueryRoboczy.ParamByName('idklienta').AsInt eger:=21;
Pozdrawiam,
zarafiq
--
Wysłano z serwisu OnetNiusy: http://niusy.onet.pl
Zbycho - 25-01-2007 00:01
=?iso-8859-2?q?Re:_problem_z_dat=B1_w_paradoxie?=
>A to?
>
> DMMain.QueryRoboczy.ParamCheck := True;
> DMMain.QueryRoboczy.SQL.Add('Insert into Uslugi(Idklient)
> values(:idklienta)');
> DMMain.QueryRoboczy.ParamByName('idklienta').AsInt eger:=21;
no zrobiłem z tym ParamCheck := True
cały czas wywala błąd - kurde
no nie mam juz siły z tym walczyć - co moze być nie tak jeszcze?
zarafiq@poczta.onet.pl - 26-01-2007 00:03
> no zrobiłem z tym ParamCheck := True
> cały czas wywala błąd - kurde
> no nie mam juz siły z tym walczyć - co moze być nie tak jeszcze?
Wyizoluj problem, czy takie coś Ci działa? Jak nie to masz coś nie tak z BDE.
with TTable.Create(nil) do
try
TableName := 'TEST';
TableType := ttParadox;
FieldDefs.Add('identyfikator', ftAutoInc);
FieldDefs.Add('jakis_klucz', ftInteger, 0, True);
FieldDefs.Add('jakas_data', ftDate, 0, True);
CreateTable;
finally
Free;
end;
with TQuery.Create(nil) do
try
SQL.Text := 'insert into TEST (jakis_klucz, jakas_data) values (:v1, :v2)';
ParamByName('v1').AsInteger := 1;
ParamByName('v2').AsDate := Now;
ExecSQL;
ParamByName('v1').AsInteger := 18;
ParamByName('v2').AsDate := EncodeDate(2004, 5, 1);
ExecSQL;
finally
Free;
end;
Pozdrawiam,
zarafiq
--
Wysłano z serwisu OnetNiusy: http://niusy.onet.pl
Zbycho - 28-01-2007 00:00
=?iso-8859-2?q?Re:_problem_z_dat=B1_w_paradoxie?=
On 25 Sty, 10:44, zara...@poczta.onet.pl wrote:
> > no zrobiłem z tym ParamCheck := True
> > cały czas wywala błąd - kurde
> > no nie mam juz siły z tym walczyć - co moze być nie tak jeszcze?
Wyizoluj problem, czy takie coś Ci działa? Jak nie to masz coś nie
tak z BDE.
no poszło mi to wszystko - nic sie nie wywaliło wiec z BDE wychodzi
na to ze wszystko w porządku
tylko teraz co jest nie tak ehhh
zanotowane.pldoc.pisz.plpdf.pisz.pleffulla.pev.pl
|
Wydajność baz danych w zależności od poziomu izolacji ANSI/ISO
Czy zna (obsługuje) ktoś program Iso Draw ?
MYSQL - kodowanie w ISO-PL
strona plus baza w iso do utf-8
Kodowanie: z iso na utf
mysql i mysql-front, problem
String line; if (line=="cos"){...}....problem
Problem z wartościami w MySQL :( [ MySQL and ASP and VBScript ]
[PGSQL] czy ktos mial problemy z initdb pgsql 8.1 ?
[MySQL] Problem z zapisem danych w bazie danych
zanotowane.pldoc.pisz.plpdf.pisz.plets2.xlx.pl
Cytat
Decede mihi sole - nie zasłaniaj mi słonca.
Gdy kogoś kochasz, jesteś jak stworzyciel świata - na cokolwiek spojrzysz, nabiera to kształtu, wypełnia się barwą, światłem. Powietrze przytula się do ciebie, choćby był mróz, a ty masz w sobie tyle radości, że musisz ją rozdawać wokoło, bo się w tobie nie mieści
Hoc fac - tak czyń.
A tergo - od tyłu; z tyłu.
I czarne włosy posiwieją. Safona |
|
