方法:
你的数据操作都放在服务器端,在服务器端程序中编写一些方法比如:
点击DELPHI的VIEW菜单,选折TYPE LIBRARY然后在弹出的窗体上添加一个或几个方法。比如取个名字叫shanchu,就是
绿色的那个,然后点击左边的parameter,加入参数(一个或多个),作用是:
如果你要删除一个人的所有信息,他的名字你一定要传过来,所以
你的参数中就要有一个代表名字的,比如叫:name1
然后在服务器端写程序:
var
str:string;
str:='delete * from table1 where Name='+''''+name1+'''';
query1.close;
query1.sql.clear;
query1.sql.add(str);
query1.open;
这就是服务器端的程序
在客户端,你就写:
dcomconnection.appserver.shanchu(edit1.text);
这样你就完成了传数据的删除操作
(edit1.text 就是shanchu(name1)中给name1赋的值)
你的数据操作都放在服务器端,在服务器端程序中编写一些方法比如:
点击DELPHI的VIEW菜单,选折TYPE LIBRARY然后在弹出的窗体上添加一个或几个方法。比如取个名字叫shanchu,就是
绿色的那个,然后点击左边的parameter,加入参数(一个或多个),作用是:
如果你要删除一个人的所有信息,他的名字你一定要传过来,所以
你的参数中就要有一个代表名字的,比如叫:name1
然后在服务器端写程序:
var
str:string;
str:='delete * from table1 where Name='+''''+name1+'''';
query1.close;
query1.sql.clear;
query1.sql.add(str);
query1.open;
这就是服务器端的程序
在客户端,你就写:
dcomconnection.appserver.shanchu(edit1.text);
这样你就完成了传数据的删除操作
(edit1.text 就是shanchu(name1)中给name1赋的值)
project my.exe raised exception class EoleException with message
'ADOQuery1 commandtext does not retrurn a result set'.
楼上的朋友,我没有在服务器写过方法不太会,能不能把你的是怎么做的告诉我呢
多写
改为
ClientDataSet1.Execute;
我是拷贝我以前给别人写的一个查询的例子,忘了改那儿了,呵呵~~~不好意思!!
就是你上面说的name1应该设置成什么类型呢
改为
ClientDataSet1.Execute; 没有返回记录级的用于insert,delete,update
我用的是这个:
adoqcurve.ExecSQL;
还不知道可不可以
我用的是这个:
adoqcurve.ExecSQL;
还不知道可不可以
name1字符串里的内容必须是一个整数型
name1 :string
begin
name1:=Edit1.Text;
TClientDataSet连接TDataSetProvider
ClientDataSet1.Close;
ClientDataSet1.CommandText:='delete gisimage where
id='+''''+Name1+'''';
CientDataSet1.execsql;
end
或者email地址,以后我就可以多麻烦你啦:)
觉得你真的能帮我好多忙。
project my.exe raised exception class EoleException with message
'ADOQuery1 commandtext does not retrurn a result set'.
我发现问题出现在Adoquery1上面了是服务器端程序的问题
连接adoquery1的DataSetProvider1
我设置DataSetProvider1的options的poallowcommandtext=true
TDataSetProvider的options里面好像还有许多设置我只设置了这一项为真
我觉得是这个问题。
[email protected]
不过我上班时间不能开QQ的呦!!!