小弟编写了一段程序,仔细想想又没错,请各位大侠该如何调试?有没有调试的技术文章可以发给我qq:313158688或介绍下好的调试书,不胜感激!谢谢!谢谢!谢谢!谢谢!谢谢!谢谢!谢谢!谢谢!谢谢!谢谢!谢谢!谢谢!谢谢!谢谢!谢谢!
解决方案 »
- 怎么在form创建时调用ADOConnection连接oracle
- fastmm内存泄露报告解读
- 关于主件开发的问题(Good Idea)! 请教个为高手!
- 如何在Windows2000系统下,用Delphi编程实现定时下载Unix/Linux下的文件?
- 如何在多媒体控件MediaPlayer自动循环播放?
- 保存记录的文件的问题
- ClientDataSet可以制作复杂表头,但怎么打印呢?(我想直接从dbgrid打印),在线等。
- 如何用adoqry绑定数据库中的名称?
- ***MIDAS问题!!!请高手进来看看,急!!!!!!
- 关于主从表数据插入的问题,求教!
- 菜单自画时如何将菜单边框改为平面
- 如何使一个程序随机启动???
function get_id(var table_name:string):integer;
var myquery:tadoquery;
begin
myquery.Create(nil);
myquery.ConnectionString:='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=jxc;Data Source=fjky-yzr';
myquery.SQL.Add('select * from table_id where table_name='''+table_name+'''');
myquery.Active:=true;
case myquery.RecordCount of
0:begin
myquery.Close;
myquery.SQL.Clear;
myquery.SQL.Add('insert into table_id(table_name,table_id) values('''+table_name+''',1)');
myquery.ExecSQL;
get_id:=1;
end ;
1:begin
end;
else
begin
end;
end;end;
这一句改成myquery.openSQL;试试
1.'select * from table_id where table_name = '+ ''''+ table_name + ''''
2.'insert into table_id(table_name,table_id) values ('+'''''+ table_name +'''' + ',1)'
2: get_id没定义要调试,丢一界面,上面扔一按牛,里面写代码:get_id(…………),然后走单步即可顺便说一下,你这段代码…………看着有点别六,呵呵