年月日不知道怎样连接起来,解决给分

Question

我读取三个值,想组成例2002-5-1日的形式,存入access种,
sj:=nian+''-''+yue+''-''+ri;我这样写有问题,查资料没解决,
哪位帮我啊,先谢了

Answer 1

sj:=nian + '-' + yue + '-' + ri;
sql= 'select * from tables where datefiled = ' + #39 + sj + #39

Answer 2

如果表中字段是文本类型：FormatDateTime('yyyy-mm-dd',EncodeDate(StrToInt(nian),StrToInt(yue),StrToInt(ri)));
如果是时间日期型：EncodeDate(StrToInt(nian),StrToInt(yue),StrToInt(ri))

Answer 3

var
  sj:string;
  nian,yue,ri:integer;
begin
  sj := inttostr(nian) + '-' + inttostr(yue) + '-'+ inttostr(ri);
end;

Answer 4

返回日期：strtodate(nian+''-''+yue+''-''+ri);
返回字符串：formatdatetime('yyyy-mm-dd',now);//后面的参数是date类型

Answer 5

var
  nian,yue,ri : string;
begin
  nian := '2005'
  yue := '01';
  ri := '05';
  AdoQuery1.Close;
  AdoQuery1.SQL.Text := 'Insert into tablename(Birthday)values('
    + '#' +  nian + '-' + yue + '-' + ri + '#)';
  AdoQuery1.ExecSQL;
end;