欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

首先看我的oracle數據包
create or replace package Pkg_GetQuery is

  -- Author  : ZM
  -- Created : 2007-12-12 19:38:22
  -- Purpose :

  -- Public type declarations
  type Cur_Ref is ref cursor;
  Procedure Proc_GetQueryStudinfo(strkey varchar2,cur_Result out Cur_Ref);

end Pkg_GetQuery;
其次包的主體實(shí)現:
create or replace package body Pkg_GetQuery is

  -- Private type declarations
  procedure Proc_GetQueryStudinfo(strkey varchar2,cur_Result out cur_Ref)
  is
  strsql varchar2(1000);
  begin
       strsql:='select * from StudInfo Where StudName Like '''||strkey||'%''';
       Open Cur_Result For StrSql;/**//*比較重要的一句*/
  end;
end Pkg_GetQuery;

 
再次,用VB調用存儲過(guò)程開(kāi)始:
conn.ConnectionString = strconn
    conn.CursorLocation = adUseClient
    conn.Open
    Set cmd.ActiveConnection = conn
    cmd.CommandType = adCmdStoredProc
    cmd.CommandText = "STUD20050704006.Pkg_GetQuery.Proc_GetQueryStudInfo"
 Set para1 = cmd.CreateParameter("StrKey", adVarChar, adParamInput, 1000, "張")
    para1.Value = Text1.Text
    cmd.Parameters.Append para1
   
'    Set para2 = cmd.CreateParameter("Cur_Result", adUserDefined, adParamOutput)
'    cmd.Parameters.Append para2
   

   
    Set rs = cmd.Execute()

大家看到了,我第二個(gè)參數的類(lèi)型,我寫(xiě)的是adUserDefined,后測試不行.它并不像C#那樣,可以寫(xiě)cmd.Parameters.Add("rst",OracleType.Cursor);   后查了很多資料,才解決.
完整代碼:
 Dim strconn As String
Dim conn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim para As New ADODB.Parameter
Dim rs As New ADODB.Recordset
Dim para1 As New ADODB.Parameter
Dim para2 As New ADODB.Parameter

Private Sub Command1_Click()
strconn = "Provider=MSDAORA.1;Password=*****;User ID=linux_wolfelite;Data Source=0.0.0.0/jkxoracl;Persist Security Info=True"
    conn.ConnectionString = strconn
    conn.CursorLocation = adUseClient
    conn.Open
    Set cmd.ActiveConnection = conn
    cmd.CommandType = adCmdStoredProc
    cmd.CommandText = "STUD20050704006.Pkg_GetQuery.Proc_GetQueryStudInfo"
     
   
'    Set para = cmd.CreateParameter("score", adNumeric, adParamInput)
'    para.Precision = 4
'    para.NumericScale = 1
    Set para1 = cmd.CreateParameter("StrKey", adVarChar, adParamInput, 1000, "張")
    para1.Value = Text1.Text
    cmd.Parameters.Append para1
   
'    Set para2 = cmd.CreateParameter("Cur_Result", adUserDefined, adParamOutput)
'    cmd.Parameters.Append para2
   

   
    Set rs = cmd.Execute()
        
      
       
              If rs.RecordCount > 0 Then
                      MsgBox rs.RecordCount
                   
              End If

    Set DataGrid1.DataSource = rs
    DataGrid1.Refresh
    If Not rs.BOF Then
    rs.MoveLast
    Text2.Text = rs(0).Value
    End If
    '  Set   rst   =   cmd.Execute(Null,   Null,   adCmdStoredProc)

'    Set rs = Nothing
'    Set conn = Nothing
End Sub

Private Sub Command2_Click()
rs.MovePrevious
 Text2.Text = rs(0).Value
End Sub
說(shuō)明:
1,text1是輸入參數值,
2,text2沒(méi)有多大意義,我是為了測試是否可以movelast
3,感謝這個(gè)帖子,http://www.80diy.com/home/20060323/15/4634977.html,