Ver Mensaje Individual
  #3 (permalink)  
Antiguo 19/12/2003, 12:11
usecas
 
Fecha de Ingreso: noviembre-2003
Mensajes: 38
Antigüedad: 20 años, 5 meses
Puntos: 0
Dim Conexion As ADODB.Connection 'declara la variable conexion
Dim Comando As ADODB.Command 'declara la variable comando
Set Conexion = New ADODB.Connection
Conexion.ConnectionString = "Provider=SQLOLEDB.1;Password=epc;Persist Security Info=True;User ID=Harley;Initial Catalog=SisCaja;Data Source=ADMONEPC"
'habro la conexion
Conexion.Open
Set Comando = New ADODB.Command
Comando.CommandType = adCmdStoredProc
Comando.CommandText = "TransitDetalle"
Set Comando.ActiveConnection = Conexion
Comando.Parameters.Append Comando.CreateParameter("@NumComp", adVarChar, adParamInput, 20, NumComp)
'se ejecuta el comando
Comando.Execute
'se cierra la conexion
Conexion.Close
'se inicializan
Set Conexion = Nothing
Set Comando = Nothing

CREO QUE LA RESPUESTA DE MI INTERROGANTE ESTA CUANDO CREO EL PARAMETRO!

GRACIAS DE TODOS MODOS!