procedure TForm1.MClick(Sender: TObject);
var
d:string;
begin
d:= DATETOSTR(M.DATE);
with query1 do
begin
close;
sql.Clear;
sql.Add('select Sk from S');
sql.Add('where 날짜='''+d+'''');
open;
end;
if not query1.Eof then begin
form2.Memo1.Text:=query1.fieldbyname('Sk').asstring;
form2.Edit1.Text:=datetostr(m.date);
form2.ShowModal;
end;
에러내용은 타입이 맞지않다는 군엽....
아마두 날짜필드에서 맞지 않는것 같은디...음 어떻게 해야 하는쥐엽...
> procedure TForm1.MClick(Sender: TObject);
> var
> d:string;
> begin
> d:= DATETOSTR(M.DATE);
> with query1 do
> begin
> close;
> sql.Clear;
> sql.Add('select Sk from S');
> sql.Add('where 날짜='''+d+'''');
> open;
> end;
> if not query1.Eof then begin
> form2.Memo1.Text:=query1.fieldbyname('Sk').asstring;
> form2.Edit1.Text:=datetostr(m.date);
> form2.ShowModal;
> end;
>
> 에러내용은 타입이 맞지않다는 군엽....
>
> 아마두 날짜필드에서 맞지 않는것 같은디...음 어떻게 해야 하는쥐엽...
>
안녕하세요~ 구창민입니다.
'SK'필드가 스트링형이 맞나요? 한번 살펴보세요.
혹시 모르니 Sql문에서 띄어쓰기를 아래처럼 바꾸어서 한번 해 보시구요~
그럼~ 즐거운 프로그래밍 하시길~
procedure TForm1.MClick(Sender: TObject);
var
d:string;
begin
d:= DateToStr(M.DATE);
with Query1 do
begin
Close;
Sql.Clear;
Sql.Add('select Sk from S ');
Sql.Add('where 날짜=''' + d + '''');
Open;
end;
if not Query1.Eof then
begin
Form2.Memo1.Text:= Query1.FieldByName('Sk').asstring;
Form2.Edit1.Text:= d;
Form2.ShowModal;
...