第一步,在实例master库中建立存储过程如下:
CREATE PROCEDURE query_database AS
Select name
from sysdatabases
GO
第二步,打开delphi,在窗体上放置控件, TADOconnection,
TADOstoredproc,
TcomboBox,
第三步,设置Connection的连接字符串为:Provider=SQLOLEDB.1;Persist Security
Info=False;User ID=sa;Initial Catalog=master;Data Source=VSYS-TESTW;Use
Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation
ID=VSYS-TESTW;Use Encryption for Data=False;Tag with column collation when
possible=False
第四步,设置storedproc的connection为第三步的那个控件,storedproc属性为第一步建立的存储过程的过程名。
第五步,添加代码如下:
procedure
TForm1.FormCreate(Sender: TObject);
var
ss:string;
begin
ADOStoredProc1.Open;
while not ADOStoredProc1.Eof
do
begin
ss:=ADOStoredProc1.Fields[0].AsString;
ComboBox1.Items.Add(ss);
ADOStoredProc1.Next;
end;
end;
Ok,
运行程序,点击下拉组合框,就可以看到效果啦。