知识大全 Delphi与SQL Server存储过程编程详解

Posted 2022-07-15 属性

篇首语：人喜欢习惯，因为造它的就是自己。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 Delphi与SQL Server存储过程编程详解相关的知识，希望对你有一定的参考价值。

Delphi与SQL Server存储过程编程详解 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　前言　　　　经常有很多初学者问到在delphi中如何调用SQL Server的存储过程？问题其实很好解决但问得多了也就不愿答了下面我将用实例进行说明从在SQL Server中创建存储过程到调用的完整实例　　　　首先打开sql server管理器在pubs数据库中建一个测试表表名为test 字段有id name 和desc 全部为字符型如果你不知道建表那么打开sql查询分析器贴上以下的代码然后按执行就会自动生成test表　　use pubs　　if exists (select * from dbo sysobjects where id = object_id(N [dbo] [test] ) and OBJECTPROPERTY(id N IsUserTable ) = )　　drop table [dbo] [test]　　GO　　　　CREATE TABLE [dbo] [test] (　　[id] [char] ( ) COLLATE Chinese_PRC_CI_AS NOT NULL 　　[name] [char] ( ) COLLATE Chinese_PRC_CI_AS NULL 　　[descrip] [char] ( ) COLLATE Chinese_PRC_CI_AS NULL　　) ON [PRIMARY]　　GO　　　　然后我们来创建一个存储过程其功能为在test中插入一条新记录创建存储过程的代码如下同样的你也可以复制到查询分析器里直接执行就可以:　　CREATE PROCEDURE myInsert　　@id char( ) 　　@name varchar( ) 　　@descrip varchar( )　　　　AS　　begin　　　　insert into test (id name descrip) values (@id @name @descrip)　　　　if @@rowcount= 　　begin　　raiserror( error )　　rollback transaction　　end　　end　　GO　　　　接下来新建一个工程文件在form 上放置如下控件并设置属性(括号内):　　一个ADOConnection : TADOConnection;　　(LoginPrompt:=false;　　connectionstring:=Provider=SQLOLEDB ;Persist Security Info=True;User ID=sa;Initial Catalog=pubs;Data Source=(local);)　　　　一个ADOStoredProc : TADOStoredProc;属性为:　　(connection:=adoconnection ;　　procedurename:=myinsert;//上面我们创建的那个)　　　　一个ADOTable : TADOTable;属性为:　　(connection:=adoconnection ;　　tablename:=test;　　//上面我们创建的那个)　　　　一个Datasource 属性为:　　(dataset:=Tadotable;)　　　　一个 DBGrid : TDBGrid;属性为　　(datasource:=datasource ;)　　　　一个Button 在其Onclick中写到:　　with adoStoredproc do　　begin　　Parameters ParamByName( @id ) Value := ;　　parameters ParamByName( @name ) Value := myname ;　　parameters ParamByName( @descrip ) Value := nosubject ;　　ExecProc;　　end;　　Adotable Close;　　adotable Open; cha138/Article/program/SQLServer/201311/21984