procedure TForm1.Button1Click(Sender: TObject);
var
sqlstr:string;
lanuage:string;begin
datamodul.SCK.Connected :=TRUE;//dataModuel:TdataModule,sck:TsocketConnect
datamodul.Cdataset.Active :=TRUE;//Cdataset:TClientdataset
lanuage:=edit1.Text;
sqlstr:='update qrytable set wei=' +lanuage ;
WITH datamodul.Cdataset DO
begin
close; commandtext:=sqlstr; execute;
end;end;我的后台数据库是SQL,第一次更新时能成功,但我第二次更新是出错:
提示:"adoquery1:commandtext does not return a rusult set"
兄弟们,这个问题应该怎么解决?我有点急!!!!!!!!!!!!!!!!
var
sqlstr:string;
lanuage:string;begin
datamodul.SCK.Connected :=TRUE;//dataModuel:TdataModule,sck:TsocketConnect
datamodul.Cdataset.Active :=TRUE;//Cdataset:TClientdataset
lanuage:=edit1.Text;
sqlstr:='update qrytable set wei=' +lanuage ;
WITH datamodul.Cdataset DO
begin
close; commandtext:=sqlstr; execute;
end;end;我的后台数据库是SQL,第一次更新时能成功,但我第二次更新是出错:
提示:"adoquery1:commandtext does not return a rusult set"
兄弟们,这个问题应该怎么解决?我有点急!!!!!!!!!!!!!!!!
datamodul.SCK.Connected :=TRUE;//你每次都要打开连接?
datamodul.Cdataset.Active :=TRUE;//为什么要有这句,更新完了再打开显示不好吗?
lanuage:=edit1.Text;
sqlstr:='update qrytable set wei=' +lanuage ;
WITH datamodul.Cdataset DO
begin
close; commandtext:=sqlstr; execute;
end;
你好像开了两个一样的帖子?
我在那个回了帖子就是不见楼主出来!! ^_^