Compartilhar via

Passar parâmetros para um comando nomeado

  • Artigo

Assim como o resultado do comando é transmitido como uma variável out do comando nomeado, parâmetros para um comando parametrizado podem ser transmitidos como variáveis in ao comando nomeado.

O exemplo de código a seguir tenta recuperar todos os pedidos feitos pelo cliente cuja CustomerID seja "ALKFI" do banco de dados Northwind. O valor de CustomerID é fornecido no momento em que o comando nomeado é chamado.

Const DS = "MySqlServer"  
Const DB = "Northwind"  
Const DP = "SQLOLEDB"  
  
Dim objConn As New ADODB.Connection  
Dim objRs As New ADODB.Recordset  
Dim objComm As New ADODB.Command  
  
CommandText = "SELECT OrderID, OrderDate, " & _  
                     "RequiredDate, ShippedDate " & _  
                     "FROM Orders " & _  
                     "WHERE CustomerID = ? " & _  
                     "ORDER BY OrderID"  
  
ConnectionString = "Provider=" & DP & _  
                   ";Data Source=" & DS & _  
                   ";Initial Catalog=" & DB & _  
                   ";Integrated Security=SSPI;"  
  
' Connect to the data source.  
objConn.Open ConnectionString  
  
' Set a named command.  
objComm.CommandText = CommandText  
objComm.CommandType = adCmdText  
objComm.Name = "GetOrdersOf"  
Set objComm.ActiveConnection = objConn  
  
' Call the named command, passing a CustomerID value  
' as the input parameter.   
'    "ALFKI" is the required input parameter,  
'    objRs is the resultant output variable.  
objConn.GetOrdersOf "ALKFI", objRs  
  
' Display the result.  
Debug.Print "All orders by ALFKI:"  
Do While Not objRs.EOF  
    Debug.Print vbTab & objRs(0) & vbTab & objRs(1) & vbTab & _  
                objRs(2) & vbTab & objRs(3)  
    objRs.MoveNext  
Loop  
  
' Clean up.  
objRs.Close  
objConn.Close  
Set objRs = Nothing  
Set objConn = Nothing  
Set objComm = Nothing

Observe que todos os parâmetros de entrada precisam preceder qualquer variável de saída e os tipos de dados de parâmetros precisam corresponder ou poder ser convertidos nos campos correspondentes. A instrução abaixo:

objConn.GetOrdersOf 12345, objRs

resultará em um erro de tipos de dados incompatíveis, pois o parâmetro de entrada necessário é de um tipo String, não um tipo Integer.

A chamada abaixo:

objConn.GetOrdersOf "12345", objRs

é válida, mas produzirá um conjunto de resultados vazio porque esses registros não existem no banco de dados.

Consulte Também

Objeto Connection (ADO)