如何去除数据表中的所有字段的尾部空格?

Question

想去除数据表中的所有字段的尾部空格,一个字段实现容易,字段太多了,想利用一个循环实现,不知道如何处理?
以下是我的方法:
  Q_Zyda.Close;
  Q_Zyda.SQL.Clear;
  Q_Zyda.SQL.Add('select * from archives_employee');
  Q_Zyda.Open;  i := Q_Zyda.FieldCount;  for j := 0 to i do
  begin
    Q_Zyda.SQL.Clear;
    Q_Zyda.SQL.Add('update archives_employee set '???????);
    Q_Zyda.ExecSQL;
  end;问号的地方不会写了?请教各位.

Answer 1

如果你用oracle或sqlserver或access,你都可以直接用一句SQL来实现
update archives_employee set yourfiel=rtrim(yourfiel)

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
  SQLStr:String;
begin
  ADODataSet1.Close;
  ADODataSet1.CommandText:='Select * from archives_employee';
  ADODataSet1.Open;
  for i:=0 to ADODataSet1.FieldCount-1 do
    if i=ADODataSet1.FieldCount-1 then
      SQLStr:=SQLStr+ADODataSet1.Fields[i].FieldName+'=Trim('+ADODataSet1.Fields[i].FieldName+')'
    else
      SQLStr:=SQLStr+ADODataSet1.Fields[i].FieldName+'=Trim('+ADODataSet1.Fields[i].FieldName+'),';
  SQLStr:='Update archives_employee' Set '+SQLStr;
  Showmessage(SQLStr);
end;