将当前日期和时间插入Access数据库

时间:2014-12-03 12:09:44

标签: delphi ms-access

我正在尝试使用Delphi将当前日期和时间插入Access数据库。

我使用的程序如下:

procedure WriteToDatabase;
  var
    TableName, DateTimeNow : string;
    GetCurrentDateTime : TDateTime;
  begin
    GetCurrentDateTime := Now; // The current date and time to write as the FuncID in the database;
    DateTimeNow := DateTimeToStr(GetCurrentDateTime);
    ShowMessage('The current date and time is: '+DateTimeNow);
    ConvertDateTimeForAccess(DateTimeNow);
    TableName := 'tblFunction';
    frmMain.ADOCommand.Connection := frmMain.ADOConnection;
    frmMain.ADOConnection.ConnectionString := 'Provider=Microsoft.ACE.OLEDB.12.0;Data Source='+
    DatabaseName+';';
    frmMain.ADOCommand.CommandText := 'INSERT INTO '+TableName+ ' VALUES ('+DateTimeNow+ 'y = 3x^2 + 4x + 4);';
    frmMain.ADOCommand.Execute;
  end;

不幸的是,当我运行程序时出现错误,即'参数对象未正确定义。提供的信息不一致或不完整'。

问题可能是日期的格式吗?我不认为这是一个问题,因为我将其作为字符串类型输入数据库而不是日期。

有人可以建议在这里需要改变什么吗?

0 个答案:

没有答案