过来展现你们大侠的风采吧！

Question

小弟编写了一段程序，仔细想想又没错，请各位大侠该如何调试？有没有调试的技术文章可以发给我qq：313158688或介绍下好的调试书，不胜感激！谢谢！谢谢！谢谢！谢谢！谢谢！谢谢！谢谢！谢谢！谢谢！谢谢！谢谢！谢谢！谢谢！谢谢！谢谢！

Answer 1

我的程序是一个函数，为啥调用的时候会出错，传过去的表明称是table_id中没有的：
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;

Answer 2

myquery.ExecSQL;
这一句改成myquery.openSQL;试试

Answer 3

两个SQL串都错了！
1.'select * from table_id where table_name = '+ ''''+ table_name + ''''
2.'insert into table_id(table_name,table_id) values ('+'''''+ table_name +'''' + ',1)'

Answer 4

1: myquery := TAdoQuery.create(nil);(另外注意单元要引用AdoDB)
2: get_id没定义要调试，丢一界面，上面扔一按牛，里面写代码:get_id(…………),然后走单步即可顺便说一下，你这段代码…………看着有点别六，呵呵

Answer 5

哦，get_id是函数名啊，呵呵，没注意主要是不太明白你要干吗啊？好象是要插入数据，不过需要先判断一下是否有数据吗？

Answer 6

我不想定义identity类型，也不想让用户去输入主键。