谢谢高手了??
解决方案 »
- 2进制文件的一个问题
- 病毒猖獗,如何防范
- 列举出某应用程序的主窗口以外的其它窗口
- WebServices 中如何用ADOConnection动态连接SQL服务器? 代码是BCB写的,应该是差不多的。
- 如何判断一个字符是否为数字,请高手指教,急!!
- ■关于D6的InstallShield■200分希望只给一个人■
- 关于DELPHI中选择打印机的问题,请高手帮忙,多多给分
- HeaderControl怎么使用?`
- 有大量的图片好维护,是把他们存到数据库,还是直接放在硬盘目录中。
- 哪位大侠请帮个忙:一个关于在delphi中调用avicap32.dll的问题
- 一个显示的问题!
- 在线急问!buffer问题,在线等!
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
ADOStoredProc1: TADOStoredProc;
ADOTable1: TADOTable;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var
fADOStoredProc:tADOStoredProc;
begin
try
fADOStoredProc:=tADOStoredProc.Create(self);
fADOStoredProc.ConnectionString :=ADOTable1.ConnectionString ;
fADOStoredProc.ProcedureName := 'dt_verstamp006' ;
fADOStoredProc.Open ;
finally
fADOStoredProc.Free ;
end;
end;end.
try
....
finally
*.free