Catching VALUE OF FORM FOR VARIABLE STORED PROCEDURE, FORM OF GETTING VALUE FOR VARIA

[rodrigopcnet]

Hello everybody
Just recently I started to eat access,
Delphi is my forte and I'm having doubts about one thing.
I have a form linked to database access sql server,
and have a command button that opens when you click a Stored.
I have 2 stored in this variable, I would like to click
button, pull the value of two fields in the form for the variables to
thus open the query, I tried in many ways, but failed.
I wish someone could help me to
NAME OF STORED: Form PRD_PRE_PEDIDO_EXPORTA_PROFORMA
NAME OF VARIABLE: @ @ PPrePedidoCodigo PCodEmpresa and both are type INTEGER
NAME OF FIELDS IN THE FORM: Me.CodEmpresa and Me.Prepedidocodigo

Code that did

Private Sub BtnExportaProforma_Click ()
Dim cnn As ADODB.Connection
Dim cmd As New ADODB.Command
Dim prm The ADODB.Parameter

Set cnn = CurrentProject.Connection
Set cnn = cmd.ActiveConnection
cmd.CommandText = "dbo. [Form PRD_PRE_PEDIDO_EXPORTA_PROFORMA]
cmd.CommandType = adCmdStoredProc
Set prm = cmd.CreateParameter (PCodEmpresa "adInteger, adParamInput,, Me.CodEmpresa)
cmd.Parameters.Append prm
Set prm = cmd.CreateParameter (PPrePedidoCodigo "adInteger, adParamInput,, Me.PrePedidoCodigo)
cmd.Parameters.Append prm


Cmd.Execute
End Sub

Please correct me if you are totally wrong, hehe

[pbaldy]

Not sure, though the stored procedure name looks odd with the space in it. I think the parameters need the "@" that they have in SQL Server. Here's how I do it (this is just the guts of it):

  With cmd
    .ActiveConnection = objConn
    .CommandText = "procResAudit"
    .CommandType = adCmdStoredProc

    .Parameters.Append .CreateParameter("@ResNum", adInteger, adParamInput, , lngResNum)
    .Parameters.Append .CreateParameter("@FieldName", adVarChar, adParamInput, 25, strField)
    .Parameters.Append .CreateParameter("@OldValue", adVarChar, adParamInput, 250, varOldValue)
    .Parameters.Append .CreateParameter("@NewValue", adVarChar, adParamInput, 250, varNewValue)
    .Parameters.Append .CreateParameter("@Operator", adInteger, adParamInput, , Forms!frmLogin.txtUserID)
    .Execute
  End With