[RESOLVED] VB & SQLStoredProcedures

[kishore.kr]

hi,

i say that adodb.command is not working bcos when i execute the sp in queryanalyser it works fine and returns the inserted row., but it does'nt even open the recordset in adodb.command(means rs.state is 0).

com.CommandType = adCmdStoredProc
  com.CommandText = "sInsert_mpEmp"
  Set par = com.CreateParameter("Fname", adVarChar, adParamInput, 100, txtFName.Text)
  com.Parameters.Append par 'com.Parameters("@E_Fname_2") = par
  Set par = com.CreateParameter("Mname", adVarChar, adParamInput, 100, txtMName.Text)
  com.Parameters.Append par 'com.Parameters("@E_Mname_3") = par
  Set par = com.CreateParameter("Lname", adVarChar, adParamInput, 100, txtLName.Text)
  com.Parameters.Append par 'com.Parameters("@E_Lname_4") = par ' 
  Set par = com.CreateParameter("Designation", adInteger, adParamInput, , cmbDesignation.List(cmbDesignation.ListIndex, 1))
  com.Parameters.Append par 'com.Parameters("@E_Desg_5") = par '
  Set par = com.CreateParameter("DOB", adDate, adParamInput, , dtDOB.Value)
  com.Parameters.Append par 'com.Parameters("@E_DOB_6") = par '
  Set par = com.CreateParameter("DOJ", adDate, adParamInput, , dtDOJ.Value)
  com.Parameters.Append par 'com.Parameters("@E_DOJ_7") = par '
  Set par = com.CreateParameter("LDOR", adDate, adParamInput, , dtLDOR.Value)
  com.Parameters.Append par 'com.Parameters("@E_LDR_8") = par '
  Set par = com.CreateParameter("Status", adInteger, adParamInput, , cmbEStatus.List(cmbEStatus.ListIndex, 1))
  com.Parameters.Append par 'com.Parameters("@E_Status_9") = par '
  set rs = com.Execute