要在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 方法執行查詢,以更新數據庫中的數據。
請根據實際情況修改代碼中的服務器名、數據庫名、用戶名、密碼、表名、列名和條件列的值。