请教：access通过ado数据更新

Question

表table1 (ID,year,month,RecordDate,MoneyNum,Notebook,RecordType)
类型分为为数字，数字，数字，日期，货币，文本，文本。代码如下：
procedure TForm1.Button1Click(Sender: TObject);
var
  strSQL :string;
begin
  strSQL := 'Insert into table1 (ID,year,month,RecordDate,MoneyNum,Notebook,RecordType)';
  strSQL := Format('%s values(' +
                 '%d,' +
                 '%d,' +
                 '%d,' +
                 '''%s'',' +
                 '''%f'',' +
                 '''%s'',' +
                 '''%s''' +
                 ')',
                 [strsql,
                  1,
                  yearof(DateTimePicker1.datetime),
                  monthof(DateTimePicker1.datetime),
                  formatdatetime('yyyy-mm-dd',DateTimePicker1.datetime),
                  strtofloat(edit1.Text),
                  trim(edit2.Text),
                  trim(edit3.Text)
                  ]);
  ADOConn.Execute(strSQL);
end;当ADOConn使用odbc数据源micosoft ole db provider for odbc drivers 则运行正确。
而使用microsoft jet 4.0 ole db provider 则会报错，不知道是什么原因？？
请多指教～za90

Answer 1

当然出错了,你的语句有问题,第二名改成strSQL:=strSQL + Format(...);,试试

Answer 2

%d->%s、'''%f'',' ->'%s','、ID,year,month->[ID],[year],[month]试一下