要在Delphi中修改数据库数据,可以使用以下步骤:
使用 TADOConnection 组件连接到数据库。在属性编辑器中设置 ConnectionString 属性以指定数据库连接字符串。
使用 TADOQuery 组件创建一个查询并将其链接到 ADOConnection 组件。在属性编辑器中设置 SQL 属性以指定要执行的SQL语句,例如 UPDATE 语句。
使用参数化查询来避免 SQL 注入攻击。在 SQL 语句中使用 “:参数名” 的格式来表示参数,并在 Delphi 代码中设置参数的值。
使用 TADOQuery 的 ExecSQL 方法执行查询,以执行更新操作。
以下是一个示例代码:
var
ADOConnection1: TADOConnection;
ADOQuery1: TADOQuery;
begin
ADOConnection1 := TADOConnection.Create(nil);
ADOConnection1.ConnectionString := 'Provider=SQLOLEDB;Data Source=SERVERNAME;Initial Catalog=DATABASENAME;User ID=USERNAME;Password=PASSWORD';
ADOConnection1.Connected := True;
ADOQuery1 := TADOQuery.Create(nil);
ADOQuery1.Connection := ADOConnection1;
ADOQuery1.SQL.Text := 'UPDATE TableName SET ColumnName = :NewValue WHERE ConditionColumn = :ConditionValue';
ADOQuery1.Parameters.ParamByName('NewValue').Value := 'NewData';
ADOQuery1.Parameters.ParamByName('ConditionValue').Value := 'ConditionData';
ADOQuery1.ExecSQL;
ADOQuery1.Free;
ADOConnection1.Free;
end;
在上面的代码中,将 ADOConnection1 的 ConnectionString 属性设置为正确的数据库连接字符串。然后,将 ADOQuery1 的 SQL 属性设置为要执行的 UPDATE 语句,并使用 Parameters 属性设置参数的值。最后,使用 ADOQuery1 的 ExecSQL 方法执行查询,以更新数据库中的数据。
请根据实际情况修改代码中的服务器名、数据库名、用户名、密码、表名、列名和条件列的值。