帮忙!考验高手的代码!
sqllx.UpdateObject:=UpdateSQL1;
UpdateSQL1.DataSet:=sqllx;
UpdateSQL1.ModifySQL.Add(' update');
UpdateSQL1.ModifySQL.Add('dbo.'+RxDBLookupCombo1.Text+'1');
UpdateSQL1.ModifySQL.Add('set');
for i := 0 to DBGrid4.Columns.Count-1 do
begin
UpdateSQL1.ModifySQL.Add('('+DBGrid4.Columns.Items[i].FieldName+')');
UpdateSQL1.ModifySQL.Add( '=(:'+DBGrid4.Columns.Items[i].FieldName+')');
UpdateSQL1.ModifySQL.Add('where');
UpdateSQL1.ModifySQL.Add('xh=:old_xh');
end;
showmessage('dbo.'+RxDBLookupCombo1.Text+'1');
UpdateSQL1.InsertSQL.Add('insert into ');
UpdateSQL1.InsertSQL.Add('dbo.'+RxDBLookupCombo1.Text+'1');
for i := 0 to DBGrid4.Columns.Count-1 do
begin
UpdateSQL1.InsertSQL.Add('('+DBGrid4.Columns.Items[i].FieldName+')');
UpdateSQL1.InsertSQL.Add( 'values(:'+DBGrid4.Columns.Items[i].FieldName+')');
end;
UpdateSQL1.DeleteSQL.Add('delete from');
UpdateSQL1.DeleteSQL.Add('dbo.'+RxDBLookupCombo1.Text+'1');
UpdateSQL1.DeleteSQL.Add('where');
UpdateSQL1.DeleteSQL.Add('xh=:old_xh');
我在代码理加载了这些语句,为何不行啊!
代码理生成的这些sql语句为何不行!但是在控件理生成的就行,为何???
帮忙!
问题点数：0、回复次数：0Top
