function TForm1.mydata_execute(id:integer;cs:string;adoquery:tadoquery):integer;
begin
result:=0;
try
adoquery.Close;
adoquery.SQL.Text:=cs;
if id=0 then adoquery.Open;
if id=1 then adoquery.ExecSQL; //执行到此处出错
except
on E:exception do begin
showmessage(e.Message);
result:=1;
end;
end;
end;
procedure TForm1.delete1Click(Sender: TObject);
var
sql,sc:string;
begin
sc:=adoquery1.FieldByName('name').AsString;
sql:='delete from stu where name='+sc+'';
mydata_execute(1,sql,adoquery2); //
end;
执行上面调用处,提示odbc microsoft access drive 参数不足 ,期待1,哪位能帮看下,多谢
begin
result:=0;
try
adoquery.Close;
adoquery.SQL.Text:=cs;
if id=0 then adoquery.Open;
if id=1 then adoquery.ExecSQL; //执行到此处出错
except
on E:exception do begin
showmessage(e.Message);
result:=1;
end;
end;
end;
procedure TForm1.delete1Click(Sender: TObject);
var
sql,sc:string;
begin
sc:=adoquery1.FieldByName('name').AsString;
sql:='delete from stu where name='+sc+'';
mydata_execute(1,sql,adoquery2); //
end;
执行上面调用处,提示odbc microsoft access drive 参数不足 ,期待1,哪位能帮看下,多谢
解决方案 »
- 没分,就是来看看
- delphi的线程调用
- 如何利用excel的range属性读取数据赋值给一数组?
- MCISendCommand是否可以打开指定的声卡进行录放音
- 请高手指点一下,我用TClientSocket和TServerSocket编写的程序,当TClientSocket连续(大概有1000-2000条记录左右,一次连续就要发这么多)向T
- 请问,怎样画Label的各种效果?
- 怎样如同资源管理器界面那样,左边是树形,右边是内容,左右边的宽度可有鼠标拖动?
- 高手快来,先给出100分,不够再加!有关邮件的问题.....................
- MMC坏了怎么办?
- 求教如何把C++里的一个回调方法转成Delphi,调试了非常久都不通
- 请教,在Delphi中如何生成指定背景图片的图片(即在原背景图片上画图)
- 如何将EXE文件制作成系统服务?
你先在开发环境中看看联接数据库是否正常
sql:='delete from stu where name='''+sc+'''';
adoquery.SQL.Text:=cs;
改为:
adoquery.Close;
adoquery.SQL.Clear;
adoquery.SQL.Text:=cs;
可能是因为你不加这个,所以前面试0时得后面再试1时就错误