如何通过ado来写入access数据库，谢谢

Question

form1.ADOQuery1.Close;
         form1.ADOQuery1.SQL.Clear ;
         form1.ADOQuery1.SQL.Add('insert into  JLBH(DATE,TIME,NUM) values (:date,:time,:num) ')  ;
         ADOQuery1.Parameters[0].Value:=strdate;
         ADOQuery1.Parameters[1].Value:=strtime;
         ADOQuery1.Parameters[2].Value:=s;
date是日期数据，time是时间在access数据库里面是统一用一个数据类型的日期/时间。s是我要记录的数字。
运行的时候老是告诉我insert语句出错！
请大家给我解释一下，如何作那？

Answer 1

strtoint(formatdatetime('yyyymmddhhss',datetimepicker1.DateTime))

Answer 2

不好意思看错了！
form1.ADOQuery1.Close;
form1.ADOQuery1.SQL.Clear ;
form1.ADOQuery1.SQL.Add('insert into  JLBH(DATE,TIME,NUM) values (:date,:time,:num) ')  ;
form1.ADOQuery1.Parameters[0].Value:=strdate;
form1.ADOQuery1.Parameters[1].Value:=strtime;
form1.ADOQuery1.Parameters[2].Value:=s;
form1.ADOQuery1.ExecSQL;

Answer 3

form1.ADOQuery1.Parameters[0].Value:=formatdatetime('yyyymmddhhss',datetimepicker1.DateTime)

Answer 4

form1.ADOQuery1.Close;
      adoquery1.SQL.Clear ;
      adoquery1.SQL.Add('insert into  JLBH(DATE,TIME,NUM) values(:date,:time,:num)');
       adoquery1.Parameters[0].Value:=formatdatetime('yyyymmddhhss',strdate);
      adoquery1.Parameters[1].Value:=formatdatetime('hh:mm AM/PM',Now + 0.125);
      ADOQuery1.Parameters[2].Value:=s;
      adoquery1.ExecSQL;但是老是告诉我insert语句有错误。在什么地方错误呢？

Answer 5

我就不明白了你为什么总省略form1

Answer 6

bhjl （表）
date 日期/时间
time 日期/时间
id   自动编号
num  数字
我是用access作的数据库。
form1.ADOQuery1.Close;
     form1. adoquery1.SQL.Clear ;
      form1.adoquery1.SQL.Add('insert into  JLBH(DATE,TIME,NUM) values(:date,:time,:num)');
       form1.adoquery1.Parameters[0].Value:=formatdatetime('yyyymmddhhss',strdate);
      form1.adoquery1.Parameters[1].Value:=formatdatetime('hh:mm AM/PM',Now + 0.125);
      form1.ADOQuery1.Parameters[2].Value:=s;
      form1.adoquery1.ExecSQL;

Answer 7

数据库不能用date、time给字段命名，改成myDate、myTime也可以这样写：
  with form1.adoquery1 do
    begin
      close;
      sql.Clear;
      sql.Add('insert into  table1(myDate、myTime,NUM) values('''+formatdatetime('yyyy/mm/dd',DateTimePicker1.date)+''','''+formatdatetime('hh:ss',datetimepicker2.Time)+''','''+trim(edit1.Text)+''')');
      ExecSQL
    end;