照旧,先上delphi的界面控件布局:1个adoconnection、1个adoquery、1个DataSource、1个button、1个dbgrideh(随意)前期准备:1、设置adoconnection的connectionstring,为了方便:Provider=SQLOLEDB.1;Password=数据库登录密码;Persist Security Info=True;User ID=数据库登录名;Data Source=数据库服务器地址,设置LoginPrompt设置为False 2、adoquery的connection指向adoconnection 3、DataS...
create proc SelectAddr2 as 3 begin 4 select * from MTable 5 end--修改存储过程1 alter proc SelectAddr --增加一个入参 2 @addr varchar(50) 3 as 4 begin 5 select * from MTable t where t.Addr = @addr 6 end点击执行,就可以才数据库-可编程性-存储过程下看到新建的SelectAddr这个存储过程了 2、在Delphi设计好的界面双击Button按钮1 procedure TForm4.Button1Click(Sender: TObject); 2 var 3 sSqlText:strin...
示例存储过程:create procedure proc_loginusername varchar(20),password varchar(20)asdeclare @result intselect @result=count(*) from loginuser where user=@username and pass=@passwordif @result=0return 0return 1goDelphi代码:var ret:integer;...... with ADOStoredProc1 do begin Close; ProcedureName:=‘proc_login‘; Parameters.Clear; Parameters.Refresh; ...
varaintf:_Recordset;RecordsAffected:OleVariant; begin ADOStoredProc1.Close;ADOStoredProc1.Open;aintf:=ADOStoredProc1.Recordset;ADOQuery1.Recordset:=aintf;aintf:=aintf.NextRecordset(RecordsAffected);ADOQuery2.Recordset:=aintf; end; 此时,把存储过程中生成的二个数据集分别在adoquery1,adoquery2中,将adoquery1,adoquery2与DBGrid相连中,即可. 其实,把_Recordset放到MemTable中更好. 下面是普遍的方法: aintf:=ADOS...