delphi存储过程
来源:互联网 发布:30程序员转行量化金融 编辑:程序博客网 时间:2024/05/21 14:09
第一种方法应用存储过程
adoquery的exec方法
unit K_ProcManage;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB;
type
TProcManage = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
MyStoredProc: TADOStoredProc;
Button2: TButton;
ADOQuery1: TADOQuery;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
ProcManage: TProcManage;
implementation
uses D_DataMoudule;
{$R *.dfm}
procedure TProcManage.Button1Click(Sender: TObject);
begin
with MyStoredProc do
begin
ProcedureName:='InsertStud';
Parameters.Clear;
Parameters.CreateParameter('@StudID', ftString, pdInput, 50, edit1.Text);
Parameters.CreateParameter('@StudName', ftString, pdInput, 50, edit2.Text);
Parameters.CreateParameter('@Sex', ftString, pdInput, 50, edit3.Text);
Parameters.CreateParameter('@Age', ftString, pdInput, 50, edit4.Text);
Parameters.CreateParameter('@Telephone', ftString, pdInput, 50, edit5.Text);
Prepared:= true;
ExecProc;
end;
end;
procedure TProcManage.Button2Click(Sender: TObject);
var
SQLProc:string;
begin
adoquery1.SQL.Clear;
SQLProc:='exec InsertStud '''+edit1.Text+''','''+edit2.Text+''','''+edit3.Text+''','''+edit4.Text+''','''+edit5.Text+'''';
adoquery1.SQL.Add(SQLProc);
adoquery1.ExecSQL;
end;
end.
第二种:
- 存储过程delphi
- DELPHI存储过程调用
- delphi存储过程
- delphi调用存储过程
- DELPHI存储过程调用
- Delphi调用分布存储过程
- delphi调用interbase存储过程
- delphi存储过程的使用
- Delphi ADOStoredProc 存储过程用法
- delphi存储过程(返回值)
- delphi 中调用存储过程
- DELPHI 存储过程结构示例
- DELPHI如何调用存储过程
- 调用存储过程【Delphi版】
- delphi调用sql-server2000存储过程
- delphi中调用oracle的存储过程
- Delphi调用SQL分页存储过程实例
- Delphi使用AdoQuery调用Mysql存储过程
- 解决gvim很卡的问题
- 解决User.Identity.IsAuthenticated==false 或User.Identity.Name==string.empty的问题
- pathelement fileset location区别?
- 系统集成项目管理工程师-项目采购管理笔记
- EL表达式截取字符串
- delphi存储过程
- 如何在Visual Studio项目中正确添加汇编代码
- 虚拟机Linux(Fedora10)下USB转串口的使用, minicom: cannot open /dev/ttyUSB0的解决
- 【原】向html5进军(6)——用flash和wallaby+制作html5动画 第五章
- Ext.data.Store
- 字符集与编码问题小结
- 收集的一些Java与游戏开发相关资料
- Tongweb优化四步骤
- listView的可重用机制对性能的影响