Question

我正在学习如何使用insert into语句，并且在我的访问数据库中，我正在尝试插入单个记录。我在新表中插入新记录的表有三个字段：StockID（AutoN），Description（文本），Cost（Number）。我查看过以前的帖子，但发布的解决方案似乎超出了我对插入的基本级别...这是我感兴趣的。无论如何，这是我的代码......

    adoQuery1.Active := true;
adoQuery1.SQL.Clear;
adoQuery1.SQL.Add('INSERT INTO Stock (StockID,Description,Cost) VALUES (4,Cheese,5)');
adoQuery1.open;
adoQuery1.Close;

它编译得很好，但是当按下命令按钮来调用上面的内容时，我收到以下消息：

＆＃39; ADOQuery1：＆＃34;缺少SQL属性＆＃34;。＆＃39;

我做错了什么？

谢谢，Abelisto。你的上一篇文章看起来确实复杂......但是我做了自己的小版本，因为你的上一个解决方案让我开始运行。它有效，所以我非常好。我现在将专注于使用组合框（用于字段选择）和用户值的DELETE FROM。这是我工作的解决方案......;）

x:=strtoint(txtStockID.Text);
y:=txtDescription.Text;
z:=strtoCurr(txtCost.Text);

adoQuery1.SQL.Clear;
adoQuery1.SQL.Add('INSERT INTO tblStock (StockID,Description,Cost)');
adoQuery1.SQL.Add('VALUES (:StockID,:Description,:Cost)');   // ':StockID' denotes a parameter
adoQuery1.Parameters.ParamByName('StockID').Value:= x;
adoQuery1.Parameters.ParamByName('Description').Value:= y;
adoQuery1.Parameters.ParamByName('Cost').Value:= z;
adoQuery1.ExecSQL;
adoQuery1.Close;

Answer 1

使用参数比常量SQL语句更有效。除了我的评论之外，我还经常使用一些有用的函数来调用带有参数的SQL语句（也许它对你也很有用）：

function TCore.ExecQuery(const ASQL: String; const AParamNames: array of string;
    const AParamValues: array of Variant): Integer;
var
    q: TADOQuery;
    i: Integer;
begin
    if Length(AParamNames) <> Length(AParamValues) then
        raise Exception.Create('There are different number of parameter names and values.');

    q := GetQuery(ASQL) as TADOQuery;
    try
        for i := Low(AParamNames) to High(AParamNames) do
            SetParamValue(q, AParamNames[i], AParamValues[i]);
        q.ExecSQL;
        Result := q.RowsAffected;
    finally
        q.Free;
    end;
end;

function TCore.GetQuery(const ASQL: String): TDataSet;
begin
    Result := TADOQuery.Create(Self);
    (Result as TADOQuery).CommandTimeout := 0;
    (Result as TADOQuery).Connection := Connection;
    (Result as TADOQuery).SQL.Text := ASQL;
end;

procedure TCore.SetParamValue(AQuery: TDataSet; const AName: string; const AValue: Variant);
var
    i: Integer;
    q: TADOQuery;
begin
    q := AQuery as TADOQuery;
    for i := 0 to q.Parameters.Count - 1 do
        if AnsiSameText(AName, q.Parameters[i].Name) then
        begin
            case VarType(AValue) of
                varString, varUString:
                    q.Parameters[i].DataType := ftString;
                varInteger:
                    q.Parameters[i].DataType := ftInteger;
                varInt64:
                    q.Parameters[i].DataType := ftLargeint;
            end;

            q.Parameters[i].Value := AValue;
        end;
end;

在您的案例中使用示例：

Core.ExecQuery(
  'INSERT INTO Stock (StockID, Description, Cost) VALUES (:PStockID, :PDescription, :PCost)', 
  ['PStockID', 'PDescription', 'PCost'],
  [4, 'Cheese', 5]);

ADO使用delphi将记录插入到访问DB中

1 个答案: