delphi调用存储过程

一 。 TAdoQuery对象下

1. mysql存储过程

 sqls := Format(' call pro_addOneStudent (' +
     '''%s'',''%s'',''%s'',''%s'',''%s'',''%s'',''%s'',''%s'',''%s'',''%s'' )',
     [stuname, sex, school, classname, p1name, p1uid, p2name, p2uid, pwd,
     time.ToString]);

 adoquery.sql.add(sqls);

 adoquery.open;//有结果集
 adoquery.execsql;//没有结果集

2. sqlserver存储过程

 sqls2 := Format(' exec pro_addOneStudent (' +
     '''%s'',''%s'',''%s'',''%s'',''%s'',''%s'',''%s'',''%s'',''%s'',''%s'' )',
     [stuname, sex, school, classname, p1name, p1uid, p2name, p2uid, pwd,
     time.ToString]);
  adoquery.sql.add(sqls);
  结果集同上

《收集中》