日本好好热aⅴ|国产99视频精品免费观看|日本成人aV在线|久热香蕉国产在线

  • 

    <cite id="ikgdy"><table id="ikgdy"></table></cite>
      

    1. 
 

      
	
      
        西西軟件下載最安全的下載網(wǎng)站、值得信賴的軟件下載站！
        
    
      

      

      
	
      
    	
        
        
      
            
            
            
            
        
      
    
      

      



      
  
      
    
      首頁  → 編程開發(fā) → Delphi → delphi和sqlserver交互、delphi調(diào)用SQL Server存儲(chǔ)過程
      
    
      
        
      delphi和sqlserver交互、delphi調(diào)用SQL Server存儲(chǔ)過程
      
        
      相關(guān)軟件相關(guān)文章發(fā)表評論 來源：西西整理時(shí)間：2012/12/1 12:14:05字體大�。�A-A+
      
        
      作者：西西點(diǎn)擊：0次評論：0次標(biāo)簽： 存儲(chǔ)過程
      
        
      
              
      
        
    
      
              
      經(jīng)常有很多初學(xué)者問到在Delphi中如何調(diào)用sql server的存儲(chǔ)過程？問題其實(shí)很好解決，但問得多了，也就不愿答了。下面我將用實(shí)例進(jìn)行說明，從在SQL Server中創(chuàng)建存儲(chǔ)過程到調(diào)用的完整實(shí)例。
      　　
      　　首先,打開sql server管理器,在pubs數(shù)據(jù)庫中建一個(gè)測試表,表名為test,字段有id,name,和desc,全部為字符型,如果你不知道建表,那么打開sql查詢分析器,貼上以下的代碼,然后按執(zhí)行,就會(huì)自動(dòng)生成test表.
      　　use pubs
      　　if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[test]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
      　　drop table [dbo].[test]
      　　GO
      　　
      　　CREATE TABLE [dbo].[test] (
      　　[id] [char] (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,
      　　[name] [char] (12) COLLATE Chinese_PRC_CI_AS NULL ,
      　　[descrip] [char] (30) COLLATE Chinese_PRC_CI_AS NULL
      　　) ON [PRIMARY]
      　　GO
      　　
      　　然后,我們來創(chuàng)建一個(gè)存儲(chǔ)過程,其功能為在test中插入一條新記錄.創(chuàng)建存儲(chǔ)過程的代碼如下,同樣的,你也可以復(fù)制到查詢分析器里直接執(zhí)行就可以:
      　　CREATE PROCEDURE myInsert
      　　@id char(10) ,
      　　@name varchar(12),
      　　@descrip varchar(30)
      　　
      　　AS
      　　begin
      　　
      　　insert into test (id,name,descrip) values (@id,@name,@descrip)
      　　
      　　if @@rowcount=0
      　　begin
      　　raiserror('error',16,1)
      　　rollback transaction
      　　end
      　　end
      　　GO
      　　
      　　接下來,新建一個(gè)工程文件,在form1上放置如下控件,并設(shè)置屬性(括號(hào)內(nèi)):
      　　一個(gè)ADOConnection1: TADOConnection;
      　　(LoginPrompt:=false;
      　　connectionstring:=Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Initial Catalog=pubs;Data Source=(local);)
      　　
      　　一個(gè)ADOStoredProc1: TADOStoredProc;屬性為:
      　　(connection:=adoconnection1;
      　　procedurename:=myinsert;//上面我們創(chuàng)建的那個(gè))
      　　
      　　一個(gè)Adotable1: TADOTable;屬性為:
      　　(connection:=adoconnection1;
      　　tablename:=test;　　//上面我們創(chuàng)建的那個(gè))
      　　
      　　一個(gè)Datasource1,屬性為:
      　　(dataset:=Tadotable;)
      　　
      　　一個(gè) DBGrid1: TDBGrid;屬性為
      　　(datasource:=datasource1;)
      　　
      　　一個(gè)Button1,在其Onclick中寫到:
      　　with adoStoredproc1 do
      　　begin
      　　Parameters.ParamByName('@id').Value := '2';
      　　parameters.ParamByName('@name').Value := 'myname';
      　　parameters.ParamByName('@descrip').Value :='nosubject';
      　　ExecProc;
      　　end;
      　　Adotable1.Close;
      　　adotable1.Open; 
      1   {利用adoquery調(diào)用sql server存儲(chǔ)過程}
      2 procedure TForm1.Label1Click(Sender: TObject);
      3 begin
      4   adoquery1.Close;
      5   adoquery1.SQL.Clear ;
      6   adoquery1.SQL.Add('exec proc_stu :a output,:b,:c');
      7   adoquery1.Parameters[1].Value :=strtoint(edit1.Text);
      8   adoquery1.Parameters[2].Value :=strtoint(edit2.Text);
      9   adoquery1.Parameters[0].DataType:=ftsmallint;
      10   adoquery1.Parameters[0].Direction:=pdoutput;
      11   adoquery1.Prepared:=true;
      12   adoquery1.Open ;
      13   edit3.Text:= inttostr(adoquery1.Parameters[0].Value );
      14 end;
      1{利用adostoreproc調(diào)用sqlserver標(biāo)量函數(shù)}
      2procedureTForm1.Label2Click(Sender:TObject);
      3begin
      4
      5     adostoredproc1.ProcedureName:='rectanglearea';
      6    adostoredproc1.close;
      7     adostoredproc1.Parameters.Refresh;//Clear會(huì)導(dǎo)致數(shù)組溢出異常。
      8     adostoredproc1.Parameters.CreateParameter('return_value',ftfloat,pdreturnvalue,20,null);//函數(shù)返回值
      9     adostoredproc1.Parameters.CreateParameter('a',ftfloat,pdinput,10,null);
      10     adostoredproc1.Parameters.CreateParameter('b',ftfloat,pdinput,10,null);
      11     adostoredproc1.Parameters[1].Value:=strtofloat(edit1.Text);
      12     adostoredproc1.Parameters[2].Value:=strtofloat(edit2.Text);
      13     adostoredproc1.Prepared:=true;
      14    adostoredproc1.ExecProc;
      15     edit3.Text:=floattostr(adostoredproc1.Parameters[0].Value);
      16
      17end;
      1{利用adostoreproc調(diào)用sqlserver存儲(chǔ)過程}
2procedureTForm1.Button1Click(Sender:TObject);
3begin
4adostoredproc1.ProcedureName:='proc_stu';
5adostoredproc1.close;
6adostoredproc1.Parameters.Clear;
7//adostoredproc1.Parameters.CreateParameter('return_value',ftfloat,pdreturnvalue,20,null);
8adostoredproc1.Parameters.CreateParameter('a',ftinteger,pdoutput,10,null);//參數(shù)名不需要與sql中定義的參數(shù)名相同
9adostoredproc1.Parameters.CreateParameter('b',ftinteger,pdinput,10,null);
10adostoredproc1.Parameters.CreateParameter('c',ftinteger,pdinput,10,null);
11adostoredproc1.Parameters[1].Value:=strtofloat(edit1.Text);
12adostoredproc1.Parameters[2].Value:=strtofloat(edit2.Text);
13adostoredproc1.Prepared:=true;
14adostoredproc1.Open;//有與dbgrid相關(guān)聯(lián)，應(yīng)用open而不是execproc.
15edit3.Text:=floattostr(adostoredproc1.Parameters[0].Value);
16
17
18end;
      1{利用adoquery調(diào)用sqlserver表值函數(shù)}
2procedureTForm1.Button2Click(Sender:TObject);
3begin
4adoquery1.Close;
5adoquery1.SQL.Clear;
6adoquery1.SQL.Add('select*fromdbo.tt(:a)');
7adoquery1.Parameters[0].Value:=edit1.Text;
8adoquery1.Prepared:=true;
9adoquery1.Open;
10//edit3.Text:=inttostr(adoquery1.Parameters[0].Value);
11end;
      
              
      
              

        
      
    
      

    
      
        
      
            
        
            
            
        
          
    
        
      
        
        
        相關(guān)文章
        
          
      
        
      
        
        
        相關(guān)評論
        
        
        閱讀本文后您有什么感想? 已有人給出評價(jià)!
        
        
        
                
          
                    
        • 8   喜歡喜歡 
          • 
                    
        • 3    頂頂
          • 
                    
        • 1     難過難過
          • 
                    
        • 5    囧囧
          • 
                    
        • 3    圍觀圍觀
          • 
                     
        • 2    無聊無聊
          • 
                  
        
                  
        
        
        
            
            
        
                    

        
  
        
    
        熱門評論
        
    
        
      
    
        
  
        
  
  
  
        
    
        最新評論
        
    
        
      
    
        
  
  
        
  
  
        
    
        
      
        發(fā)表評論 查看所有評論(0)
        
      
      
        昵稱: 
        
        
        
      
        
      
        
      表情: 
       高興
       可
       汗
       我不要
       害羞
       好
       下下下
       送花
       屎
       親親
       
        
      
      
        
      字?jǐn)?shù): 0/500
      (您的評論需要經(jīng)過審核才能顯示)
      
        
    
        
  
        

        

                   
        
   
      
        
  
        
  
        
       
        
            
        推薦文章
        
            
        
            沒有數(shù)據(jù)