delphi调用存储过程

最新推荐文章于 2021-01-21 09:59:48 发布

weixin_34343308

最新推荐文章于 2021-01-21 09:59:48 发布

阅读量134

点赞数

文章标签：数据库

一。 TAdoQuery对象下

1. mysql存储过程

1 sqls := Format(' call pro_addOneStudent (' +
2     '''%s'',''%s'',''%s'',''%s'',''%s'',''%s'',''%s'',''%s'',''%s'',''%s'' )',
3     [stuname, sex, school, classname, p1name, p1uid, p2name, p2uid, pwd,
4     time.ToString]);
5 
6 adoquery.sql.add(sqls);
7 
8 adoquery.open;//有结果集
9 adoquery.execsql;//没有结果集

2. sqlserver存储过程

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