delphi 调用SQL和MYSQL存储过程

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;//没有结果集

————————————————

原文链接：https://blog.csdn.net/qq_33536143/article/details/85763689

推荐分享