Collateral是什么意思呢
同学你好，很高兴为您解答！
您所说的这个词语，是属于期货从业词汇的一个，掌握好期货从业词汇可以让您在期货从业的学习中如鱼得水，这个词的翻译及意义如下：作为贷款或其他信贷抵押的物业或资产。抵押品在违约时可被没收
希望高顿网校的回答能帮助您解决问题，更多期货从业问题欢迎提交给高顿企业知道。
高顿祝您生活愉快！
Gateway是什么意思
Gateway
生词本
去背诵
[’ɡetwe]
[地名] [美国] 盖特韦
网 络
网关；捷威；盖特威；闸道器
双语例句
更多资料
1. He walked across the park and through a gateway.
他穿过公园，走过一道大门。
2. They turned through the gateway on the left.
他们穿过出入口向左转去。
3. The port of Dover is England’s gateway to Europe.
多佛港是英国进入欧洲的大门.
4. San Francisco is generally known as the U.S. “ gateway to the Orient “.
旧金山是美国 “ 通向东方的大门 ”.
5. Hard work is the gateway to success.
努力工作是通往成功之路.
-era
如何在VBA中调用存储过程
方法有几种
1、
Set Conn = Server.CreateObject(“ADODB.Connection“)
Conn.open strConn
if err.number《》0 then
response.Write “数据库链接失败。“ ’& err.Description
response.End
end If
set Rs = server.CreateObject(“adodb.recordset“)
’调用存储过程：[dbo].[Usp_GetUserMenu]
strsql=“[dbo].[Usp_GetUserMenu] @UserID=’“&Session(g_SessionName&“_UserID“)&“’“
’这句话是关键，CursorLocation意思是游标本地化
rs.CursorLocation=3
Rs.open strsql,conn,1,1
if err.number《》0 Then
conn.close
set conn=nothing
end if
for i=1 to rs.RecordCount
iMenuType=rs(“MenuType“)
......
rs.MoveNext
next
rs.Close
set rs=nothing
conn.close
set conn=nothing
2. 使用adobd.Command对象
VB6.0 调用存储过程的例子
(说明:以下代码摘自微软的MSDN,经过测试没问题。使用该方法的前提条件是必须知道将要使用的参数化命令的详细情况。)
打开Form1窗体，Copy以下的代码到窗体中，该段代码将测试存储过程ADOTestRPE的返回值、输入参数及输出参数，测试的过程中，可能需要修改链接字符串。
Sub CreateParms()
Dim ADOCmd As New ADODB.Command
Dim ADOPrm As New ADODB.Parameter
Dim ADOCon As ADODB.Connection
Dim ADORs As ADODB.Recordset
Dim sParmName As String
Dim strConnect As String
Dim rStr As String
On Error GoTo ErrHandler
strConnect = “driver={SQL Server};server=(local);uid=sa;pwd=;database=pubs“
Set ADOCon = New ADODB.Connection
With ADOCon
.Provider = “MSDASQL“
.CursorLocation = adUseServer ’Must use Server side cursor.
.ConnectionString = strConnect
.Open
End With
Set ADOCmd.ActiveConnection = ADOCon
With ADOCmd
.CommandType = adCmdStoredProc
.CommandText = “ADOTestRPE“
End With
’Parameter 0 is the stored procedure Return code.
sParmName = “Return“
Set ADOPrm = ADOCmd.CreateParameter(sParmName, adInteger, _
adParamReturnValue, , 0)
ADOCmd.Parameters.Append ADOPrm
ADOCmd.Parameters(sParmName).Value = -1
’Parameter 1 is the setting for the stored procedure Output
’ parameter.
sParmName = “Output“
Set ADOPrm = ADOCmd.CreateParameter(sParmName, adInteger, _
adParamOutput)
ADOCmd.Parameters.Append ADOPrm
ADOCmd.Parameters(sP
armName).Value = 999
’Parameter 2
sParmName = “R1Num“ ’Number of rows to return in Resultset 1.
Set ADOPrm = ADOCmd.CreateParameter(sParmName, adInteger, _
adParamInput)
ADOCmd.Parameters.Append ADOPrm
ADOCmd.Parameters(sParmName).Value = 1
’Parameter 3
sParmName = “P1Num“ ’Number of PRINT statements in Resultset 1.
Set ADOPrm = ADOCmd.CreateParameter(sParmName, adInteger, _
adParamInput)
ADOCmd.Parameters.Append ADOPrm
ADOCmd.Parameters(sParmName).Value = 0
’Parameter 4
sParmName = “E1Num“ ’Number of RAISERROR statements in Resultset
’1.
Set ADOPrm = ADOCmd.CreateParameter(sParmName, adInteger, _
adParamInput)
ADOCmd.Parameters.Append ADOPrm
ADOCmd.Parameters(sParmName).Value = 0
’Parameter 5
sParmName = “R2Num“ ’Number of rows to return in Resultset 2.
Set ADOPrm = ADOCmd.CreateParameter(sParmName, adInteger, _
adParamInput)
ADOCmd.Parameters.Append ADOPrm
ADOCmd.Parameters(sParmName).Value = 2
’Parameter 6
sParmName = “P2Num“ ’Number of PRINT statements in Resultset 2.
Set ADOPrm = ADOCmd.CreateParameter(sParmName, adInteger, _
adParamInput)
ADOCmd.Parameters.Append ADOPrm
ADOCmd.Parameters(sParmName).Value = 0
’Parameter 7
sParmName = “E2Num“ ’Number of RAISERROR statements in Resultset
’ 2.
Set ADOPrm = ADOCmd.CreateParameter(sParmName, adInteger, _
adParamInput)
ADOCmd.Parameters.Append ADOPrm
ADOCmd.Parameters(sParmName).Value = 0
Set ADORs = ADOCmd.Execute
Do While (Not ADORs Is Nothing)
If ADORs.State = adStateClosed Then Exit Do
While Not ADORs.EOF
For i = 0 To ADORs.Fields.Count - 1
rStr = rStr & “ : “ & ADORs(i)
Next i
Debug.Print Mid(rStr, 3, Len(rStr))
ADORs.MoveNext
rStr = ““
Wend
Debug.Print “----------------------“
Set ADORs = ADORs.NextRecordset
Loop
Debug.Print “Return: “ & ADOCmd.Parameters(“Return“).Value
Debug.Print “Output: “ & ADOCmd.Parameters(“Output“).Value
GoTo Shutdown
ErrHandler:
Call ErrHandler(ADOCon)
Resume Next
Shutdown:
Set ADOCmd = Nothing
Set ADOPrm = Nothing
Set ADORs = Nothing
Set ADOCon = Nothing
End Sub
Private Sub Command1_Click()
Call CreateParms
End Sub
Sub ErrHandler(objCon As Object)
Dim ADOErr As ADODB.Error
Dim strError As String
For Each ADOErr In objCon.Errors
strError = “Error #“ & ADOErr.Number & vbCrLf & ADOErr.Description _
& vbCr & _
“ (Source: “ & ADOErr.Source & “)“ & vbCr & _
“ (SQL State: “ & ADOErr.SQLState & “)“ & vbCr & _
“ (NativeError: “ & ADOErr.NativeError & “)“ & vbCr
If ADOErr.HelpFile = ““ Then
strError = strError & “ No Help file available“ & vbCr & vbCr
Else
strError = strError & “ (HelpFile: “ & ADOErr.HelpFile & “)“ _
& vbCr & “ (HelpContext: “ & ADOErr.HelpContext & “)“ & _
vbCr & vbCr
End If
Debug.Print strError
Next
objCon.Errors.Clear
End Sub
