delphi 调用SQL存储过程
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]);
6 adoquery.sql.add(sqls);
adoquery.open;//有结果集
adoquery.execsql;//没有结果集