读书人

delphi高手们请进小弟有个有关问题困

发布时间: 2012-03-06 20:47:55 作者: rapoo

delphi高手们请进,小弟有个问题困惑了好久
部分代码:
with qryspm3 do
begin
Close;
SQL.Clear;
SQL.Add( 'update 执法检查 set Cmy_Name= ' ' '+qryspm3yx.FieldList[1].AsString+ ' ' ', ');
SQL.Add( 'Cmy_Provice= ' ' '+ qryspm3yx.FieldList[2].AsString+ ' ' ', ');
SQL.Add( 'Cmy_City= ' ' '+ qryspm3yx.FieldList[3].AsString + ' ' ', ');
SQL.Add( 'Cmy_Area= ' ' '+ qryspm3yx.FieldList[4].AsString + ' ' ', ');
SQL.Add( 'Cmy_Town= ' ' '+ qryspm3yx.FieldList[5].AsString + ' ' ', ');
SQL.Add( 'Cmy_Address= ' ' '+ qryspm3yx.FieldList[6].AsString + ' ' ', ');
SQL.Add( 'Cmy_Boss= ' ' '+ qryspm3yx.FieldList[7].AsString + ' ' ', ');
SQL.Add( 'Cmy_Telphone= ' ' '+ qryspm3yx.FieldList[8].AsString+ ' ' ', ');
SQL.Add( 'Cmy_Area1= ' ' '+ qryspm3yx.FieldList[9].AsString + ' ' ', ');
SQL.Add( 'Cmy_Industry= ' ' '+ qryspm3yx.FieldList[10].AsString + ' ' ', ');
SQL.Add( 'Cmy_Code= ' ' ' + qryspm3yx.FieldList[11].AsString+ ' ' ', ');
SQL.Add( 'Cmy_Economy= ' ' '+ qryspm3yx.FieldList[12].AsString + ' ' ', ');


SQL.Add( 'Cmy_Income= ' ' '+ qryspm3yx.FieldList[13].AsString + ' ' ', ');
SQL.Add( 'Cmy_People= ' ' '+ qryspm3yx.FieldList[14].AsString + ' ' ', ');
SQL.Add( 'Cmy_Concourse= ' ' '+ qryspm3yx.FieldList[15].AsString + ' ' ', ');
SQL.Add( 'Chk_Department= ' ' '+ qryspm3yx.FieldList[16].AsString + ' ' ', ');
SQL.Add( 'Chk_Date= ' ' '+ qryspm3yx.FieldList[17].AsString + ' ' ', ');
SQL.Add( 'Chk_People= ' ' '+ qryspm3yx.FieldList[18].AsString + ' ' ', ');
SQL.Add( 'Chk_Class= ' ' '+ qryspm3yx.FieldList[19].AsString + ' ' ', ');
SQL.Add( 'Chk_Form= ' ' '+ qryspm3yx.FieldList[20].AsString + ' ' ', ');
SQL.Add( 'Chk_Type= ' ' '+ qryspm3yx.FieldList[21].AsString + ' ' ', ');
SQL.Add( 'Chk_Character= ' ' '+ qryspm3yx.FieldList[22].AsString + ' ' ', ');
SQL.Add( 'Chk_Circs= ' ' '+ qryspm3yx.FieldList[23].Text + ' ' ', ');
SQL.Add( 'Chk_Idea= ' ' '+ qryspm3yx.FieldList[24].Text + ' ' ', ');
SQL.Add( 'Chk_Department1= ' ' '+ qryspm3yx.FieldList[25].AsString+ ' ' ', ');
SQL.Add( '录入用户= ' ' '+ qryspm3yx.FieldList[26].AsString+ ' ' 'where Check_ID= '+qryspm3yx.FieldList[0].AsString);


Active:=true;
try
Open;
except
ExecSQL;
end;
Refresh;
end;
error:qryspm3 CommandText does not return a result set.
应该是说不能返回一个结果集。这是为什么?还有我在CommandText中的qryspm3yx点不出fieldbyname方法,在begin上面就能点~为什么啊?小弟初学delphi请多指教


[解决办法]
Update语句只需要ExeuteSQL就行了,Open什么 啊?
[解决办法]
update 不能用open.....
select 才能用open

读书人网 >.NET

热点推荐